Pages

• A small editor in 8.5.0
• A TclOO Tkhtml 3.0 megawidget - example of how to render html+css
• Bwise version 0.34, all in one file, 8.4 compatible
• Changes in Tcl/Tk 8.0
• Changes in Tcl/Tk 8.0.3
• Changes in Tcl/Tk 8.0.4
• Changes in Tcl/Tk 8.0.5
• Changes in Tcl/Tk 8.2.0
• First impressions with tcl/tk 8.5.0
• HelpViewer - based on Tkhtml2.0
• HelpViewer - based on Tkhtml3.0
• if 0 {
• iFile 1.0
• MinGW versus VC++ 6.0
• picoIRC 0.2
• PicoIRC 0.2 explained
• picoIRC 0.3
• Pictures from Plotchart 2.0
• port 0 networking
• SetOps, Union, Timing results, v8.0
• Steps to build Tcl/Tk 8.4.0 on MacOS X
• tablelist 6.0 - yet another header cellconfigure example
• TAO 1.0
• Tcl 8.0 performance advice
• Tcl Command Evaluation: Layer 0: Tcl_ObjCmdProc call
• tcl.js 0.2
• tcl.js 0.3
• tcl.js 0.4
• tcl.js 0.5 test suite
• tkWorld 0.2
• Web 2.0
• Webpage 1.0 - Web page macro facility

Content

• !
  25 Jun 2012 — a falsehood, and falsity (0) of the argument is true For bitwise "not" use the [~] operator. ---- [AMG]: To convert a value to its canonical boolean representation (i.e. 0 or 1), you
• #
  05 Jan 2014 — the construct if 0 ... such that its following words are not processed as arguments of a true procedure but instead are ''really ignored''. If you write this: if 0 [puts a] then
• %
  21 May 2014 — ASPECT__result -trap {} } $args] if {[dict get $opts -trap] eq ""} { set script { if {[lindex [self target] 0] eq "::oo::object"} { return [next {*}$args] } if {%1$s} { %2$s set %4$s [next
• &
  07 Aug 2012 — 0. For negative arguments, we use the extended definition of [~] that '''[~]$a[==]-1-$a'''. There are then the following cases: %| Case | Result |% &| $a[>=]0,$b>=0 | Ordinary bitwise '''&''' |& &| $a>=0,$b[<]0
• &&
  28 Sep 2018 — result ''provided'' all arguments have been reduced to the "most basic" boolean values (non-zero or 0), like for instance when evaluated with any kind of boolean operator. For example, the following
• (another) command profiler
  02 Mar 2015 — 0 foreach i $db { lassign $i clk enter cmdline set cmd [lindex $cmdline 0] if {![info exists cnt($cmd)]} {set cnt($cmd) 0} if {![info exists sum($cmd)]} {set sum($cmd) 0
• (buggy) iris animation
  02 Mar 2015 — other. ---- ====== proc RotateItem {w tagOrId Ox Oy angle} { set angle [expr {$angle * atan(1) * 4 / 180.0}] ;# Radians foreach id [$w find withtag $tagOrId] { ;# Do each component separately set xy {} foreach {x
• **
  09 Mar 2012 — lang.tcl: In math: ====== a**0 == 1, a != 0, and 0**a == 0, a != 0. 0**0 is indeterminate ====== In Tcl (8.5.7): ====== expr {0**0} => 1 ====== Here is an interesting
• .gif color dot
  23 Aug 2010 — 1, 0, 1, 0, 128, 0, 0, 255, 255, 255, 0, 0, 0, 33, 249, 4, 1, 0, 0, 0, 0, 44, 0, 0, 0, 0, 1, 0, 1, 0, 0, 2
• .tclshrc
  24 Aug 2018 — dateTime [clock format [clock seconds] -format "%a, %e %b %T"] set host [lindex [split [info hostname] "."] 0] format "%s%s %s\[%s %s@%s:%s\]\n$ %s" \ $colour1 \ tclsh$::tcl_version \ $colour2
• /
  01 Apr 2016 — d2c46e141cee856a333d358672dc56ce37deb769?txt=1&ln=6457,6468]): ====== quot = num / den; if (((quot < 0) || ((quot == 0) && ((num < 0 && den > 0) || (num > 0 && den < 0)))) && ((quot * den) != num)) { quot -= 1; } return quot; ====== I don't
• /dev/disk
  05 Mar 2015 — ptn * } } { # We refuse to look for things that cannot be found if { [lsearch ${vars::-types} $type] < 0 } { return -code error "$type is an unknown type,\ should be one of [join ${vars::-types
• 1liners
  16 Jan 2012 — 42 {} { while {[gets stdin l]+1} {if {[append ($l) 1]==1} {puts $l}} } package provide 1liners 0.1 # end # example: package require 1liners 42 # end ====== [UK]: To make it clear, this is
• 2
  10 Apr 2014 — board... "2" is one of the four valid numbers to use when programming. The others are "0", "1" and "many". However, using "2" instead of "many" is often a mistake. Sometimes, adding
• 2D Integer-based Rotations
  15 Jun 2015 — Cos {}; set Sin {} set M [expr {pow(2,30)}] set Coeff [expr {acos(0)/90}] for {set a 0} {$a <= 45} {incr a} { set A [expr {$Coeff*$a}] lappend Cos [expr {int
• 2D Scrollable Canvas using Tclogl
  23 Feb 2016 — list $x2 $y2] set p2 $p1 set p4 $p3 lset p2 0 [lindex $p3 0] lset p4 0 [lindex $p1 0] colour $colour glBegin GL_QUADS glVertex2fv $p1 glVertex2fv $p2 glVertex2fv $p3
• 2Dcbuilder
  27 Aug 2010 — correspondences between world coordinates from a 2D co-planar camera calibration grid, and pixels in a sample image|& &|Version|1.0|& &|Updated|09/2001|& &|Contact|mailto:etgold@thaumaturgy.net|& <<categories>> Image Processing
• 3 Triangles
  29 Apr 2018 — y + $maxsize / 3.0] incr count } set x [expr $x + $maxsize / 3.0] } } canvas .c -width 990 -height 990 -bg black .c create rect 0 0 990.0 990.0 -fill white
• 3-D Boxes (Support for Canvas Buttons in 3-D)
  18 Jun 2011 — global blcorner set id [$theCanvas create polygon 0 0 1 0 1 1] set blcorner($id,theCanvas) $theCanvas set blcorner($id,adjustedHeight) [expr round(0.707 * $height)] set blcorner($id,x) $x
• 3D animation on canvas with Gnuplot
  25 Nov 2012 — title \"Frame 0\" " puts $gp "splot u**3-3*u*v**2,3*u**2*v-v**3,u" set t [.c create text 70 50 -text "Processing frame 0" -fill black
• 3d Matrix Inversion
  13 May 2012 — expr {double([lindex $matrix 0 0] * [lindex $inv 0 0] + [lindex $matrix 0 1] * [lindex $inv 1 0] + [lindex $matrix 0 2] * [lindex $inv 2 0])}] if {$det == 0} { error "non-invertable
• 3D Minesweep - Example Application
  27 Sep 2012 — RENDERER: Intel 915GM GL_VERSION: 1.4.0 - Build 4.14.10.4020 GL_RENDERER: GeForce FX Go5600/AGP/SSE2 GL_VERSION: 1.4.0 Hi Philip, Also works well under Gentoo
• 3D Text for Tk in Unix
  11 Mar 2011 — nScreen); Tk_MakeWindowExist (tkwin); xWin = Tk_WindowId (tkwin); lightGC = XCreateGC (dis, xWin, 0, 0); darkGC = XCreateGC (dis, xWin, 0, 0); XParseColor (dis, colormap, lightColor, &xLightColor); XAllocColor (dis, colormap, &xLightColor); XSetForeground (dis, lightGC
• 10th European Tcl/Tk Users Meeting 2012
  22 Apr 2018 — large quantities = foodstroke! More seriously, the key things I could see were: * Everyone wants 8.6.0 to ship. Now. * The project area of the moment is message queueing packages. There needs
• 15-puzzle
  23 Feb 2016 — 2016-02-21 global Msg Moves PuzzNr GoalNr set Msg $progVersion set Moves 0 set PuzzNr 0 set GoalNr 0 set Keys { 11 12 13 14 21 22 23 24 31 32
• 1750A to Float Conversion
  16 Oct 2012 — 5 * pow(2,-128)]] ;#40000080 format %X [float1750a [expr .0 * pow(2,0)]] ;#0 format %X [float1750a [expr -1.0 * pow(2,0)]] ;#80000000 format %X [float1750a [expr -.5000001 * pow(2,-128
• 1993 Tcl/Tk Workshop
  06 May 2017 — was popular for a number of years, particularly before the [[socket]] command arrived with Tcl 8.0. '''David Richardson.''' "Cooperating applications through Tcl/Tk and DCE." '''[Karl Lehenbauer], Brad Morrison and Ellyn
• 2013.0321 - Experience with nodejs and why Tcl is better
  03 Nov 2013 — binary: ======none wget http://nodejs.org/dist/v0.10.0/node-v0.10.0-linux-x64.tar.gz cd node-v0.10.0-linux-x64 cp bin/* ~/bin cp -r lib/* ~/lib
• 2048.tcl
  21 Jul 2017 — Windows, OS X (presumably). | | Prerequisites | Tcl 8.5 or newer. | | Updated | 2017-07-21 (version 0.4.0) | | License | MIT | ** Screenshot ** ====== [ 8][ 2][ 2]...... ........................ ............[ 2*]...... ........................ Move (hjkl)? ====== The star indicates a new
• <
  25 Mar 2015 — expr]`. ** Synopsis ** : '''`<`''' ?''arg'' ...? ** Description ** '''`<`''' returns `1` if all its arguments are ordered, left-to-right, and `0` otherwise. If no arguments are given, it returns `1`, since there is nothing that is
• ==
  12 Jul 2018 — 1 == 1.0000000000000001110223 } 1 ====== Comparing with zero is a lot safer: ====== expr { 0 == 0.00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001 } 0 ====== but ====== expr { 0 == 0.000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001 } 1 ====== So from 1E-324 Tcl does not see the difference
• >
  20 Oct 2012 — 2 0 % tcl::mathop::> 2 1 1 % tcl::mathop::> 2 2 0 % tcl::mathop::> a b 0 % tcl::mathop::> b a 1 % tcl::mathop::> abc 123 1 % tcl::mathop::> abc abcd 0
• >=
  07 Jun 2014 — comparison (as in [string compare] with no options) is used. **Examples** ====== % expr 1 >= 2 0 % expr 1 >= 0 1 # There's a little more to the expr syntax when comparing strings than
• @decorators
  17 Sep 2018 — default4} \ proc test_namedArgs {args} { puts "In test_namedArgs with argsDict: " set longest [tcl::mathfunc::max 0 {*}[lmap key [dict keys $argsDict] {string length $key}]] dict for {key value} $argsDict { puts [format
• ^
  18 Jan 2012 — is 0. To evaluate `$a^$b` when either `$a` or `$b` is negative, we make use of the following reasoning: %| Case | Result |% &| `$a>=0`, `$b>=0` | Bitwise operation |& &| `$a>=0`, `$b<0
• ^txt2regex$
  11 Jan 2012 — questions, the user can build up a regular expression suitable for use in Tcl. Currently at version 0.6 . Updated: 08/2001 Contact: See web site === <<categories>> Dev. Tools | Regular Expressions | Application
• _scriptFormat
  26 Apr 2015 — want. Just that your tabbing is off. It ignores anything in a mass comment like `if 0 {}` File a bug on github with a sample of your code and how you would
• A balance toy
  10 Dec 2012 — poly [mirror'x {0 0 -5 5 -15 140 -60 150 -62 160}] \ -fill green4 -outline darkgreen ;# rig .c create poly -$width 0 -$width -5 $width -5 $width 0 \ -tag {cross bar
• A basic debugger
  14 Mar 2014 — variable silent variable breakpoints if { [lsearch $breakpoints [lindex $cmd 0]] >= 0 } { set silent 0 } if { ! $silent } { puts "Next: $cmd" set dname [lindex $cmd 0] dbg } } # dbg_leave -- # Callback for leavestep event # # Arguments
• A basic editor
  28 Sep 2018 — ypshell::EditFile 0 0 $filename } # EditFile -- # Edit or view a file (actual procedure) # # Arguments: # editable Select edit mode (1=edit, 0=view) # newopen Allow new/open menu items (1=yes, 0=no
• A brief introduction to closures and continuations for event-based programming
  23 Feb 2016 — things slightly easier using anonymous procedures in # 8.5: proc lambda {params body args} { linsert $args 0 apply [list $params $body] } ask "First number:" [lambda a { ask "Second number:" [lambda {a b
• A calendar Widget
  24 May 2014 — row 0} {$row < 6} {incr row} { for {set col 0} {$col<7} {incr col} { label $parent.$col$row -highlightthickness 2 grid $parent.$col$row -padx 0 -pady 0 -ipadx 0 -ipady 0
• A Canonical Structure for Tk Code --- and variations
  07 Jun 2014 — follows: -1) Put documentation comments in the script from the very start of creating the script. 0) Set general window parms (win-name, win-position, color-scheme, fonts, widget-geometry-parameters, win
• A Case for Accessor Functions
  23 Feb 2016 — of course be nestable, ====== set {list {dict D addresses} 0} {10 Downing Street, ...} # dict set D addresses [lreplace [dict get $D addresses] 0 0 {10 Downing Street, ...}] ====== that is where it really
• A Case for Metaprogamming
  11 Oct 2017 — breaking of compatibility that arises when some construction, such as for example lappend $Array($x)($y) 0 where the first parenthesis is meant to be substituted by the parser but the second
• A change-sensitive text widget
  05 Mar 2013 — state set textModified 0 } proc updateUI {args} { global textModified if {$textModified} { .toolbar.save configure -state normal } else { .toolbar.save configure -state disabled } } trace variable textModified w updateUI set textModified 0 ====== Man, I
• a checkpoint-based profiler
  02 Mar 2015 — set j 0} {$j < $r} {incr j} { } profiler cp1 for {set j 0} {$j < 30000} {incr j} {} profiler cp2 for {set j 0} {$j < 170} {incr j} { for {set jj 0} {$jj
• A chroot virtual filesystem
  17 Jan 2012 — proc open_safe {args} { set slave [lindex $args 0] set handle [lindex $args 1] set args [lrange $args 1 end] if {[string index $handle 0] != "|"} { eval [eval list interp invokehidden $slave open
• A Comparison of Canvas3D and QAnim
  25 Apr 2015 — Colourb $colour1 glVertex3f -0.5 -0.5 0 Colourb $colour2 glVertex3f 0.5 -0.5 0 glVertex3f 0.5 0.5 0 Colourb $colour1 glVertex3f -0.5 0.5 0 glEnd } ====== Not
• A Coroutine-Enabled Interactive Command Line
  20 Jul 2015 — n [prompt >] } return $cmd } proc repl {} { while 1 { set cmd [get-command] set code [catch { uplevel #0 $cmd } result opts] if {$code == 1} { puts [dict get $opts -errorinfo] } else { puts $result } } } coroutine
• A delay block in Bwise
  25 Apr 2015 — what our Mon-itor blocks record. I used single binary numbers 0 and 1 to test, and subsequently filled in 0, 0, 1, 1 and each time ran 'Funprop' to make the
• a delicious api
  16 Jan 2012 — lindex $opt 0]] > -1} { if {[lindex $opt 0] == "dt"} { lappend query dt [clock format [clock scan [lindex $opt 1]] -format "%Y-%m-%dT%TZ"] } else { lappend query [lindex $opt 0] [lindex $opt
• A different FORTH
  15 May 2012 — S 0 end-1]]} ====== 11dec02 [jcw] - Pesky types like me would say that this is still a two-liner. How about... ====== proc pop {} {lindex [list $::S [set ::S [lrange $::S 0 end
• A Dilbert reformatter
  05 Mar 2013 — set res [image create photo] $res copy $i1 -from 0 $h1 $w $h2 $res copy $i1 -from 0 $h2 $w $h -to $w 0 image delete $i1 set res } ====== <<categories>> Image Processing
• A do-it-yourself IDE with the text widget
  25 Nov 2017 — code" -underline 0 \ -command [list InsertBlock .tedit Code] # # Set up the "View" menu # set ::hidden 0 $mw.view add checkbutton -label "Hide text" -underline 0 \ -variable ::hidden -onvalue 1 -offvalue 0 \ -command
• A DSL to generate XSD files
  20 Sep 2018 — range $type 0 end-1 ] set cardinality {minOccurs="1" maxOccurs="unbounded"} } ? { set type [string range $type 0 end-1 ] set cardinality {minOccurs="0" maxOccurs="1"} } ! { set type [string range $type 0 end
• A fading window
  13 Oct 2014 — wm geometry .fading -0-0 raise .fading pack [label .fading.label -text "Slowly fade away ..."] tkwait visibility .fading proc fade {w degree} { wm attributes $w -alpha $degree if { $degree > 0 } { after 200
• A file properties dialog
  14 Jan 2012 — file) [file tail $pathname] toplevel $w wm title $w [file nativename $pathname] wm resizable $w 0 0 set textual [list Name [file tail $pathname] \ Directory [file nativename [file dir $pathname]] \ Type [file
• A filter procedure as in Octave
  13 Aug 2018 — 1} {1 -1} {0 1 2 3 4}] ;# 0 1 2 3 4 puts [filterz {1 -1} {1 1} {0 1 2 3 4}] ;# 0 1 0 1 0 ====== <<categories>>Category Mathematics
• A Find & Replace Dialog
  23 Mar 2017 — 8 0} grid $wf2.ok -column 0 -row 0 -sticky nsew -padx {0 4} -pady {8 0} grid $wf2.quit -column 0 -row 1 -sticky nsew -padx {0 4} -pady {8 0
• a form for Access Database
  16 Oct 2012 — 0]]} errores] == 1} { puts "errores:\n$errores" update if {![string compare [lindex $errores 0] 23000]} { # datasource not found, create new tk_messageBox -message "Error, already entered" } elseif {![string compare [lindex $errores 0
• A fullscreen toplevel
  20 Jan 2013 — no wm state . zoomed ;# This command for Windows only frame .x -highlightthickness 0 -bg #c8efff place .x -x 0 -y 0 -relwidth 1 -relheight 1 bind . <KeyPress-Escape> "wm iconify ." ====== [alove] 11
• A funny cookbook
  17 Feb 2015 — width 40 -height 5] bind .t <1> {showRecipe %W; break} proc showRecipe w { $w delete 1.0 end $w insert end [recipe] } showRecipe .t } ====== [TV]: Good, me like. Looks like the beginning
• A graph generator
  13 May 2012 — proc graphK {nPartitions {sizeOfPartition 1}} { set partitions {} set no 0 for {set i 0} {$i<$nPartitions} {incr i} { set partition {} for {set j 0} {$j<$sizeOfPartition} {incr j} { lappend partition [incr no
• A Graph plotter
  03 Jan 2016 — 0.0 1.0} {0.333 0.944} {0.667 0.785}` : ====== set data [list {0.0 0.0 1.0} {0.333 0.327 0.944} {0.6667 0.618 0
• A graphical timetable
  18 Jun 2011 — 0] 0] switch -- $cmd { add {eval gratt'add $self $args} default {eval _$self $cmd $args} } } return $w } ====== #-- Internal routines: draw grid, label stations and hours ====== proc gratt'draw {w line} { upvar #0
• A GUI for defining and solving ordinary differential equations
  22 Dec 2014 — Time step for output" set filename "" set ::t 0.0 set ::tbegin 0.0 set ::tend 1.0 set ::tstep 0.025 set ::tstepout 0.1 set helpText " *Solving systems of ordinary
• A Hash Table in Tcl
  21 Jan 2012 — numbuckets}] set sublist [lindex $buckets $offset] set existing [lsearch -exact -index 0 $sublist $key] if {$existing < 0} { #not found return 0 } set value [lindex $sublist $existing 1] #found return 1 } proc main
• A Hashing Trie in Tcl
  28 Sep 2011 — not in the trie. return 0 } } set valuelist [lindex $t {*}$pathlist 16] if {2 != [llength $valuelist]} { #The value is not a valid [list DATA $value]. return 0 } set value [lindex $valuelist 1
• A higher-level channel API
  02 Oct 2014 — uplevel 1 [linsert $args 0 ::channel $method $chan] } proc def {name = cmd args} { interp alias {} $name {} $cmd {*}$args } def out = channel: [socket localhost 9000] out configure -blocking 0 -buffering line out puts
• A letter toy
  06 Jan 2012 — w / 2.0}] $W config -scrollregion [list -$w -$h $w $h] } proc createGui {toplevel} { set parent $toplevel if {$toplevel == "."} {set parent ""} wm geometry $toplevel [join [wm maxsize .] x]+0+0 pack [canvas
• A lightweight digraph package
  03 Jan 2016 — set queue [list [list [list $source] 0]] do { # pop first item off queue set next [lindex $queue 0] set queue [lreplace $queue [set queue 0] 0] lassign $next path cost set node
• A little 6to4 calculator
  25 Mar 2014 — integer $octet] || $octet < 0 || $octet > 255} { return -code error "\"$octet\" is not a valid octet" } } foreach {a b} $octets { lappend words [expr {($a<<8) | $b}] } eval [linsert $words 0 format "2002:%x
• A Little Access Log Viewer
  30 Aug 2016 — row 0 -column 0 grid .t -sticky news -row 0 -column 1 grid rowconfigure . 0 -weight 100 grid columnconfigure . 1 -weight 100 .t insert end [read [set fd [open [lindex $argv 0
• A little backtracking Prolog interpreter
  18 Oct 2010 — args] > 0 && [lindex $args 0] ne ":-"} { return -code error \ "invalid syntax: expecting ':-' but got '[lindex $args 0]'" } return [list $head {*}[lrange $args 1 end]] } proc prolog::head clause { lindex $clause 0 } proc
• A little bar graph
  21 Sep 2012 — wm withdraw . . configure -borderwidth 0 -highlightthickness 0 -takefocus 0 -background "" wm title . xswapinfo wm geometry . $geom wm overrideredirect . 1 update idletasks canvas .c -bg $background -borderwidth 0 -highlightthickness 0 label .l -bg
• A little business logic
  13 Jul 2018 — ID (unique within this run) # proc ::business::whichid {type name} { variable data set id 0 set found 0 foreach obj $data { if { [getattrib $id TYPE] == $type && [getattrib $id NAME] == $name } { set found
• A little chat server
  13 Jul 2011 — has both web and tk interfaces. ---- ====== #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" ${1+"$@"} set port 1234 proc handle_connection {client_socket host port} { global client_sockets counter
• A little checker game
  02 Aug 2013 — fill $color -tags $args } for {set i 0; set y 0} {$i<8} {incr i; incr y $dy} { for {set j 0; set x 0} {$j<8} {incr j; incr x $dx
• A little client-server example
  13 Oct 2013 — chan] } #----------------------------------------------------- proc server {chan addr port} { fconfigure $chan -buffering line ;# NOT -blocking 0 (see below!) while {[gets $chan line]>=0} { catch $line res puts $line->$res ;# local logging puts $chan $res } close
• A Little Clipboard Daemon
  01 Feb 2016 — Summary** ... **Code** ======tcl #!/bin/sh # execute in wish from path \ exec wish "$0" ${1+"$@"} # clipserver.tcl - Keeps an eye on everything that is copied to the clipboard # and doesn't let it
• A little concordance
  05 Mar 2013 — bells, bells- To the rhyming and the chiming of the bells! } proc concordance {text} { set n 0 foreach line [split $text \n] { if {$line==""} continue regsub -all {[^a-z]} [string tolower $line
• A little database API
  10 Jul 2011 — args} { upvar #0 $database db set key "" ;# in case args is empty foreach {- key item value} $args break set exists [info exists db($key)] set res {} switch [llength $args] { 0 { array set
• A little database GUI
  10 Jul 2011 — pos] { lappend found [list $key [lindex $pos 0] $data] } } switch [llength $found] { 0 {error "No match for $tofind"} 1 {Show $textw [lindex [lindex $found 0] 0] $database} default {choice $textw $database $tofind
• A little database with unification
  17 Feb 2015 — args} { if {[lsearch -exact [namespace export] $method] < 0} { error [concat "bad method \"$method\": must be" \ [joinlist [namespace export] , " or "]] } if {[catch {eval [linsert $args 0 $method $dbVar]} msg]} { return -code error $msg
• A little date chooser
  11 Dec 2015 — 0} button .chooseDate.1.3 -text v -command {date::adjust -1 0} entry .chooseDate.1.4 -textvar date::year -width 4 -just center button .chooseDate.1.5 -text ^ -command {date::adjust 0
• A little demon
  17 Nov 2012 — work also with non-trivial tasks... ====== proc every {ms body} {eval $body; after $ms [info level 0]} set filename /home/suchenwi/todo every 5000 { if [file exists $::filename] { catch {exec sh $::filename
• A little Deterministic Turing Machine
  02 Jul 2014 — txt set rules { {1 00R 1} {2 01L 0} {1 __L 2} {2 10L 2} {2 _1L 0} {1 11R 1} } set tapes { 0 10011 1111 } set rules2 { {3 _1L 2} {1
• A little doxygen converter
  05 Mar 2013 — s some thing useful). No warranties, but enjoy! ====== proc xtex2htm {channel filename} { while {[gets $channel line]>=0} { set line [string map { {\li } <li> \\< <i> \\> </i> \\verbatim <pre> \\endverbatim </pre> <b> <b> </b
• A little drawing tool
  04 Mar 2017 — focus] if {[string length $id] == 0 } { set id [$c find withtag current] } if {[string length $id] == 0 } { # No object under the mouse if {[string length $x] == 0} { # Keyboard paste set x [expr
• A little experiment with table-driven testing
  27 Nov 2009 — rowsCount [expr {[m rows] - 1}] set expidx [lindex {*}[::m search row 0 "expected"] 0] set varnames [lrange [m get row 0] 0 [expr {$expidx - 1}]] set nvars [expr {[llength $varnames] - 1}] for
• A little file searcher
  07 Feb 2016 — 0 $varName data set fp [open $file] set data [split [read $fp] \n] close $fp wm title . $file } proc search {re w} { global data $w delete 1.0 end set n 0
• A little file searcher (iPaq)
  05 Mar 2013 — columnconfig . 0 -weight 1 grid rowconfig . 1 -weight 1 } proc search {re w} { global file $w delete 1.0 end set n 0 set fp [open $file] while {[gets $fp line]>=0
• A little font chooser
  01 Sep 2013 — f.h -row 0 -column 0; grid $w.f.l -row 0 -column 1 -sticky nsew; grid $w.fl.lb -row 0 -column 0; grid $w.fl.sb -row 0 -column 1
• A little fortune teller
  22 Jan 2012 — size fortune seek $fp [expr {int(rand()*$size)}] while {[gets $fp line]>=0 && $line!="%"} {} set fortune "" while {[gets $fp line]>=0 && $line!="%"} { append fortune $line\n } } showFortune ====== ---- <<discussion>> [ramsan] (2003-07-24
• A little graph plotter
  25 Apr 2013 — plot {sin($x)} t0 0 # {t1 < t0: non-stop scrolling} t1 -1 accuracy 1.e-2 } # -------------------------- # plotting # -------------------------- # computed heights set h $params(height) set h1 [expr {int($h * 0.5)}] ;# canvas mid
• A little GUI tester
  02 Jul 2012 — the text from the first Label in the window set t [tktest::widget -class Label -pos 0 -eval "cget -text"] # Type an A at the end of the entry tktest::cmd focus
• a little hail storm
  27 Apr 2016 — id [expr {(rand()-0.5)*$speed}] [expr {(rand()-0.5)*$speed}] # if { [lindex $coords 0] < 0 } { .c move $id 200 0 } if { [lindex $coords 1] < 0 } { .c move $id 0 200 } if
• A little Hangul converter
  18 Jan 2013 — consonants if {[min $l $v $t] < 0} {return $hanglish} format %c [expr {$l*21*28 + $v*28 + $t + 0xAC00}] } proc min args {lindex [lsort -real $args] 0} proc hanglish argl { set res
• A Little Hex Editor Widget
  03 Aug 2016 — tag remove sel 0.0 end $win.ascii tag remove sel 0.0 end set cur [$win.ascii index insert] set splitIndex [split $cur .] set line [lindex $splitIndex 0] set curChar [lindex
• A little image viewer
  18 Aug 2012 — set first [lindex $files 0] set files [concat [lrange $files 1 end] [list $first]] } else { set first [lindex $files end] set files [concat [list $first] [lrange $files 0 end-1]] } openImg $w
• A little IO stack
  02 Mar 2015 — a namespace proc import {ns args} { foreach name $args {uplevel 1 [list upvar #0 ${ns}::$name $name]} } ====== if 0 {The last command is the only thing here that resembles vaguely an [OO
• A little Korean editor
  04 Jul 2011 — Bitstream Cyberbit} 11} ;# or whichever you have wm title . "HangulType 0.1" set intro " \u394B\u3558\u3CA0\u3883\u39C5 Welcome to HangulType 0.1! (Richard Suchenwirth 2001) Click one of the white
• A little layout manager for html forms
  10 Oct 2009 — length $r] == 0} { # leere Zeilen machen Sinn, weil tr ein Attribut tragen kann (z.B. Höhe) append ret " <td colspan=\"$cols\"></td>";# &nbsp; oder nicht? } else { append ret " " set i 0 foreach
• a little learning decision tree
  20 Jan 2013 — for clarity: ====== proc cons {name args} { proc $name $args { info level 0 } } proc func {name cons args} { set params [lrange $args 0 end-1] set body [lindex $args end] proc $name:$cons
• A little list selector
  05 Mar 2013 — button bar by specifying ''-buttons 0''. Options aren't very many yet; you can select whether a choice can be added multiply or not with the ''-unique {0|1}'' switch, specify ''-listvar
• A little logic notation editor
  25 Apr 2015 — top.editor -row 0 -column 0 -sticky nsew grid $top.vsb -row 0 -column 1 -sticky ns grid $top.hsb -row 1 -column 0 -sticky ew grid rowconfigure $top 0 -weight 1
• A little login dialog
  30 May 2014 — wm title $w $title # change the following to 'wm resizable $w 0 0' to prevent resizing wm resizable $w 1 0 wm protocol $w WM_DELETE_WINDOW {set _res {}} label $w.u
• A little magnifying glass
  09 Nov 2012 — s begin by building a trivial GUI package require Tk package require Img wm geom . +0+0 grid [text .t -width 20 -height 10 -cursor tcross -font {Courier 12}] .t insert end
• A Little Make Replacement
  01 Sep 2012 — code error "$f isn't a target or existing source" } } if {$build} { uplevel #0 $body return 1 } return 0 } else { return -code error "make.target called with an invalid target: $t" } } proc
• A little man page viewer
  29 Oct 2015 — nice distraction: [WikiDbImage man2text.jpg] ---- ====== package require Tk set font {Times 10} set file [lindex $argv 0] wm title . "man [file tail [file root $file]]" pack [scrollbar .s -command ".t yview"] -side
• A Little Meeting Organisation Helper
  22 Jan 2012 — displayed in the GUI # 0 == sunday 1 == monday ... 6 == saturday set ::daylist [list 1 2 3 4 5 6 0] # daynamelist should have the short daynames in order 0 .. 6 since # we
• A little multiplication toy
  05 Mar 2013 — 55.0 37.0 newentry 60 30 {} {} 55.0 103.0 newproc { set multiply.product [expr ${multiply.in1} * ${multiply.in2}] } multiply {in1 in2} product 40 {} {} 174.0 61.0 newmon 0 80
• A little Nasdaq retriever
  13 Oct 2018 — long while. Retirement comes closer, and my old-age savings at the local savings bank yielded 0.00%, so (better late than never) I have taken up investing them, stocks and bonds
• A little pie chart
  02 Mar 2015 — width/2.}] set ym [expr {$y+$height/2.}] set rad [expr {$width/2.+20}] set sum 0 foreach item $data {set sum [expr {$sum + [lindex $item 1]}]} set start 270 foreach item
• a little proving engine
  05 Mar 2013 — values 0|1 set res {} for {set i 0} {$i < (1<<$n)} {incr i} { set case {} for {set j 0} {$j <$n} {incr j } { lappend case [expr {($i & (1<<$j)) != 0}] } lappend
• A little rain forecaster
  05 Mar 2013 — 0 0 -anchor nw -image $image] http::cleanup $token after 1000 anotherCommand } proc anotherCommand {} { global cmds if {[llength $cmds]} { set cmd [lindex $cmds 0] set cmds [lrange $cmds 1 end] uplevel #0
• A little RSS browser
  09 Sep 2012 — text {<rss version="2.0">} -fill blue -image image1 -helptext http://rss.news.yahoo.com/rss/topstories" ("eval" body line 1) invoked from within "eval [linsert $args 0 Tree::$cmd .t]" (procedure
• A little RSS reaper
  11 Jan 2012 — argv] != 1} {puts stderr $::usage; exit} set rss [lindex $argv 0] ;# other arguments ignored for now set content [readRSS $rss] set n 0 puts "<html><head/><body>From: $rss<br>" puts "Updated
• A little Slashdot comment parser
  07 Apr 2014 — return [string range $c $i $j]} proc =@ {c arr_name} { upvar $arr_name v ; set n 0 while {[regexp -indices -start $n {<TR><TD BGCOLOR="#CCCCCC">\s+?<FONT SIZE="3" COLOR="#000000
• A little slide-rule
  13 May 2012 — c create rect 0 50 $width 120 -fill grey90 .c create rect 0 50 $width 120 -fill beige -outline beige \ -tag {slide slidebase} .c create line 0 0 0 120 -tag mark
• A little sluice simulation
  11 Oct 2012 — moveBoat>0 && !$isOpen(gate2)} { set moveBoat 0 } if {$bx0<160 && $bx1>90 && $moveBoat<0 && !$isOpen(gate1)} { set moveBoat 0 } } else { $w dtag boat sluiced if {$bx0<470 && $bx0>150 && $moveBoat<0 && !$isOpen
• A little spellchecker
  26 Jan 2015 — fd word] >= 0 } { set words($word) 1 } close $fd } proc eb_SpellCheck {w} { upvar #0 spelling_words words $w tag configure highlight -background pink $w tag remove highlight 1.0 end set
• A little spreadsheet
  02 Jan 2014 — example (NB: initial values can be set at creation time) pack [spreadsheet::create .s 0,0 Header 1,0 47 2,1 11] -fill both ====== ---- Anyone familiar with [Tktable] able to show
• A little translation tool
  09 May 2014 — sticky news grid .trg .trgy -sticky ns grid .trg -sticky news grid rowconfig . {0 1} -weight 1 grid columnconfig . 0 -weight 1 markup .src .trg "This is an example - let's see
• A little US election results mashup
  24 Mar 2014 — puts "" } # Set up a repeating event proc every {interval units action} { uplevel #0 $action after [$units $interval] [info level 0] } # Convert times from various units to milliseconds proc seconds t { expr {$t
• A little value dialog
  29 Jan 2016 — WikiDbImage valuedialog.jpg] ====== proc value_dialog {string} { set w [toplevel .[clock seconds]] wm resizable $w 0 0 wm title $w "Value request" label $w.l -text $string entry $w.e -textvar $w
• A little Web kiosk
  05 Mar 2013 — body} {eval $body; after $ms [info level 0]} proc cycle _list { upvar 1 $_list list set list [concat [lrange $list 1 end] [list [lindex $list 0]]] } set URLs { wiki.tcl.tk wiki
• A little XML browser
  10 Sep 2012 — 0 scrollbar .x -ori hori -command ".t xview" scrollbar .y -ori vert -command ".t yview" grid .t .y -sticky news grid .x -sticky news grid rowconfig . 0 -weight 1 grid columnconfig . 0
• A little XML parser
  05 Mar 2013 — llength $a] != [llength $b]} {return 0} if {[lindex $a 0] == $a} {return [string equal $a $b]} foreach i $a j $b {if {![lequal $i $j]} {return 0}} return 1 } proc try x
• A Look at the Tcl Test Suite with gcov
  13 Feb 2016 — be just '\0' if temp var */ #####: 1939: varPtr->nsPtr = NULL; #####: 1940: varPtr->hPtr = NULL; #####: 1941: varPtr->refCount = 0; #####: 1942: varPtr->tracePtr = NULL; #####: 1943: varPtr->searchPtr = NULL; #####: 1944: varPtr->flags = 0; #####: 1945: TclSetVarLink
• A Mini Database Manager
  10 Jul 2011 — pos] { lappend found [list $key [lindex $pos 0] $data] } } switch [llength $found] { 0 {error "No match for $tofind"} 1 {Show $textw [lindex [lindex $found 0] 0] $table} default {choice $textw $table $tofind
• A minimal console
  21 Jul 2012 — set selection [.main tag nextrange sel 0.0] if {[llength $selection] > 0} { set command [.main get [lindex $selection 0] [lindex $selection 1]] .main insert insert [uplevel #0 $command] .main see insert } } text
• A minimal debugger
  16 Dec 2012 — s {}}} { if ![info exists ::bp_skip] { set ::bp_skip [list] } elseif {[lsearch -exact $::bp_skip $s]>=0} return if [catch {info level -1} who] {set who ::} while 1 { puts -nonewline "$who/$s
• A minimal editor
  03 Feb 2016 — open $fn w] puts -nonewline $fp [$w get 1.0 "end - 1 c"] close $fp } if {$argc > 0} { loadText .t [lindex $argv 0] } else { .t insert end "Keys: F1:Help, F2:Open
• A minimal editor explained
  26 Jul 2011 — is, it can only handle one file at a time): ====== if {$argv != ""} {loadText .t [lindex $argv 0]} ====== The procedures for loading and saving text both start with a sanity check of the
• A minimal multi listboxes megawidget
  02 Mar 2016 — relief groove -highlightthickness 0 \ -exportselection 0 } scrollbar $w.vs -command [namespace code [list yview $w]] grid $w.t -column 0 -row 0 -sticky nsew grid $w.f -column 0 -row 1 -sticky
• A minimal starfield
  02 Oct 2014 — if {[llength [$c bbox $item]] == 0} {$c delete $item; continue} ;# (1) foreach {x0 y0 x1 y1} [$c bbox $item] break if {$x1<0 || $x0>$w || $y1<0 || $y0>$h} {$c delete $item
• A minimal table example
  11 Aug 2012 — code here ... } else { $w configure -bg white ; # ... or here } } } for {set r 0} {$r < 10} {incr r} { for {set c 0} {$c < 10} {incr c} { grid [label .${r}$c -text "row $r
• A Minimal Tree Widget
  02 Mar 2015 — ttree::add .t 0 Foo {puts "foo"} ttree::add .t 0 Bar {puts "bar"} ttree::add .t 1 Baz {} ttree::add .t 1 Bleep {puts "bleep"} ttree::add .t 0 Bloop {puts
• A minimally extended minimal editor
  03 Feb 2016 — 1.0 "end - 1 c"] close $fp } # ADDED proc process_cline {} { set my_cmd [.cline get] uplevel #0 $my_cmd .cline delete 0 end } # ADDED proc showDir {} { .t delete 1.0 end
• A Money Package
  17 Nov 2013 — money 12.99]]]" puts "42.0 / 4: [money-value [money/ [money 42.0] 4]]" puts "45.5 / 3: [money-value [money/ [money 45.5] 3]]" puts "42.0 * 42 * 42 = You're
• A musical keyboard for BWise and Midi connections
  24 Jan 2011 — pack $c newblock keyb 0 0 562 109 {in} {out} keyb set keyb.bfunc {} wm resizable . 0 0 ;# keep the window fixed-size foreach factor {0.25 0.5 1 2 4
• A musicbox
  14 Jan 2012 — already played as list of songs to play and reset the 'played' # information. if {[llength $playlist] == 0} { set playlist [shuffle [lsort [array names played]]] clear_played } play $playlist #exit } } proc unplayed_files
• A needlemeter widget: type 1
  28 Jul 2013 — periodic ::value2 0.0" needlemeter::constructor .t3 ::value3 after 100 "sinusoid ::value3 0.0 0.45 0.05" needlemeter::constructor .t4 ::value4 after 100 "sinusoid ::value4 0.0 0.2 0.05
• A network echo Windows service using TWAPI
  07 Aug 2013 — Service $name failed to update status: $msg" } } # Callback handler proc service_control_handler {control {name ""} {seq 0} args} { global echo switch -exact -- $control { start { if {[catch { # Start the echo server echo_server
• A New Megawidget Library
  23 Aug 2012 — Both would choke if I tried to do: ButtonBox .b .b conf -def 0 ; ## shorthand for .b configure -default 0 Because neither one can pick up shorthand subcommands or options. The error
• A not-so-little value dialog
  02 Sep 2011 — v $options(-$opt) if {![string is double -strict $v] || ($v < 0) || ($v > 1)} { error "expected floating-point $opt in \[0.0, 1.0\] but got \"$v\"" } } foreach opt {height width} { if {![string
• A not-so-random path based on primes
  03 May 2016 — type == 0 || $type == 3 } { set np 5 set mod [expr {$type == 0? 6 : 4 }] } else { set np 7 } set p $np for {set i 0} {$i < 50000} {incr i} { if { $type == 0
• A Paginated Canvas Widget
  24 Sep 2018 — pages } method {page create} {args} { set prev [lindex $pages end] if {$prev eq ""} { lassign {0 0 0 0} x1 y1 x2 y2 } else { lassign [$prev coords] x1 y1 x2 y2 } lassign [$self
• A plot of the Andrica conjecture
  31 Aug 2014 — lrange $primes 0 [expr {$number-1}]] } # # Create the plot # package require Plotchart pack [canvas .c -width 800 -height 800] set p [::Plotchart::createXYPlot .c {0 3000 500} {0 0.8 0.2
• A plugin replacement for proc supporting lambdas and ensembles
  06 Feb 2014 — placed in the public domain. # package provide proc 1.0 # Move original into the ::tcl namespace if {[llength [info commands ::tcl::proc]] == 0} { rename ::proc ::tcl::proc } ::tcl::proc ::proc args { if
• A pocket Wiki
  08 Sep 2012 — w get 1.0 1.end] \t] 0] if {$title ne ""} { set p($title) [string trim [$w get 2.0 end] \n] ;# save previous page } $w delete 1.0 end if ![info
• A poor man's grid computing
  19 Sep 2012 — server [connect_tuplespace LOGsrv logsrv] puts "Client connected to tuple server" set task 0 set tasks 0 set expected 0 while {1} { set rc [::logsrv::runProgram $server $task] if { $rc eq "done
• A poor mans GUI
  29 Oct 2013 — in the text! # # package require PMG namespace import ::PMG::* realParameter length 0.0 realParameter width 0.0 realParameter height 0.0 realParameter volume logicalParameter save_data "Save data" defineForm form { Length = [length
• A Primitive POP3-based Spam Killer
  22 Jan 2012 — set pop [::pop3::open $host $user $pass]} eresult]} { log "No connection: $eresult" return 0 } log "Opened ..." set done 0 set lasthigh -1 while {!$done} { set done 1 log "Retrieving list ..." set posts
• A Program That Learns
  19 Jun 2011 — written on Windows XP on eTCL # working under TCL version 8.5.6 and eTCL 1.0.1 # TCL WIKI , 5Aug2010 console show set entra "say hello" proc call aa { global entra
• A question of style
  20 Jan 2016 — whether called from inside or outside expr. Without the curly braces, the if receives 1 or 0 as argument, and this wouldn't cost much parsing time either ;-) '''LH:''' Thanks y'all
• A quota-enforcing virtual filesystem
  22 Jan 2012 — lindex [array names ::vfs::template::quota::mtimesArray] 0] 0] ,] 0] foreach mIndex [lsort -dictionary [array names ::vfs::template::quota::mtimesArray]] { set mIndex [lindex $mIndex 0] set fileName [string range $mIndex [string length
• A regexp twist
  23 May 2012 — i''. set nr 0 set start 0 while {1} { set subs [regexp -inline -indices -start $start -- {[IO10l]{10,}} $txt] if {$subs eq ""} {break} set beg [lindex [lindex $subs 0] 0] set start
• A Sample Tcl Package File (for use in a repository)
  11 Oct 2012 — Sources: http://www.sample.org/sample.zip Provides: sample-1.0 sample::parser-1.0 Requires: tclxml-1.0 tdom-1.0 Exports: sample::init sample::doit sample::main Platforms: Windows-x86
• A Screenshot Widget implemented with TclOO
  04 Jan 2018 — width 0 set height 0 array set edge { at 0 left 1 right 2 top 3 bottom 4 } array set drag {} array set curdim {x 0 y 0 w 0 h 0
• A Scrolled Widget implemented with TclOO
  08 Nov 2011 — switch -- $value1 { 0 - none { set auto(ew) 0 ; set auto(ns) 0 } vertical { set auto(ew) 0 ; set auto(ns) 1 } horizontal { set auto(ew) 1 ; set auto(ns) 0 } 1 - both
• A Server Template
  27 Jun 2013 — init \ -certfile server-public.pem \ -keyfile server-private.pem \ -ssl2 1 \ -ssl3 1 \ -tls1 0 \ -require 0 \ -request 0 # fix this if you change the ports variable above. lset ports 1 1
• A set of Set operations
  21 Jun 2011 — white} != $S} 1 {Set {red white} <= $S} 1 {Set $S < $S} 0 {Set $S > $S} 0 {Set {red white} >= $S} 0 {Set $S has "white" as element} 1 {Set $S has "white
• A Simple Bloom Filter
  25 Mar 2015 — bf bits] set newbits 0 set combinedHash $hash1 for {set i 0} {$i < $numHashes} {incr i} { set index [expr {$combinedHash % $size}] incr newbits [expr {$bits & (1<<$index) ? 0 : 1}] set bits [expr
• A simple BWise to VHDL example
  25 Apr 2015 — Port ( i : in std_logic_vector(1 downto 0); o : out std_logic_vector(1 downto 0)); end component; begin -- LED(0) <= SW(0); -- LED(1) <= SW(3); -- a fixed bit pattern
• a simple chat server
  30 Nov 2014 — line eq ""} return if {[string index $line 0] eq "/"} { set cmd [split $line] set cmd [linsert $cmd 1 $sock] if {[catch {eval $cmd} error] != 0} { puts $sock "* $error" return } } else { sendText "$::socks
• A simple database
  21 Nov 2017 — a simple database consists only of setting an initial value for the ID: ====== set db(lastid) 0 ====== Let's consider a library application for an example. Adding a book to the database
• A Simple Fan Animation
  28 Apr 2016 — c - - -row 0 -sticky news grid .lspeed .sspeed .colors -sticky ew grid .lblades .sblades .about -sticky ew grid rowconfigure . 0 -weight 1 grid columnconfigure . 1 -weight 1 } proc DrawFan {{arg 0}} { global
• a simple file-viewing text widget
  07 Feb 2016 — set f [open $filename r] set data [read $f] close $f .t delete 0.0 end .t insert 0.0 $data ====== ---- And [Marty Backe] posted this as a follow-up: ====== package require
• A simple Font Viewer
  06 Mar 2018 — canvas .c -bd 0 -height 0 -highlightthickness 0 ;# Just for resizing by pixels scrollbar .sb -orient vertical -command {.t yview} text .t -wrap none -yscrollcommand {.sb set} -width 0 pack .sb -fill
• A simple GUI for decision trees
  02 Mar 2015 — previous button next { set area [expr {4.0*acos(-1.0)*$radius*$radius}] set volume [expr {4.0*acos(-1.0)*$radius*$radius*$radius/3.0}] show "result" } } window "result" "Area and
• A simple mechanical system
  22 Jan 2012 — FREE 1.0 0.1 10.0 0.1 1.0 1.0} ;# Implicitly FIXED} bs_initial { 1.0 0.0 0.0 } set stoptime 10.0 set timestep 0.02 run
• A simple package example
  10 Jul 2011 — with the source and ''pkgIndex.tcl'' below ${tcl_install_directory}/lib. ====== namespace eval futil { set version 0.1 } proc futil::read {filename} { set fp [open $filename] set string [::read $fp] ;# prevent name
• A simple program with complex behaviour
  19 Jul 2010 — position } } if { $position > $last } { set position 0 } puts "$memory(1) $memory(2)" } } # main -- # set position 0 set memory(1) 0 set memory(2) 0 set program(0) {INCR 1} set program(1
• A simple serial terminal
  02 Mar 2015 — f 0 -weight 1 grid columnconfigure $f 0 -weight 1 return $f.text } ##### main ####### set chan [open $Term(Port) r+] fconfigure $chan -mode $Term(Mode) -translation binary -buffering none -blocking 0 fileevent
• A Simple Shot 'em Up in Tcl/Tk
  27 Apr 2016 — 3. * $ch) } ] $c create rectangle \ 0 0 $cw $ch \ -tags { boundary } \ -width 0 $c create rectangle \ 0 0 $cw $dark \ -tags { background background-dark } \ -fill gray10 \ -width 0 set gradient [ expr { $dark
• A simple slideshow
  01 Mar 2016 — incr current_slide -1 } "begin" { set current_slide 0 } "end" { set current_slide $number_slides } default { return } } if { $current_slide < 0 } { set current_slide 0 } if { $current_slide >= $number_slides } { set current
• A simple slipchart
  13 Aug 2010 — c {0.0 100.0 10.0} {0.0 100.0 20.0}] proc gendata {slipchart xold xd yold yd} { set xnew [expr {$xold+$xd}] set ynew [expr {$yold+(rand()-0.5
• A Simple Solution to Bug Location
  25 Aug 2014 — any loss of efficiency in execution is of secondary importance, considering that everyone is buying 3.0 Ghz boxes these days. And yes, I am a one time FORTRAN programmer, so the
• A simple version of Eliza
  02 Mar 2016 — set forever 1 break } else { ::Talk::replyto $line after 0 oneline } } else { after 1000 oneline } } proc phonecall {} { global responsive puts "Trrriiiing!" set responsive 0 after 300 {puts "Damn"} after 600 {puts "Excuse
• A Simple Wiki with Outlook backend
  03 Aug 2012 — proc decodeUrl data { regsub -all {\+} $data { } data regsub -all {([][$\\])} $data {\\\1} data regsub -all {%([0-9a-fA-F][0-9a-fA-F])} $data {[format %c 0x\1]} data set data [subst $data
• A size-bounded cache
  21 Sep 2018 — cached {arrName key args} { upvar #0 $arrName arr if {![info exists arr($key)]} { set arr($key) [eval $args] if {[llength $arr()]>=$arr(maxSize)} { unset arr([lindex $arr() 0]) set arr() [lrange $arr
• A small editor in 8.5.0
  11 Jul 2017 — 0 -row 0 -sticky nsew grid configure [set mframe].x -column 0 -row 1 -sticky ew grid configure [set mframe].y -column 1 -row 0 -sticky ns grid columnconfigure [set mframe] 0
• A small example of a widget serving a program
  02 Mar 2015 — ycentr if ( ierr .eq. 0 ) then dx = x - xcentr dy = y - ycentr if ( dx .ne. 0.0 .and. dy .ne. 0.0 ) then angle = atan2(dy,dx) + 0.2 rad = sqrt(dx
• A small font chooser
  04 Sep 2013 — http://www.geocities.ws/thezipguy/misc/A_small_font_chooser.png] ====== #!/bin/sh # \ exec wish "$0" -- "$@" package require Tk set i {} proc color {type} { global i set color [tk_chooseColor -initialcolor [$i
• A socket bridge
  11 May 2011 — as an exercise. ====== array set socks {} proc makebridge {p0 p1} { set l0 [socket -server [list connect 0] $p0] set l1 [socket -server [list connect 1] $p1] } proc connect {p sock addr port
• A SQLite table widget
  22 Nov 2017 — with the [Object-oriented SQLite wrapper]. ====== package require Tk package require tableview_sql package provide tableview 0.1 namespace eval tableview { class create tableview { constructor {hullname sql tbl} { my variable hull set
• A tachometer-like widget: type 1
  31 Jul 2013 — 50.0*4.0}] [expr {$width/50.0*4.0}] \ [expr {$width/50.0*46.0}] [expr {$width/50.0*46.0}] \ -start -70 -extent 320 -style arc \ -outline black -width 0
• A Tcl parser in Tcl
  10 Jun 2011 — still in state of $type" return 0 } if {[string length $tok]} { return 1 } return 0 } set ::level 0 proc parse s { global level set i 0 set tok "" set type "" loop { set
• a tcl script for function value listing based on a fortran expression
  28 Jan 2013 — float in, out; float x, start, stop, incr; if (argc == 1) { start = -10.0; stop = 10.0; incr = 2.0; } else exit((int) -1); for (x=start; x<=stop; x+=incr) { in
• A Tcl_Obj Command Machine Code Generator
  26 Apr 2014 — Tcl_Interp *interp) { if (NULL == Tcl_InitStubs (interp, TCL_VERSION, 0)) return TCL_ERROR; if (TCL_ERROR == Tcl_PkgProvide (interp, "codeproc", "1.0")) return TCL_ERROR; defcmd (compile_cmd, "compile"); defcmd (long
• A tcllib based smtp mailer package
  07 Mar 2015 — mailargs 0 smtp::sendmessage $token]] # ----------------------------------------------------------- mime::finalize $token # an empty list indicates everything's went well with the mail server if {[llength $ret] == 0} { return 0 } return $ret } # ------------------------------------------------------------------------- # SMTP - test ... # ------------------------------------------------------------------------- if 0
• A TclOO megawidget based on ttk::scale implementing -resolution option (xscale)
  05 Feb 2017 — 2.0 \ -variable test3 \ -command echo2 \ -showvalue 1 \ -compound "right" pack $top.scl1 -expand yes -fill x set test4 10 xscale::xscale $top.scl2 \ -from 0 -to 40 -resolution 2.0 \ -variable
• A TclOO tablelist template
  29 Aug 2016 — linsert $auto_path 0 [file join $this_file ".." "contrib" ]] package require Tk package require TclOO package require tablelist_tile package provide xtablelist 0.2 namespace eval xtablelist { variable cnt 0 # this is
• A tDOM Tutorial
  26 Sep 2018 — root selectNodes /orders/order/customer/text()] # Parse node1 from the returned list. set node1 [lindex $nodeList 0] # Parse node2 from the returned list. set node2 [lindex $nodeList 1] # Display their values puts
• A template reflected channel
  29 Nov 2011 — desired in a reworked template filesystem (forthcoming). if 0 { ######################## stackchan.tcl -- Written by Stephen Huntley (stephen.huntley@alum.mit.edu) License: Tcl license Version 0.1 An attempt to create a simple
• A template virtual filesystem
  29 Nov 2011 — seek $channelID 0 } w+ { lappend stackmode read lappend stackmode write seek $channelID 0 } a { lappend stackmode write seek $channelID 0 end } a+ { lappend stackmode read lappend stackmode write seek $channelID 0 end
• A Thread-Safe Message Queue
  12 Oct 2011 — Thread 2.6 package provide mqueue 0.2 namespace eval mqueue { namespace export create destroy push pop proc ::mqueue {subcommand args} { uplevel 1 [linsert $args 0 ::mqueue::$subcommand] } tsv::lock ::mqueue { if
• A tiny drawing program
  03 Sep 2012 — w var values {col 0}} { frame $w set type [expr {$col? "-background" : "-text"}] foreach value $values { radiobutton $w.v$value $type $value -variable $var -value $value \ -indicatoron 0 if $col {$w.v
• A tiny notebook
  06 Sep 2013 — frame command set w [lindex [info level 0] 0] switch -- $cmd { add {notebook'add $w $args} raise {notebook'raise $w $args} default {eval [linsert $args 0 _$w $cmd]} } } return $w } proc notebook
• A tiny primitive x86 compiler
  16 Aug 2012 — because would could! :) ---- ====== set state "" set token "" set cmd [list] set lastchar "" set bracecount 0 set labelcount 0 array set commands { proc proc-command puts puts-command return return-command } proc assert
• A tiny state machine
  03 Jul 2012 — the first of the states. ====== proc statemachine states { array set state $states set next [lindex $states 0] while 1 {eval $state($next)} } ====== ---- [RS] 2006-08-26: Three years later, I like this
• A tiny Tcl server
  18 Nov 2012 — post\?CMD=(.+) HTTP} [lindex $query 0] -> cmd set cmd [unescape [string map {+ " "} $cmd]] catch {uplevel \#0 $cmd} res lappend ::buffer "$now % $cmd" $res puts $sock "HTTP/1.0 200 OK" puts $sock
• A tiny URL extractor
  18 Sep 2013 — 0} {return ""} string range $s [expr {$i + 4}] [string first \n $s $i] } proc main {argc argv} { if {$argc < 2} { return -code error "outfile infiles ..." } set out_fd [open [lindex $argv 0
• A tiny version control
  07 Dec 2013 — f1 [open $fn] set f2 [open [_fmt $fn $n]] set diff 0 while {[gets $f1 a]>=0 \ && [gets $f2 b]>=0} { if {$a ne $b} { puts "< $a\n> $b"; incr diff if
• A Tk GUI for multiple XSLT processors
  07 Jun 2011 — grid columnconfigure .log 0 -weight 1 grid columnconfigure .log 1 -weight 0 grid rowconfigure .log 0 -weight 1 grid rowconfigure .log 1 -weight 0 grid rowconfigure .log 2 -weight 0 } proc saveProtocol
• A Tk viewer for MJPEG streams
  22 Apr 2017 — args 0 [uplevel 1 [list namespace which $cmd]] } proc myvar {varname} { uplevel 1 [list namespace which -variable $varname] } proc schedule {cmd args} { after idle [list after 0 [uplevel 1 [linsert $args 0
• A toy piano
  19 Oct 2012 — see the single finger that plays pack $c wm resizable . 0 0 ;# keep the window fixed-size foreach factor {0.25 0.5 1 2 4} { foreach name $names freq $freqs { set
• A Toy Pump Controller
  22 Jan 2014 — 1.0 + cos($alpha))}] \ [expr {$radius * (1.0 + $dir*sin($alpha))}]] } set canv [canvas .c -width $size -height $size] pack $canv $canv create oval 0 0 $size $size set pos 0 ;# start
• A Tree class using TclOO
  25 Apr 2015 — bool} != 0 } { #puts "bool: $bool" # shutdown the walk return 1 } } if { [my BfsPreOrderWalk [my DecendOneLevelForward ${nlist}] ${cmdprefix}] != 0 } { return 1 } return 0 } # -- # method BfsPostOrderWalk { nlist cmdprefix } { if { [llength ${nlist}] == 0 } { return 0
• a triangle puzzle
  30 Jul 2013 — expr {round($w/2.0 + $len * ($col - $row / 2.0))}] return [list $x $y] } ##+########################################################################## # # GetBottom -- returns coordinates of all bottom side vertices # proc GetBottom {n} { for {set c 0} {$c <= $n} {incr
• A triangle toy
  05 Mar 2013 — 10 0 200 0 .c create line 0 10 0 -200 bind .c <1> {tap %W %x %y} bind .c <Up> {movePt %W 0 -1} bind .c <Down> {movePt %W 0 1
• A User's Guide to Tcl/Tk
  28 Sep 2018 — say "Application initialization failed: this isn't a Tk applicationcouldn't connect to display "myserver:0.0""?*** The bottom line is that you are likely trying to run an X Window System
• A versioning virtual filesystem
  18 Jul 2011 — if [string equal $element1 $element2] {return 0} set sorted [lsort -dictionary -decreasing "$element1 $element2"] if {[lindex $sorted 0] == $element1} {set returnValue -1} if {[lindex $sorted 0] == $element2} {set returnValue 1} set time1
• A vertical-tab notebook
  09 Aug 2012 — name } frame .0 button .0.load -image [img open.gif] -command ".v open" button .0.save -image [img save.gif] -command ".v save" LabelEntry .0.f -label " Find: " -textvariable Find .0.f
• A Very Simple Weather App
  02 Mar 2015 — the NOAA weather page # by Keith Vetter, December 2003 package require Tk package require http 2.0 # METAR weather info # cooked: http://weather.noaa.gov/weather/current/KVTA.html # raw: http://weather
• A very simple window manager
  14 Jul 2015 — is my solution for * handling the focus * moving the window ====== package require Tk package provide vlxwm 0.1 namespace eval vlxwm { } namespace eval vlxwm::focus { variable helper } namespace eval vlxwm::move { variable
• a way to 'pipe' from an external process into a text widget
  02 Mar 2017 — end } proc transmit {} { global chan log "\$ [.input get]\n" input puts $chan [.input get] .input delete 0 end } proc receive {} { global chan log [read $chan] } entry .input scrollbar .scroll -orient vertical -command
• A Webcam setup with tcl scripts
  02 Mar 2016 — after these scripts have been run. The main Tcl cgi script is: ====== #!/bin/sh # \ exec tclsh "$0" "$@" # puts stdout "Content-type: text/html\n" puts stdout "<html>" puts stdout "<a href=\"http
• A Website-Specific Password Generator
  02 Mar 2015 — 10 -pady 2 grid $f -sticky ew grid $tb -sticky ew grid columnconfigure . 0 -weight 1 wm resizable . 1 0 wm title . "Site Password" trace add variable ::master write UpdatePW trace add
• a widget serializer
  06 Jan 2012 — set text "" array set defarr { -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 -padx 0 -pady 0 -side top -columnspan 0 -rowspan 0 -sticky {} -bordermode inside } if {$manager=="place"} { set
• A-star
  04 Jul 2011 — cost } private { variable _x "" variable _y "" variable _myCost "" } public { variable pathParent "" variable costFromStart 0.0 variable estimatedCostToGoal 0.0 method getCostNoArg {} { return [expr {$costFromStart + $estimatedCostToGoal}] } # Gets the cost between this node and
• A.T Koroma
  13 Feb 2018 — fetchConf] && [file size $fetchConf] > 0 } { set cfg [open $fetchConf r] while {![eof $cfg]} { set cfgLine [gets $cfg] ; set ftpSrv [lindex [split $cfgLine :] 0] if { [string range $ftpSrv 0 0] != "#" } { set ftpuser [lindex
• A/V Sync Calculator
  30 Nov 2017 — the moment I suggest grabbing the KBS 0.4.4 build of Tcl/Tk 8.6, available here [http://sourceforge.net/projects/kbskit/files/kbs/0.4.4/WindowsNT_kbsvq8.6-gui
• About the WIki
  14 Feb 2018 — wiki still running (after http://c2.com/%|%WikiWikiWeb%|%). The http://wiki.tcl.tk/_/revision?N=0&V=0%|%first edit on its first page%|% dates from 1999-02-19. In early 2007
• abs
  01 Jul 2011 — abs($x)}} ---- [AMG]: In Tcl 8.4.7, `expr {abs(-0.0)}` returns `-0.0`. In Tcl 8.6b1, it returns `0.0`. This is on an Intel Xeon platform running CentOS
• Abstract base classes with TclOO
  27 May 2016 — function in the class. This means that the function has no body, but is declared with `= 0`. A pure virtual function cannot be called, thus the class cannot be used to create
• Accessing C library functions using Critcl
  22 Jan 2012 — 0; } initgroups(name,pwd->pw_gid); setgid(pwd->pw_gid); setuid(pwd->pw_uid); return 1; } critcl::cproc setuid {char* name} int { struct passwd *pwd = getpwnam(name); if (pwd == NULL) { return 0
• accordion - yet another TclOO implementation
  03 Apr 2018 — propagate $thisframe 0 # All panes fill the available horizontal space grid columnconfigure $thisframe 0 -weight 1 # The first pane is initially open, once it will be created grid rowconfigure $thisframe 0 -weight
• accumulate and collect
  23 Feb 2016 — 1} { set args [lindex $args 0] } lappend ::accumulator {} set code [catch {uplevel 1 $args} result] switch -- $code { 0 {} 3 break 4 continue default { set ::accumulator [lrange $::accumulator 0 end-1] return -code
• Accumulator Generator
  15 Feb 2016 — acc [foo 1] acc 2; # returns 3 set acc2 $acc acc -3; # returns 0 acc 0; # returns 0 acc2 0; # returns 3 ====== If the closure is instead a proc (which stores data
• Accumulator Generators
  15 Feb 2016 — get a (hopefully) unique name proc $name "i {n $n}" { set self [lindex [info level 0] 0] set n [expr {$n+$i}] proc $self "i {n $n}" [info body $self] set n
• Acronym collection
  21 Sep 2012 — which requires a grid-of-characters oriented device. See Ctk [http://www.du.edu/%7Emschwart/ctk8.0.tar.gz] or SCO's VTcl for two examples of Tcl CUI extensions. * '''[CVS]''' - Concurrent
• AcTcl
  01 Jun 2014 — Basic] (versions 4, 5, and 6), [Delphi], Powersoftware, MS [Excel], etc. to embed the Tcl 8.0 interpreter in their application. Also look for TclAxLib, an ActiveX DLL which exports the axload
• ActionPackageDemo
  28 May 2015 — an # error if we didn't find it. foreach optSet [::action::configure $act] { switch -- [lindex $optSet 0] { -text {$w configure -text [lindex $optSet 1]} -image {$w.img configure -image [lindex $optSet 1
• Actions
  29 May 2015 — the toolbutton and menu item? Maybe something like: ====== action .edit.cut -state normal -label "Cut" -underline 0 -accelerator Ctrl-C \ -command ... -image CutImg .edit.cut configure -state disabled ====== This would actually create
• ActiveDirectoy Query using Twapi COM
  06 Nov 2017 — recordSet RecordCount]} { while {![$recordSet EOF]} { set d [dict create] set o [$recordSet Fields] for {set i 0} {$i < [$o Count]} {incr i} { set item [$o item $i] dict set d [$item Name
• ActiveState Style for Tk
  23 Nov 2010 — view scroll $delta units}] < && [winfo toplevel $w] ne $w} { --- > while {[catch {if {[$w $view] ne {0.0 1.0}} { > $w $view scroll $delta units}}] > && [winfo toplevel $w] ne $w} { ====== <<categories>> Package | GUI
• ActiveTcl
  12 May 2018 — a missing package. However, the "teacup list" generated the following error message on Windows 7: ======none 0 entities found ====== Problems which occurred during the operation: ======none * http://teapot.activestate.com : Error in
• ActiveTcl (Frankinet)
  25 Sep 2013 — What:| ActiveTcl (Frankinet)| |Where:| On request: http://www.gistek.net/ '''[[website gone]]'''| |Description:| Tcl 8.0 binding to ActiveX. Tcl commands can be registered in the target language (VB, Delphi, etc.). ActiveTcl
• actor model using coroutines
  01 Mar 2014 — I've got real work to do now: ====== package require Tcl 8.6 package provide actor 0.1 namespace eval ::actor { namespace export {[a-z]*} namespace ensemble create proc create {name} { # An
• Ad Break Timer
  21 Mar 2014 — hrs > 0 ? "${hrs}h " : "" } ][ expr { $min > 0 ? "${min}m " : "" } ]${sec}s } # =========================================================================== # # compute-total calculates the total time contained in all intervals in the # data parameter proc compute-total { log } { set total 0
• Ada
  30 Nov 2013 — PRO from AdaCore: GNAT-Modified GPL (Not cost free) *** TASH - TclAdaShell *** Latest release: tash-8.6-0-20110925.zip {date 2011-09-25 size 263.2 kB} License: GPL with "Linking Exception
• AdabasTcl
  30 Dec 2012 — ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/sorted/databases/adabastcl-1.0/adabastcl-1.0.tar.gz Description: Extension to Tcl that provides access to an '''ADABASE D''' [database
• Adam
  06 Jan 2012 — products/renderman/toolkit/RISpec/ http://www.seas.gwu.edu/student/gritz/bmrt.html Description: Tk 8.0 based binding for the [RenderMan] library. Provides a simpler interface for people who don't
• Adaptive Huffman Coding
  07 Jul 2011 — e0) set trees($sym) [$tree insert $n 0] $tree set $trees($sym) 0 set trees(e0) [$tree insert $n 1] $tree set $trees(e0) 0 set symbols($trees($sym)) $sym set symbols
• adatcl
  30 Dec 2012 — adatcl.html. ===none What: '''adatcl''' Where: ftp://ftp.cs.colorado.edu/pub/cs/distribs/arcadia/adatcl2.0.tar.Z ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/sorted/packages-7
• adb
  29 Aug 2017 — Examples of how to use it** To initalise a table: ====== proc AthletesDBKey { rec } { return [[lindex $rec 0]] } set structure { {no "Licence number" 10 p alphanum} {firstname "First name" 20 {} alphanum} {surname "Surname
• add
  05 Mar 2013 — DAMAGE. # ##################################################################### proc add { a b } \ { set sum [ expr "$a" * "$b" ]; return $sum; }; ##################################################################### # # Test suite: # # add 0 0 == 0 # # add 2 2 == 4 # # Passed on Apr 1, 2005 - phb # ##################################################################### ====== Acknowledgement: part of the
• Add "Console Font" menu item in "Prefs" menu of tkcon
  28 May 2015 — ActiveTcl-8.6/bin/wish8.6" "$0" ${1+"$@"} +exec "/opt/ActiveTcl-8.6/bin/wish8.6" "$0" ${1+"$@"} # ## tkcon.tcl @@ -82,6 +82,7 @@ variable EXPECT 0 } + ## ::tkcon::Init - inits tkcon # # Calls
• Add a time stamp to each line of output
  06 Jul 2018 — find channel named \"$fd\"" } set argc [llength $args] if {$argc == 0} { return $cfg($fd) } if {$argc == 1} { set opt [lindex $args 0] if {[dict exists $cfg($fd) $opt]} { return [dict get $cfg
• Add tk fontchooser Dialogue To tkcon prefrences menu
  28 May 2015 — 0300 +++ tkcon 2014-08-04 12:11:33.123918860 +0300 @@ -82,6 +82,10 @@ variable EXPECT 0 } +proc ::tkcon::fontchooserFontSelection {w font args} { + + $w configure -font [font actual $font] +} ## ::tkcon::Init - inits
• Added new options and commands to widgets
  22 Sep 2014 — widName} { variable widInfo set val [$widName configure] set options {} foreach v $val { lappend options [lindex $v 0] } set widInfo([set widName],nativeOptions) $options } proc isNativeWidgetOption {widName optionName} { variable widInfo return [expr [lsearch
• Adding 'history' to BWidget ComboBox widgets.
  30 Aug 2013 — w get] set b [$w list get 0 end] #check to see if value already there.. if { [lsearch -exact $b $a] == -1} { $w list insert 0 $a } } proc show {args} { cmb_history
• Adding a hashed datatype
  07 Mar 2015 — 1 2 3 values = one two three map = 0 -1 0 -1 0 -1 0 -1 2105051955 2 -2061914958 4 0 -1 1977051568 0 get 1 = one get 2 = two get 3
• Adding Points to gnocl::canvas Line Items
  09 Sep 2013 — orientation vertical] $box add $canv -fill {1 1} -expand 1 $box add $but -fill {0 0} -expand 0 $canv itemConfigure dots -fill darkgreen gnocl::window -title "Canvas" -child $box -onDestroy exit -widthRequest
• Adding Tcl/Tk to a C application
  20 Jan 2014 — 1, infile ) ; pstr[filesize] = '\0' ; rc = Tcl_Eval( tcl_interp, pstr ) ; if ( rc != TCL_OK ) { fprintf( stderr, "Error loading script library\n" ) ; return 1 ; } free( pstr ) ; return 0; } /* Function for encapsulating the
• Adding text widget tags using regular expressions
  16 Sep 2012 — t -regexp {(^|;)\s*\#.*$} 1.0 end { %W tag add comment %s %e } tag .t -regexp {".*?"} 1.0 end { %W tag add string %s %e } tag .t -regexp {\${.*?}} 1.0 end { %W tag
• Adding Tk to an Existing Xt Program
  19 Sep 2013 — NULL, 0, &argc, argv, NULL, 0 ); dis = XtDisplay (win); screen = DefaultScreen (dis); buttonShell = addXtBox ("mainPanel", win); testButton = XtVaCreateManagedWidget ( "Press Me", commandWidgetClass, buttonShell, NULL, 0 ); button = XtVaCreateManagedWidget ( "Exit", commandWidgetClass, buttonShell, NULL, 0 ); xtBox2
• Adding User Data to Widgets the Megawidget Way
  17 Jun 2011 — upvar #0 ::userdata'data ary set ary($w) {} proc $w {subcommand args} [substvars w { set w %%w%% if {![string compare $subcommand "setUserData"]} { upvar #0 ::userdata'data ary switch [llength $args] { 0 { return
• Adding, multiplying and composing functions
  07 Dec 2011 — the sum # of the value of the two functions # proc + {f g {fargs {}}} { if { [llength $fargs] == 0 } { list + $f $g } else { expr {[$f $fargs]+[$g $fargs]} } } # * -- # Compute the product of two functions
• Additional math functions
  08 Jan 2017 — a 0 ====== seems to give the correct result for all integer values and floating point values not equal to 0. 0.0 (and 0.00 etc) [[string compare 0.0 0]] returns
• Advanced browser management
  07 Mar 2015 — The site to visit set referer http://www.referringsite.com/ ;# The "faked" referring site set flags 0 ;# Any flags to send set targetframe "" ;# Where to display visited site set postdata "" ;# Any post
• Advanced Math in JTcl
  17 Jul 2017 — sdevValue? ?-complex? set m [matrix create -rows 5 -cols 4 -randn 0.3] # or matrix create -rows 5 -cols 4 -randn 0.3 -var m ====== using the 2nd form ensures that, in
• Advanced Regular Expression Examples
  17 Feb 2016 — spaces in that substring are converted to underscores (_). '''Code: ''' ====== while { [regsub -all {(\[\[[^] ]+) (.+?\]\])} $thebody {\1_\2} thebody] > 0 } {} set idx [regexp -inline -all -indices {\[[^]]*\]} $txt] foreach pair $idx { foreach {start end} $pair { break
• AES CTR
  27 Feb 2015 — lrepeat 4 0]] for {set i 0} {$i < [* $Nb 4]} {incr i} { lset state [% $i 4] [int [floor [/ $i 4.0]]] [lindex $input $i] } set state [addRoundKey $state $w 0 $Nb] for
• aes with critcl
  04 Oct 2015 — Tcl_Obj * resObj = Tcl_NewListObj (0,0); Tcl_Obj * tempObj = NULL; int i; int r0,r1,r2,r3,s0,s1,s2,s3; Tcl_WideInt w; for (i=0;i<4;i++) { Tcl
• Affine transforms on a canvas
  16 Oct 2013 — dx dy} {list 1 0 0 1 $dx $dy} proc reflect-x {} {list 1 0 0 -1 0 0} proc reflect-y {} {list -1 0 0 1 0 0} proc shear {sx
• after idle
  14 Jan 2012 — is no good choice because: [Update considered harmful]. Instead use something like ====== after idle [list after 0 $myCommand] ====== where `$myCommand` does one step of a multi-step calculation and calls the above
• After Task Scheduler
  27 Dec 2011 — return } reset.tasks set task [lindex $tasks(list) 0] possibly.start.task $task after 1 [list start.task $tasks($task) [lindex $run_queue 0]] } proc find.next.task.sequential {task algorithm end
• Agents, sprites and young programmers
  13 May 2012 — cos($dir/180.0*3.1415926)}] set ynew [expr {$yold+$dist*sin($dir/180.0*3.1415926)}] if { $xnew < 0.0 } { set xnew [expr {$xnew+$width}] } if { $ynew < 0.0 } { set ynew
• AggTk
  21 Aug 2015 — provides. [Image AggTk-0] [Image AggTk-1] **Download** * '''AggTk 0.1''' [http://downloads.sourceforge.net/project/irrational-numbers/AggTk-0.1.zip] 19-Aug-2015 - Windows Binary Package * '''AggDevKit 0.1''' [https
• Aifl: dynamically generated files
  25 Apr 2015 — program open .aifl files transparently. # This is accomplished by redefining the 'open' command. package provide aifl 0.1 # We have to make sure that Aifl is not loaded more than once. if
• AIN
  24 Oct 2014 — cheeses::fromage#0 # fromage#0 is an array in the namespace ::cheeses parray $c0 #=> ::cheeses::fromage#0(animal) = cow #=> ::cheeses::fromage#0(country) = #=> ::cheeses::fromage#0(hardness) = firm #=> ::cheeses::fromage#0(name
• AitCS
  26 May 2018 — Setto/Exists/Unset/Variable Reference aitcs new fruits fruits= apple orange pear apricot 0 if {![fruits? peach]} { fruits= peach 0 } array names [fruits&]; # {apple orange pear apricot peach} fruits- p* a* array
• Ak extension
  07 Sep 2015 — dec.com/pub/misc/ak-0.7.tar.Z <<br>> ftp://crl.dec.com/pub/DEC/AF/ <<br>> ftp://ftp.ibp.fr/pub/tcl/ak/ak-0.7.tar.gz| | Description:| Audio
• AKG Wikit
  08 Sep 2015 — number <num> To display an unformatted version, e.g. for WikiDiff to consume, use /<num>&?fmt=0. The "History" link on each page displays the version summary for that page. The tclhist
• Akismet spam filtering
  07 Jan 2018 — c) 2007 Jean-Claude Wippler # http://www.opensource.org/licenses/mit-license.php package provide akismet 0.1 package require http # see http://akismet.com/development/api/ # # blog (required) # The front page
• alarm
  14 Aug 2013 — a floating point number, so fractions of a second may be specified. If ''seconds'' is 0.0, any previous alarm request is canceled. Only one alarm at a time may be active
• Alex Caldwell
  25 Apr 2015 — Linux powered PDA [http://www.softfield.com/vr3.html] based on Steven Uhler's html_library-0.3. I think it was the first web browser on the VR3 that could do
• Alexander Schöpe
  04 Sep 2018 — code. See: [Who owns the content on this Wiki]. ---- First Contact: * August 1998, Tcl/Tk 8.0 My contributions: * [HowTo find com object enums for tcom using registry] * [HowTo export Microsoft Outlook
• Algebraic Types
  17 Jun 2014 — value]} { return 0 } if {[lindex $pattern 0] ne [lindex $value 0]} { return 0 } foreach pat [lrange $pattern 1 end] val [lrange $value 1 end] { if {![matches $pat $val env]} { return 0 } } return
• alias
  18 Jan 2013 — argc { 0 { foreach alias [lsort [interp aliases]] { puts "\[$alias\] -> \[[interp alias $interp $alias]\]" } } 1 { set alias [lindex $args 0] puts "\[$alias\] -> \[[interp alias $interp $alias]\]" } default { set alias [lindex $args 0] set
• Alists for Tcl
  25 Apr 2015 — 1 {lindex $alist [lindex $path 0]} 2 {lindex $alist [lindex $path 0] [lindex $path 1]} 3 {lindex $alist [lindex $path 0] [lindex $path 1] [lindex $path 2]} 0 {error "No key specified
• Alphabet Wheel
  02 Feb 2014 — w x y args} { set id [eval $w create poly {\ 30 0 0 50 20 45 20 135 0 155\ 0 200 30 170 60 200 60 155\ 40 135 40 45
• alternate.listbox.colors
  09 Jul 2012 — set colCount 0 set colListLength [llength $colList] for {set i 0} {$i < $listWinEnd} {incr i} { $listWin itemconfigure $i -background [lindex $colList $colCount] incr colCount if {$colCount >= $colListLength} { set colCount 0 } } } ====== Use it
• Alternative dialogs for pocketPC/etcl
  15 Aug 2010 — Expose> {::etcl::autofit %W} ::etcl::autofit $top } else { wm geometry $top 240x[expr {320 - 51}]+0+0 } } else { wm geometry $top 240x[expr {320 - 51}]+[expr {[winfo pointerx .] - 120}]+[expr {[winfo pointery
• alternative getopt
  27 Jun 2016 — create pattern missing argument 0] set arg(unknown) [dict create pattern unknown argument 0] set arg(argument) [dict create pattern argument argument 0] if {[llength [info commands ::help]] == 0} { interp alias {} ::help
• Alternative GUI toolkits
  01 Jul 2016 — and Motif 1.2.1. Some Motif 2.0 support is present, but it is based on a beta release of Motif 2.0. A mailing list is available on mailto:listserv
• Alternative Namespaces
  25 Jan 2012 — proc {win32} {args} { set namespace [lindex [info level 0] 0] if { [llength $args]==0 } { puts "[info procs [concat $namespace *]]" } else { [concat $namespace [lindex $args 0]] {*}[lrange $args 1 end] } } proc {win32 media
• AlternativeToExec
  29 Apr 2013 — only implementation in Tcl on top of exec and open. http://bazaar.launchpad.net/~li-anye-0/+junk/tcl-stuff/view/head:/exec2.tcl Because it is built on top of exec
• Amazon AWS Lambda & Tcl
  08 Jul 2016 — 4; var child_process = require('child_process'), tcl_proc = null, done = console.log.bind(console), fails = 0; (function new_tcl_proc() { // pipe stdin/out, blind passthru stderr tcl_proc = child_process.spawn
• Amazon.de PreOrder
  13 Sep 2015 — exec [auto_execok start] $preOrderUrl &; return; } proc product {{gui 0}} { global productUrl; while {1} { set productUrl [clipboard get]; if {[string length $productUrl] == 0} { set rc [tk_messageBox \ -parent . \ -icon error \ -type okcancel
• ambiguous result with "info hostname "
  04 Nov 2010 — sj.com and ip-address is 10.0.0.225 But Tclsh8.4 command : "[info hostname]" returns - localhost.localdomain and ip-address is 127.0.0.1 Expected is the same behavior
• aMSN
  10 Mar 2014 — http://www.amsn-project.net/ Description: Multi-lingual Tcl client for MSN Messenger Currently at version 0.97.2 Updated: 07/2008 Contact: See web site Portable version: http://portableapps.com/apps
• An arc clock
  30 Sep 2016 — horizon is included (the constant 0.8333). See mathforum reference for other suggested values of the refraction constant. ====== set pi [expr {4*atan(1)}] set L 51.0 ;# latitude of observation set
• An Audio Server
  04 Sep 2012 — change it to use ogg or flac. ---- ====== set ::clients [list] set ::songs [list] set ::song_offset 0 set ::song_fd "" set ::packet "" array set ::ready {} proc ready sock { global ready clients set
• An entry with a history
  05 Mar 2013 — w where} { variable $w variable n$w upvar 0 $w hist incr n$w $where if {[set n$w]<0} {set n$w 0} if {[set n$w]>=[llength $hist]+1} { set
• An equation solver
  30 Dec 2012 — source differentiate.tcl const width 10.0 const length 3.0 const height 7.0 var volume {$width*$height*$length} puts "Volume: $volume" set width 4.0 puts "Volume: $volume" # # Now something
• An error experiment
  12 Jul 2016 — code} if {$line eq {p}} { set self [info level -1] puts "$self {[info body [lindex $self 0]]}" continue } if {$line eq {c}} break catch {uplevel 1 $line} res puts $res } } ====== The test
• An example of data objects
  17 Mar 2013 — Plotchart::createXYPlot .c {-2 2 0.5} {-2 2 0.5}] bindplotdata $p circle x y set x {} set y {} set pi 3.1415926 for {set i 0} {$i <= 100} {incr i
• An example wherein Expect controls a pager
  25 Mar 2013 — more_prompt %) set shell_prompt {$ } set go_ahead_reply " " set example_textfile /etc/passwd log_user 0 spawn more $example_textfile expect -- $more_prompt { send $go_ahead_reply puts "The current display
• an extension to subst
  17 Jun 2014 — tcl8.5/TclCmd/uplevel.htm proc subst {args} { set level 0 set complain true set inplace false set switches {} for {set i 0} {$i < 7} {incr i} { set c [lindex $args $i
• An HTTP robot in Tcl
  16 Oct 2013 — while 000 and 001 aren't # assigned. :-) for {set i 999} {$i >= 0} {incr i -1} { for {set j 0} {$j <= 99} {incr j} { # use format to pad our string appropriately with
• An Improvement to Colliding Balls
  07 Jul 2012 — x)}] if {$h != 0.0} { set cos [expr {$x / $h}] set sin [expr {$y / $h}] } else { # ... exceptional case depends on the application # ... oftentimes [set sin [set cos 0.0]] is appropriate } This
• An indentation syntax for Tcl
  01 Sep 2015 — levels $i emit $x dedent 0 emit "" set r [join $v::result \n] while {[llength $r] == 1 && [lindex $r 0] ne $r} set r [lindex $r 0] ;# strip top level indentation return
• An Interactive Approach to Experimenting with Tcl
  04 Jun 2012 — tcl_platform wrong # args: should be "array set arrayName list" % array get tcl_platform osVersion 5.0 byteOrder littleEndian machine intel platform windows os {Windows NT} user suchrich wordSize 4 % pwd D
• An interactive tclsh with an event loop (but no Tk)
  06 Jan 2012 — 1 } { append buffer "$line\n" if { [info complete $buffer] } { if { $buffer ne "\n" } { catch {eval uplevel #0 [list $buffer]} res if { [string length $res] } { puts $res } } puts -nonewline "% " flush stdout fileevent stdin
• An interactive tutorial for Plotchart
  13 Aug 2010 — xbar - -sticky news grid columnconfigure $frame 0 -weight 1 grid columnconfigure $frame 1 -weight 0 grid rowconfigure $frame 0 -weight 1 grid rowconfigure $frame 1 -weight 0 .textw.t window create end
• An Introduction to Tcl Scripting
  18 Sep 2015 — 0 foreach i $args { incr s $i } return $s } sum 1 2 3 4 5 #-> 15 sum #-> 0 ====== ---- Errors * Errors normally abort commands in progress, application displays error message: ====== set n 0
• An option dialog
  13 Sep 2015 — w {0 1} -uniform 1 -weight 1 bind $w <Return> {set ::tk::Priv(button) 1} bind $w <Destroy> {set ::tk::Priv(button) 0} bind $w <Escape> {set ::tk::Priv(button) 0} if
• An Order Entry and Wireless Data Collection System Using Tcl and SQLite
  22 Nov 2017 — it hit him: why do b-trees? [DRH] has already created [sqlite]. Second design (Wheel 2.0): * Shoehorn in SQLite in 2 hours * Proof of concept turned production * Runs reliably 24/7
• An Overview of Tcl and Tk
  05 May 2005 — bin/wish4.0 listbox .list -yscroll ".scroll set" \ -width 20 -height 20 pack .list -side left scrollbar .scroll -command \ ".list yview" pack .scroll -side right -fill y if {$argc > 0} { set dir
• Anagrams
  01 Dec 2013 — usingTemplate} { if {![string match $template $word]} {continue} } set discard $letters set flag true for {set i 0} {$i<[string length $word]} {incr i} { set match [string first [string index $word $i] $discard
• Analog widgets
  27 Jan 2014 — xcentre 200 set ycentre 200 for {set i 0} {$i < $num} {incr i} { set radius [expr {20.0*$i}] set orient [expr {360.0/$num*$i}] set x1 [expr {$xcentre-$radius}] set
• Analyse the Normalized Benchmarks by Category
  20 Jan 2013 — console show} proc parseData {data {bestIndex 0}} { global vl svl typeNames array set types {} foreach line [split $data \n] { set head [string trim [string range $line 0 45]] set tail [string trim
• Analysing geographical data with NAP
  14 May 2012 — 0, 30.0, 2)" nap "population = fillCircle($population, $x, $y, 40.0, 10.0, 10.0, 3)" # # The plume of smoke # nap "conc = 40.0 * gaussian($x, $y, 0.0, 0.0
• Analyzing combined filter types with BWise graphs for Jack
  25 Apr 2015 — change: ... set ot [lindex $ot 0] if {[lsearch $o $ot] <0 } {lappend o $ot} ... to: set ot [lindex $ot 0] global $ot.filtertype if {[lsearch $o $ot] <0 && [set $ot.filtertype] == 1
• Analyzing Remote Sensing Data with NAP
  23 Feb 2016 — NDVI NAO should have same shape as red or near NAO $NDVI shape plot_nao NDVI(,,0) ########Another approach, using a multi-band hdf, derived from a multiband geotiff using GDAL, nap
• Anatomy of a NexTk Widget
  19 Sep 2015 — managedby {} \ _children [list] \ reqwidth $width reqheight $height \ minwidth -1 minheight -1 \ x 0 y 0 width $width height $height rotate 0 \ obj [megaimage-blank $width $height] \ _redraw [list] \ _destroy [list] \ _focus [list
• Android - An Open Handset Alliance Project
  18 Feb 2018 — graphics powered by a custom 2D graphics library; 3D graphics based on the OpenGL ES 1.0 specification (hardware acceleration optional) * SQLite for structured data storage * Media support for common audio, video
• Android SDK
  30 Apr 2015 — code error [list $response $msg] } } proc main {argc argv} { set hostname localhost #set hostname 127.0.0.1 set port 5037 set chan [socket $hostname $port] send $chan host:transport-any send
• AndroWish and SQLite
  25 Apr 2015 — set] -yscrollcommand [list ${t}sy set] -height 0 -width 0 -ipadx 4 $t tag col entries 1 $t tag configure entries -anchor e $t width 0 18 scrollbar ${t}sy -orient vert
• AndroWish Feature Requests
  18 Jun 2016 — composer {} album_id 38 track 4 year 2015 is_ringtone 0 is_music 1 is_alarm 0 is_notification 0 is_podcast 0 bookmark {} album_artist {} volid 1633892149 alive 1 artist_id
• AndroWish On Genymotion
  28 Feb 2014 — Superlinux]'s tests on Genymotion. %|Device name|Android Version|API number|Screen size|Notes|% &|WSVGA 7.0 inch Tablet|4.1.1|16|1024x600|Does not work. see adb logcat: E/libEGL
• AndroWish usbserial
  11 Dec 2016 — when executing usbserial command from [Androwish] [chw] this is unfortunate. If your tablet is Android > 4.0 it should work, however one of my tablets with Android 4.2 doesn't support
• AndroWish: Devices
  02 Feb 2018 — Qualcomm MSM8974 / SnapDragon 800|4.2.2||& &|TrekStor Breeze|ARM Cortex-A9|4.0||& &|Xiaomi MI A1|Snapdragon 625/Octa-core 2.0 GHz Cortex-A53|8.0.0||& <<categories>>Android | AndroWish
• AndroWish: Documentation
  28 Jul 2014 — phi}] -extent -300.0 -tags a } } wm attributes . -fullscreen 1 canvas .c -bg black -bd 0 -highlightthickness 0 pack .c -side top -fill both -expand 1 -padx 0 -pady 0 set f
• AndroWish: Icon
  10 Aug 2014 — Thanks. [JM] Could you try this link to get the file? http://ge.tt/4trrMqS1/v/0?c and a 2nd option: https://dl.dropboxusercontent.com/u/81659128/android.ai [RLE] (2014
• AndroWish: Ideas
  02 Feb 2015 — see note below. 2. WifiP2P (peer to peer) integration. This is a feature of Android >= 4.0. It enables direct ad-hoc Wifi connectivity between Android devices. 3. Other Android goodies, e
• Andy Goth
  06 Mar 2015 — the "if 0" stuff, it doesn't even work on that page. It's not formatted correctly; there's a missing close brace. This wiki has moved away from [if 0 {] a
• Angles and directions
  22 Jan 2012 — of story? No, there is a singular point (x,y) = (0,0), well actually the whole half-line y = 0, x <=0, is singular, as with y just positive, the result of
• Angles on a compass
  14 May 2012 — 1 359] -2 assert_equal [anglediff 0 180] 180 assert_equal [anglediff -10 10] 20 assert_equal [anglediff 360 0] 0 assert_equal [anglediff 180 -180] 0 assert_equal [anglediff -10 340
• AniGif
  21 Aug 2015 — lindex $list 0] set list [concat [lrange $list 1 end] [list $res]] set res } proc every {ms body} {eval $body; after $ms [info level 0]} set file [lindex $argv 0] pack [text
• Animated Circles
  11 May 2017 — 1+hypot([winfo screenwidth .]/2,[winfo screenheight .]/2)/10)}] set xy [list 0 0 0 0] for {set i 0} {$i <= $r} {incr i} { .c create oval $xy -outline green -width 5
• Animated cyclist
  05 Mar 2013 — create poly 210 60 240 65 230 0 205 0 185 35 195 45 205 40 -fill white .c create oval 200 -30 230 0 -fill pink -outline {} .c create line 210
• Animated Kanji
  05 Mar 2013 — 0.4} { lappend res $x $y set a1 $a2 } set x1 $x set y1 $y } if [info exists x] { lappend res $x $y } else { concat $res $res ;# for single points } } if 0
• Animated Starfield
  02 Oct 2012 — yVector * 0.2) * $speed}] } else { set newYe [expr {$ye - int($yVector * 0.2) * $speed}] } # --- if new start coord is off the screen, reset it "near" the # vortex center if {$xe < 0 || $xe
• Animated Vertical Tabs
  19 Sep 2015 — height $opt(gui,y) for {set i 0} {$i < 6} {incr i} { buildTab $i } place $w.v -in $w -relheight 1.0 -x 0 -y 0 # END GUI #################### } GUI # key bindings bind
• Animations and Timing issues
  03 Dec 2012 — return 0 } package require Tk proc timed_event {interval} { global count lastclock timediff_old set currentclock [clock microseconds] after $interval timed_event $interval incr count set timediff [expr {($currentclock - $lastclock)*0.01
• animngext
  06 Feb 2014 — fd [open [lindex $argv 0] r] fconfigure $fd -translation binary set obj [animng [read $fd]] close $fd set frames [$obj gettotalframes] set images [list] for {set i 0} {$i < $frames} {incr i
• Anjuta
  06 Feb 2014 — and syntax highlighting for quite a number of programming languages, including [Tcl]/Tk. Requires libzvt 2.0 Currently at version 1.2.2 . Updated: 10/2004 Contact: See web site === <<categories>> Application
• Annotating words for better specifying procs in Tcl9
  15 Oct 2014 — an embedded expression, so it calls something like "eval 0" (which would mean something like "evaluate my args array starting from index 0." Said eval occurs, returning a new args array {"1
• Another Collapsible Label Frame
  07 Dec 2011 — columnconfigure $frame 0 -weight 1 grid rowconfigure $frame 0 -weight 1 grid $lframe -sticky news grid columnconfigure $lframe 0 -weight 1 grid rowconfigure $lframe 0 -weight 1 grid columnconfigure $win 0 -weight
• Another dials widget
  23 May 2017 — variable "" orient horizontal width 80 height 8 step 10 value 0.0 slow 0.1 fast 10 bindwheel 2.0 scale 1.0 } proc err_out {err {msg ""}} { if {$msg eq ""} { set
• Another diff in tcl
  30 Jun 2012 — regexp -- {^\s*$} $line1] && [regexp -- {^\s*$} $line2]} { $cmdEqual {} continue } # From here both lines are unequal set state 0 while {[regexp -- {^\s*$} $line1]} { # If unequal then directly state empty lines in <file1> as deleted
• Another font chooser dialog - based on tablelist
  06 Mar 2018 — tablelist::tablelist $tbl \ -columns { 0 "Font Name" left 0 "fixed" center 0 "Sample text" left 0 "Font ID" right } \ -labelcommand tablelist::sortByColumn \ -yscrollcommand [list $vsb set] -width 0 \ -spacing 1 \ -showseparators yes
• Another little file search
  18 Jun 2011 — args 0] != 0 && [lindex $args 0] != 1} { set level 0 } else { set level [lindex $args 0] set args [lrange $args 1 end] if {$level == 1} { set searchRecursiv 1 while {[llength $args] > 0
• Another little value dialog
  02 Sep 2011 — w {0 1} -uniform 1 -weight 1 bind $w <Return> {set ::tk::Priv(button) 1} bind $w <Destroy> {set ::tk::Priv(button) 0} bind $w <Escape> {set ::tk::Priv(button) 0} wm
• Another Make Replacement
  19 Sep 2012 — automating the process of generating ([Windows]) binaries that are branded with your data.| || Currently at version 0.1 .| | Updated:| 01/2007| | Contact:| See web site, but [EF] will do| <<categories>> Dev. Tools
• Another MDI
  19 Sep 2015 — w -bd 0 pack [frame $w.titlebar -bg gold -relief raised -cursor fleur] -side bottom -fill x pack [label $w.titlebar.resize -text o -bg darkred -relief flat -bd 0 \ -cursor sizing
• another minimal Tcl object system (XOTcl like syntax)
  18 Mar 2013 — string index ${-var} 0] eq "-"} { variable $newname\::[string trimleft ${-var} -] $val } } proc $newname\::[namespace tail $newname] {command args} { if {$command eq "set" || $command eq "unset"} { variable [lindex $args 0] } $command {*}$args } #proc
• Another simple database
  21 Nov 2017 — could be turned to [dict] later): ====== proc mkindex table { set fields [lindex $table 0] array set a {} set i 0 foreach row [lrange $table 1 end] { incr i foreach field $fields value
• another tabbed notebook megawidget
  07 Aug 2011 — ns}::scrollleft $w] -highlightthickness 0 -width 2 -padx 0 -state disabled button $w.right -text > -bd 1 -command [list ${ns}::scrollright $w] -highlightthickness 0 -width 2 -padx 0 -state disabled button $w
• Another Tcl module maker
  30 May 2016 — tclfiles and/or maximally one DLL. } if {[llength $argv] == 0} {puts stderr $usage; exit 1} proc main argv { set package [lindex $argv 0] set version [lindex $argv 1] set outf [open ${package
• Another try at COND.
  28 Sep 2018 — b} {puts 1} when {$a} {puts 2} when {$b} {puts 3} } puts after } check 0 1 check 1 0 check 1 1 ====== ... and now my attempt a solution. This now passes my
• Another version of the starDOM XML editor
  28 Nov 2013 — att 0] } } proc starDOM::Eval {query} { variable info catch {uplevel #0 $query} res ;# execute any Tcl command puts "% $query\n$res" if {[string length $res]>70} {set res [string range $res 0
• anoved
  13 Mar 2013 — time $script $iterations]] set end [clock microseconds] set total [expr {$end - $start}] return [list [lindex $average 0] $total] } ====== ***Recent Projects:*** * '''[Shapetcl] [https://github.com/anoved/Shapetcl#shapetcl]''': A C extension that provides
• Answered Questions On: Advanced Tcl
  30 Oct 2004 — control data1 data2} [lranges $message 1 1 5] {break} instead of set opcode [lrange $message 0 0] set control [lrange $message 1 1] set data1 [lrange $message 2 6] set data2 [lrange
• Answered Questions On: Basic Tcl
  14 Nov 2009 — fconfigure $f -translation binary set data [base64::encode [read $f]] close $f if {[llength [info level 0]] == 2} { set name [file root [file tail $img]] } set image [image create photo [list $name
• Answered Questions On: Databases
  19 Sep 2015 — arc/*.Z"]] > 0 } { puts <oramessage>YES</oramessage> puts <oraresult>-1</oraresult> } else { puts <oramessage>NO</oramessage> puts <oraresult>2</oraresult> } or, if {[catch {glob "/cognos_data/ORADATA/arc/*.Z"}] == 0} { puts <oramessage
• Answered Questions On: File & Socket I/O
  30 Oct 2004 — hope somebody can help e with this. GrtZ, Theo [NEM] Try: set filename [string range $predefined 0 2][clock seconds] where $predefined is the string you mention. If you want the date
• Answered Questions On: Interprocess Communication
  07 Jan 2018 — wish-interpreters, wish1 and wish2. In wish1 you create a variable: ======none % set x(val1) 0 0 ====== My question: How can I make x accessable for wish2? See [Tequila]. It will handle
• Anton Kovalenko
  13 Jul 2014 — sugar for forward-compatible {*}] * [SnODBC] - [TclODBC] clone reimplemented with [Ffidl] and [SNIT], with some ODBC 3.0 support * [TkTray] - System tray icon support for Tk on X11. '''Other:''' * [Winserv] - another option for
• Ants
  11 Jul 2014 — 1,2,1) = 0, c(1,3,1) = 0, c(1,2,3) = 0, c(1,3,3) = 0, c(1,2,2) = 0, c(1,3,2) = 0. Eq+CP+mS
• anytop
  20 Sep 2012 — term::ansi::send fconfigure stdin -blocking 0 fileevent stdin readable consume set ::status "Reading ..." set ::start [clock seconds] set ::lines 0 set ::counts {} set ::eof 0 proc consume {} { if {[gets stdin data
• ao3
  31 Aug 2018 — to tweak the result set result [_lookupStat $this warning] if {[lindex $result 0] eq "No Archive Warnings Apply"} { lset result 0 "" } return $result } proc ::AO3::kudos_left_by {this} { # The list of
• ao3ToEpub
  31 Aug 2018 — tempdir] "ao3_epubCreator_$id"] file delete -force $tmpdir file mkdir $tmpdir set ao3 [::AO3::New $id 0 cache] puts "[$ao3 url]\n" $ao3 save [file join $tmpdir raw.html] set title [$ao3
• AOL Instant Messaging
  29 Jul 2011 — AIM). This provides console only users the ability to use AIM. Currently it is at version 0.17. Updated: 05/1999 Contact: mailto:smike at users dot tmok dot com What: TiK
• AOL Instant Messenger
  16 Dec 2012 — Messenger (AIM). This provides console only users the ability to use AIM.| || Currently it is at version 0.17.| | Updated:| 05/1999| | Contact:| smike at users dot tmok dot com | <<categories>> Internet
• AOLserver
  12 Feb 2015 — site has various add on modules, including version 0.2 of source code to support OpenSSL on AOLServer 3.0b4, as well as version 0.2 of source code to support Netscape
• apache server with tcl cgi scripts running on safe user
  14 May 2012 — the server being actually in use: the cgi-bin tcl script outline: ====== #!/bin/sh # \ exec tclsh "$0" "$@" # puts stdout "Content-type: text/html\n" proc notallowed {a} { puts stdout "This cgi script
• apache tcl cgi script with serial port access
  20 Sep 2015 — I used this test script to drive a serially connected xilinx chip using a apache (2.0 Fedora Core4,64bit) and get 4 bytes of info back from it, it serves as
• APIC
  08 Sep 2003 — Identifier: APIC Version: 0.3a3 Title: APIC Creator: Marco Maggi Rights: GNU General Public License URL: <http://web.tiscali.it/marcomaggi/software/> Available: 2003-09-08 Depends: UTP <http://web.tiscali.it
• APLish
  08 Oct 2012 — s {}}} { if {$s==""} { set s "L{<-}(L{iota}':'){drop}L{<-},L @ x{epsilon}y{and}z>0" } regsub -all {\{\{} $s \x81 s ;# protect double braces regsub -all {\}\}} $s \x82 s foreach {a
• Apple Macintosh and Tcl/Tk
  05 Mar 2013 — front window of BBEdit or Alpha to the Application wish. For BBEdit ( I am using 6.0.1...) place the following script into the Scripts folder in BBEdit support. I named the
• Applet
  30 Jul 2011 — code here ... } else { $w configure -bg white ; # ... or here } } } for {set r 0} {$r < 10} {incr r} { for {set c 0} {$c < 10} {incr c} { grid [label .${r}$c -text "row $r
• AppleTalk
  24 Mar 2014 — as 10.1, socket 50. [http://developer.apple.com/techpubs/mac/NetworkingOT/NetworkingWOT-57.html#HEADING57-0] [http://developer.apple.com/macos/opentransport/docs/dev/Inside_AppleTalk.pdf] [http://www.cisco.com
• Application preferences with gnocl::keyFile
  20 May 2012 — 0 bottom=100 center=50 sides=100 [Scan] type=tif resolution=400 threshold=128 mode=binary format=tiff x=210 y=297 l=0 t=0 i=0 prefix=img- last=0
• Applications in Tcl and Tcl/Tk -- Old
  08 Sep 2013 — manager written in Tcl/Tk, allowing easy file type associations to multiple applications. Latest version v1.0.2. Updated: 07/1999 Contact: mailto:yur@konark.ncst.ernet.in * TkMC What: TkMC Where
• Applications using Tile
  25 Apr 2015 — page an example is given of how to create your own theme. ''Update'': Version 1.4.0 has just been released, and the main difference is that it uses the tile's
• apply
  28 Sep 2018 — lassign $fun argList body ns set name ::$ns::[getGloballyUniqueName] set body0 { rename [lindex [info level 0] 0] {} } proc $name $argList ${body0}$body set code [catch {uplevel 1 $name $args} res opt] return
• applying the parallel port to drive a LED and read a switch from tcl
  27 Jan 2012 — lest significat = 0) you put the led on lpt_wrctrl 0; # hopefully put the right printer port in output mode lpt_wrdata [expr 1 << $output_bit] or lpt_wrdata 0 instead of
• APWTCL
  29 Jun 2012 — intp)') === [apw] 2012-02-22: Sorry forgot to mention: I have only tested with firefox 10.0.1. Will try to fix the problems asap. [MartinCleaver] 2012-06-28 Any further on
• APWTCL (Java)
  20 Apr 2012 — for that implementation is Tcl 8.6 and Itcl 4.0 including a lot of the snit functionality implemented in Itcl 4.0. When running the [wtk] test suite one can see
• APWTCL (Objective C)
  16 Jul 2012 — for that implementation is Tcl 8.6 and Itcl 4.0 including a lot of the snit functionality implemented in Itcl 4.0. When running the [wtk] test suite one can see
• aqtools
  25 Mar 2014 — org/~js/aqtools/ Older links, now dead: ftp://ftp.procplace.com/pub/tcl/sorted/packages-8.0/apps/jstools/ ftp://ftp.shore.net/members/js/ Updated: 08/2007 Contact: See the web
• ar
  01 Dec 2014 — ar_name eq "//"} { set strtable $dta } if {$aropt eq "-x" && ([llength $archs] == 0 || [lsearch -exact $archs [string trim $ar_name "/"]] >= 0)} { set df [open $ar_name w] fconfigure $df -encoding binary -translation
• Arabic Character Renderer For Readability In TCL/Tk
  22 Aug 2015 — widget_path k} { #Caution!!! *DO NOT* delete the next line of [set event_counter 0] . set event_counter 0 proc local_text_binding_for_rtl {text_widget_path k} { #Algorithm: #%k is
• Arbitrary Rectangle Selection
  10 Jan 2012 — 0 ? -$left : 0}] set left [::Data::Max $left 0] set pad(t) [expr {$top < 0 ? -$top : 0}] set top [::Data::Max $top 0] set pad(r) [expr {$right > $w ? $right-$w : 0
• arcencode
  23 Feb 2013 — 83.928420000 35 -83.97948699748273 25.000000 -83.000000 15.00000000000 -83.9279400000 0.9600 -83.9275623435 35.90 -0.90 35.900 -83.00 35.000 -83.000 35.90000 -83
• Are there any recommendations or requirements regarding what order code appears in a Tcl program
  28 Sep 2011 — package''' commands which serve for the issue at hand: package require SimpleDevLibProgram declare-program { simpleprogramexample } -version { 0.1 } -synopsis { A program example. } -overview { Program example which computes the reciprocal of a number
• argc
  21 Apr 2016 — of which are different from C's `argc`). ====== # program usage requires at least one argument if { $::argc eq 0 } { puts "USAGE: $::argv0 argument" exit 1 } ====== ---- **See also** * [argv] <<categories>> Internals | Tcl syntax
• argp
  22 Nov 2012 — command line arguments or the args proc argument. Supports implicit type and value checking.| || Currently version 0.2 .| | Updated:| 10/2001| |Author:| [Bastien Chevreux]| | Contact:| mailto:bach@mwgdna.com (Bastien Chevreux)| <<categories
• argparse
  24 Aug 2018 — from 1 to 10 % ex1 -from 1.0 -to 100.0 -increment 0.1 from 1.0 to 100.0 increment 0.1 debug 0 ====== '''another basic example''' ====== proc cmdline {args} { puts
• args
  17 Aug 2018 — test 0 ; # 'args' set without a default value in the declaration of proc 'test' 0 1 % test 0 a 0 a % test 0 a b c 0 a b c % test 0
• Argument Parsing, a discussion
  05 May 2017 — s command definition format? ====== lsearch -index 0 $data $value regexp -nocase -all $regex $data ====== and instead prefer to choose one of the following? ====== lsearch -index 0 -data $data -value $value proc regexp
• Argument to a Command
  01 Dec 2013 — invokehidden {} $self create [lindex $args 0] $xylist -outline $penc The command now needs two layers of {}{} to keep the interpreter name as "blank": lappend command [lindex $args 0] $xylist -outline $penc eval
• argv
  28 Nov 2013 — tcl/sorted/packages-7.6/devel/sntl-0.4.2.tar.gz ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/devel/sntl-0.4.2p1.patch.tar.gz Description: A
• arithmetic
  29 Jun 2016 — Computer arithmetic is not the same as grade-school arithmetic; for example 0.1 + 0.1 is unlikely to be 0.2. See: 1. [Fixed-point arithmetic] 1. [Decimal arithmetic] 1. [Decimal
• Arithmetics with strings
  14 May 2012 — x ""]} 7 {s->num [s- "" ""]} 0 {s->num [s* $x $y]} 28 {s->num [s* $x ""]} 0 {s->num [s/ $x $y]} 1 {s->num [s/ "" $y]} 0 {s->num [s% $x
• Arity corner cases in math commands
  14 May 2012 — llength $args]<2} {set args [linsert $args 0 0]};return [expr [join $args +]]} proc - {args} {while {[llength $args]<2} {set args [linsert $args 0 0]};return [expr [join $args -]]} proc * {args} {while
• Arnulf Wiedemann
  24 Feb 2018 — wrapper package for the OpenGL ES 2.0 library and [FreeType] fonts. * [ntkThemed] is a new implementation of Tk widgets based on OpenGL ES 2.0 and itcl-ng. * [TclGles20] is a
• array
  16 Mar 2017 — none set list [list 0 {} 2] set a(zero) value set a(one) {} set a(two) value % isempty2 list 0 0 % isempty2 list 1 1 % isempty2 a zero 0 % isempty2 a one
• Array enumeration
  19 Dec 2016 — multiple times. To reset listPtr before calling Tcl_ArrayNames(), truncate it by calling Tcl_SetListObj(listPtr, 0, NULL). ****int Tcl_ArraySize(interp, part1Ptr, part2Ptr, intPtr, flags)**** Obtains the array size. part2Ptr can
• array exists
  12 Aug 2018 — an array. ** Synopsis ** : '''`[array] exists`''' ''`arrayName`'' ** Description ** Returns '''`1`''' if ''`arrayName`'' is an array variable, or '''`0`''' if there is no variable by that name or if the variable is not an
• array get
  12 Aug 2018 — passed as listin. For instance: ======none > iSort {1 b 0 a} {0 a} {1 b} ====== rather than: ======none > iSort {1 b 0 a} 0 a 1 b ====== Adding a `join` to the
• array set
  12 Aug 2018 — using lindex: ====== set port {a 1} array set val [list [lindex $port 0] [lindex $port 1]] set val([lindex $port 0]) ;# -> 1 ====== Note that `array set` does not remove variables which already
• array size
  12 Aug 2018 — number of variables in the array. If ''`arrayName`'' isn't the name of an array then '''`0`''' is returned. Example: ======none % array set arr {foo 1 bar 2 grill 3} % array size
• arraybytesize
  01 Dec 2014 — to 49.0 MB (which is more human-readable than 49000000 bytes isn'it ?). ====== set myarray [arraybytesize create %AUTO%] $myarray configure -rank 2 $myarray configure -verbose 1 $myarray setdimension 0 3500 $myarray
• Arrays / Hash Maps
  25 Apr 2015 — NodeR [list D1 0 D2 0 D3 0 D4 0 D5 0 Power 0] % puts "[array get NodeR]; D4 0 Power 0 D5 D1 0 D2 0 D3 0 [MS] An array
• arrayval
  14 May 2010 — a if { ![array exists a] } { error "\"$array\" isn't an array" } set lines [list] set max 0 foreach name [array names a $pattern] { set len [string length $name] if { $len > $max } { set
• arrexpr
  08 Jun 2017 — would recommend against using `arrexpr` for anything but amusement. ***Code*** ====== namespace eval ::arrexpr { namespace export * upvar #0 {} {} set () {} trace add variable {} {array read write unset} ::arrexpr::tracer } proc ::arrexpr::tracer {name index
• Arrow buttons
  18 Aug 2013 — press a button" grid .buttons -row 0 -pady .05i grid .lbl -sticky ew grid columnconfigure . 0 -weight 1 grid .upleft .up .upright -in .buttons -row 0 grid .left .star .right -in .buttons
• Arrow Illusion
  14 May 2012 — rand()] if {$ntries>10} { Scores } else { redraw 0 ;# draw the new lines } } proc Scores {} { global len angle reflen suml ntries if {$ntries>0} { set sum 0 foreach score $suml { puts "Score $score
• Artefact
  07 Jun 2014 — http connections. Object behavior can be in JavaScript, [Java], [C++] and [Tcl]. Build for Solaris 2.6 and Digital Unix 4.0. Updated: 06/1998 Contact: mailto:artersch@persimmon.com === <<categories>> Internet
• artificial intelligence
  01 Feb 2018 — AI Topics page]: [http://www.cs.cmu.edu/afs/cs.cmu.edu/project/ai-repository/ai/0.html%|%The CMU AI Repository]: [http://aima.cs.berkeley.edu/ai.html%|%AI on the
• Aryabhat Bhaskara (I) Stick Shadows and eTCL demo example calculator, numerical analysis
  16 Jan 2017 — fillup 10.0 16. 30.0 12.0 1.0 1. 50. 60.} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 15.0 18.0 35.0 12.0 1.0 1
• ASCII animation
  09 Dec 2013 — ASCII_ProgressBar::count 0 set ASCII_ProgressBar::p "#" puts -nonewline "${message} \|| 0%\r" flush stdout set ASCII_ProgressBar::msg $message } proc increase {n {timer 0}} { for {set i 0} {$i < $n} {incr
• ASCII Mandelbrot
  29 Apr 2018 — set b -2.0} {$b < 1.0} {set b [expr {$b + 0.04}]; puts -nonewline [expr {($b > 1) ? "\n":[format %c $h]}]} { for {set r 0; set n 0; set h 127
• Ashish patnaik
  28 Aug 2012 — if the only content is the # single digit "0". while {[set line [gets $fhandle]] >0} { set hitlist [split $line] set hostname [lindex $hitlist 0] if {[info exists counter($hostname)]} { incr counter($hostname
• Ask, and it shall be given # 13
  16 Oct 2018 — full extents of photo photoName width height : explicit width and height, top left defaults to (0,0) photoName left top width height : explicit width, height, and top left coordinates targetPhoto will be
• Assembly code example
  15 Feb 2011 — 12\0" .globl _countdown .def _countdown; .scl 2; .type 32; .endef _countdown: pushl %ebp movl %esp, %ebp subl $24, %esp movl 8(%ebp), %eax movl %eax, -4(%ebp) L10: cmpl $0, -4
• assert
  08 May 2016 — package. * https://github.com/noyesno/Tcl-Assert%|%Tcl-Assert. One particular assertion [idiom] is the use of [incr] to ensure a variable holds an integer value: incr number 0 <<categories>> Concept | Correctness
• Asteroids
  03 May 2016 — array set score { ships 0 stage 0 shots_fired 0 accuracy 0 small_rocks 0 med_rocks 0 big_rocks 0 total_rocks 0 rocks "0 (0/0/0)" rating "ensign" } } proc
• async
  20 Sep 2018 — elseif {$arg in {-size -min -max}} { if {![llength $args] || ![string is entier [lindex $args 0]] || [lindex $args 0] <= 0} { return -code error "$arg switch must be followed by\ a positive integer" } set
• asynchronous methods
  05 Jul 2016 — is a single clock (1 0 1 0 1 0 ...) signal which lets operations take place at one of its 'edges' (a 1 --> 0 or a 0 --> 1 transition). The whole circuit
• asynchronous threads
  09 May 2015 — args [lrange $args 0 end-1] } else { variable script {} } variable prescript { namespace eval ::_thread { # call - run the script, return the full result proc call {script} { list [catch {uplevel #0 $script} e eo
• atan
  14 May 2012 — is 3/4*pi and the tangent for this vector is -1, but % expr atan(-1) -0.785398 i.e., the angle -1/4*pi, on account on the fact that this
• AtExit for tcl 8.5
  21 Jan 2012 — ensemble create; } if {0} { proc test1 {} { puts [info level 0]; gets stdin; } proc test2 {} { puts [info level 0]; gets stdin; error "test2 error"; } proc test3 {} { puts [info level 0]; gets stdin; return
• AtExit handlers
  21 Jan 2012 — uplevel #0 $proc}] { ::AtExit::print "...Failure in handler!" } } foreach proc $procs1 { ::AtExit::print "AtExit is calling finalizer <prio: [lindex $proc 0],proc [set proc [lindex $proc 1]]>" if [catch {uplevel #0 $proc
• atkdebugger
  16 Dec 2012 — Attributes ** author: [Artur Trzewik] software update date: 2004-01-15 version: 0.21 website: [http://www.xdobry.de/atkdebugger/index.html%|%xdobry.de%|%] ** Summary ** ATKDebugger is a C extension to provide specific
• Atlantis Cafe Illusion
  27 Jan 2012 — 458606,-2.599704&spn=0.008035,0.01502&t=h&z=16&iwloc=addr&layer=c&cbll=51.457037,-2.597771&panoid=G3p4akg0KuobytturvrcGQ&cbp=12,160.98307828774233,,0,5] The relative luminance
• attachment
  25 Mar 2014 — s try this again.} \ \n \n {Happy Halloween!} \ \n {Your friendly MASA Villages Staff} set i 0 while {[gets $rcpts rcpt] != -1} { set this_image [lindex $files $i] # create an image and
• Attracting objects on the canvas
  28 Apr 2016 — 0 foreach objs $magnet { set mobj [lindex $objs 0] if { $item == $mobj } { set toPoints [lrange $objs 1 end] break } incr idx } set line 0 foreach objs $magnet { set mobj [lindex $objs 0
• ATWF
  29 Jun 2017 — lines rewritten and the first web pages using apache 2.2.15 and rivet 2.0.0 are running including context switch between .html and .xml output depending on a format=... parameter
• Audio volume under tcl control through the parallel port
  26 Sep 2016 — pv1 pv2 set pv1 0 set pv2 0 lpt_wrdata 0 for {set i 7} {$i >= 0} {incr i -1} { lpt_wrdata [expr ([bitno $v1 $i] << 2) + 0 + 0] lpt_wrdata [expr
• AuthenticatedHttpOnWindows
  28 Jul 2014 — 1"] #Create the request $WinHttpComp Open "GET" $MyUrl 0 #If WinHttp thinks this is not an intranet website, set security to low. $WinHttpComp SetAutoLogonPolicy 0 #Send the Request, doing all the authentication
• Auto-Complete for Entry Widgets
  23 Sep 2017 — value ne "" && ($action == 1 || ($action == 0 && [string length $delta] == 1))} { set pattern [string map {\\ \\\\ \[ \\\[ \] \\\] * \\* ? \\?} $value]* set pop [lsearch -inline $valuelist $pattern] if {$pop ne {}} { $win delete 0 end $win insert end $pop
• auto-indent
  27 Jan 2011 — if 0 {[Richard Suchenwirth] 2006-02-12 - Here's ten lines of code that I really like. If you intend to indent your source code (like good coders should), on most editors
• auto_load
  22 May 2016 — named '''`tclIndex`'''. These are "Tcl autoload index files", and are formatted in two versions; version 2.0 contains commands set auto_index(::namespace::function_name) `$cmd` where `$cmd` typically sources a file
• auto_mkindex
  25 May 2014 — 0} {do_that 0} {do_gui 0}} { # do something shared # do something according to params } ====== file 1.tcl (executable, gui): ======none > ; proc xxx_init ... > standalone usage: 1.tcl: xxx_init 1 0
• auto_path
  23 May 2016 — treating it as a single value. Instead use something like ====== set auto_path [linsert $auto_path 0 /home/mystuff/someextension/unix] ====== or ====== lappend auto_path [file join $env(HOME) someextension unix] ====== Always
• autoclose
  07 Feb 2016 — 5 namespace eval ::autoclose { namespace eval vars { variable version 0.1; # Package version number variable generator 0; # Generator for identifiers variable captured 0; # Global I/O commands captured? variable debug ""; # Name of
• autocomplete
  11 Oct 2015 — false -stretch 0 \ -listvariable [acmpl::getWordlistVar] -columns {0 "word"} \ -background gray96 -stripebackground \#e0e8f0 -width 20 \ -showlabels 0 -selectmode single -yscrollcommand ".sby set" grid .t .l -sticky ewns grid columnconfigure . 0 -weight 1
• AutoCorrect
  08 Apr 2014 — is upper $_lastWord]} { set _autoCorrected [string toupper $_autoCorrected] } else { if {[string is upper [string index $_lastWord 0]] \ && [string is lower [string index $_lastWord 1]]} { set _autoCorrected [ string totitle $_autoCorrected ] } } # THIS IS WHERE
• AutoIt
  30 Jul 2016 — API long WINAPI AU3_ProcessWait(LPCWSTR szProcess, /*[in,defaultvalue(0)]*/long nTimeout); AU3_API long WINAPI AU3_ProcessWaitClose(LPCWSTR szProcess, /*[in,defaultvalue(0)]*/long nTimeout); AU3_API long WINAPI AU3_RegDeleteKey(LPCWSTR
• Automata in Tcl
  16 Oct 2013 — definingAutomaton set definingAutomaton $name upvar #0 automaton_$name a state($name) s array set a {} set s {} uplevel #0 $definition } proc node {key definition} { global definingAutomaton upvar #0 automaton_$definingAutomaton a set
• automatic .bak files
  24 Sep 2018 — The above code goes into an infinite loop if called with levels==0. I fixed it by adding: if {$levels==0} {return} ---- [LES] on Feb 15 2006: Maybe I am just doing
• Automatic differentiation
  28 Apr 2016 — 2.0+2.0*$x}]" } puts "sin(2x):" foreach x {0.0 0.5 1.0 1.5 2.0} { set xl [list $x 1.0] puts "[g $xl] -- [expr {2.0
• Automatic Reconnect Client Sockets
  18 Jan 2012 — the receiving socket proc fileevent $::sock r [list SockListener $::sock] set ::parser [expat] $::parser configure -final 0 -elementstartcommand HandleStart -elementendcommand HandleEnd puts "Connected to EventPub socket $::host:$::port" } errorString] } { log "proc EventPubConnect
• Automatically generate Bwise blocks from procedures
  25 Apr 2015 — tk*} $i] == 0 && [string match {tcl*} $i] == 0 && [string match {pkg_*} $i] == 0 && [string match {auto_*} $i] == 0 && [lsearch $defaultprocs $i] == -1 } { lappend o $i } }; .f.fu.l del 0 end; foreach
• automating itclproxy from ant
  30 Apr 2016 — As a side point, you can get to swank too (I compiled 3.0.0 against jtcl 2.8.0, it seems to work ...). This 'goes around' the apache BSF system. It
• Automating sftp with Tcl
  17 Aug 2012 — puts stderr ERRORCODE:$::errorCode puts stderr ERROR:$r return 1 } puts $r file delete _script_ return 0 } exit [main $::argc $::argv] ====== ---- '''Usage:''' $ pwd /home/gps/archive/public_html/tmp $ pubup foo.jpg
• autoopts
  21 Nov 2017 — your-main-proc?` Download: `curl https://gitlab.com/dbohdan/autoopts/raw/v0.4.0/autoopts.tcl > autoopts-0.4.0.tm` ** Use example ** *** Code *** ====== #! /usr/bin/env tclsh proc main {{input -} {--indent
• autoproxy
  16 Sep 2016 — options if {[llength $args] == 0} { foreach {opt value} [array get options] { lappend r -$opt $value } return $r } while {[string match "-*" [lindex $args 0]]} { switch -glob -- [lindex $args 0] { -ho* - -proxy_h* {set
• autosave
  24 Sep 2018 — date [clock format [clock seconds] -format "%Y%m%d"] set dir [mkdir $dir $date] set index 0 while {[file exists $dir/[incr index]_$file]} {} file copy $file $dir/${index}_$file } proc main
• awk
  11 Feb 2016 — filter 0} { if {[regexp {^/(.+)/$} $filter -> re]} {return [regexp $re $0]} set i 0 foreach field $0 {set [incr i] $field} expr $filter } ====== e.g.: ====== awktest {$1==$2} {foo bar grill} ;#-> 0. ====== `$0
• b6b
  12 Mar 2018 — dimkr/b6b |& &| Description | A scripting language inspired by Tcl, Python, Lisp, and shell. |& &| License | Apache 2.0 |& &| Updated | 2018-02 |& ** See also ** * [szl] ** Code Example ** ====== {$if [$== 4 3] { {$stdout writeln a} } { {$stdout
• Babylonian Babylonian Irregular Reciprocal Algorithm and eTCL demo example calculator, numerical analysis
  31 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• Babylonian Multiplicatiion Algorithm and example demo eTCL calculator, numerical analysis
  18 Feb 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• Babylonian Trapezoid Bisection Algorithm and eTCL demo example calculator, numerical analysis
  09 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• Babylonian Weight Riddle Problems and eTCL demo example calculator, numerical analysis
  09 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• Baccus
  24 Sep 2018 — snapshots. Baccus uses content addressable storage on the local filesystem for filesystem archival.| || Currently at version 0.1| || Note: this is pre-alpha development quality, if it breaks you have to keep
• Backdoor Socket Server
  14 Feb 2012 — das Script in einem separaten (sicheren) Interpreter ausführen lassen # ( man n interp ) package provide SockServ 1.0 # create a namespace namespace eval ::sockServ { variable status set status(server,started) {} variable config set
• backup utility using rsync
  24 Sep 2018 — file mkdir $root } set stem [file join $root $interval] if {![file exists ${stem}.0]} { # brand new file mkdir ${stem}.0 return } # delete oldest snapshots if {[file exists $stem.$schedule($interval)]} { file delete
• Balanced Brackets
  24 Aug 2018 — 2}]} { return 0 } set stack {} foreach ch [split $string {}] { switch -- $ch { \( { lappend stack \) } \[ { lappend stack \] } \{ { lappend stack \} } \) - \] - \} { if {[lindex $stack end] ne $ch} { return 0 } set stack [lrange $stack 0 end-1
• balloon
  30 Jan 2016 — pub/tcl/sorted/packages-7.6/devel/balloon-1.0.tar.gz Description: Simple Tk 4.0/4.1/4.2/8.0 library to create balloon help. Updated: 10/1998 Contact
• bandwidth throttling proxy
  12 Feb 2015 — lchan $lchan1 set rchan $rchan1 fconfigure $lchan -translation binary -buffering none -blocking 0 fconfigure $rchan -translation binary -buffering none -blocking 0 fileevent $lchan readable [list [self] local_read ] fileevent $rchan readable [list
• Barcode generation
  12 Sep 2014 — height $height] $im put white -to 0 0 $width $height foreach {bar space} $c128 { set larg [expr ($bar * $scale)+$offset] $im put #000000 -to $offset 0 $larg $height set offset [expr ($space
• Base 64 encode/decode
  26 Aug 2013 — the file. # Version 1.0 by [Larry W. Virden] # Version 1.1 by [Larry W. Virden] and [Andreas Kupries] if { $argc > 0 } { set fin [open [lindex $argv 0] "r"] } else { set fin
• base58
  17 Nov 2013 — that extracts the address from a scriptPub: ====== package require sha256 set scriptPubKey "76a9146ccf14fa32539e2d148a3b39d87ae0e7c6f17b5988ac" if {[regexp {^76a914([0-9a-f]{40})88ac$} $scriptPubKey _ xpub]} { set xpub "00$xpub"; set bpub [binary format H
• bash
  01 Jan 2015 — an explicit [glob] command. ** Bug: syntax error near unexpected token ** With newer version of Bash, (3.0 and up), When building older Tcl versions or Tcl extensions based on [TEA] ./[configure] might
• Basic GeoIP with Tcl
  04 Apr 2016 — d" [split [lindex $2 0] .] { set max [expr {$a<<24 | $b<<16 | $c<<8 | $d}] } if { $V >= $min && $V <= $max } { close $fin return "[lindex $5 0] ([lindex $6 0])" } } } close $fin return
• basic getopts
  01 Sep 2015 — set state(idx) 0 set state(idxc) 1 } while { $state(idx) < [ llength $argv ]} { set nextarg [ lindex $argv $state(idx) ] if {[ string index $nextarg 0 ] != "-" } { return 0 } if { $nextarg == "-" } { return 0 } if { $nextarg
• Basic GUI Builder
  12 Oct 2015 — 0 0 0 0} {"" "" 0 ""} createWidget .bgbabout label {0 1 1 1 0 0 0 0} {"Basic GUI Builder" "" 0 ""} createWidget .bgbabout label {0 2 1 1 0 0 0 0} {"" "" 0
• basic snack stream player
  20 Sep 2018 — socket for {set i 0} {$i < 30} {incr i} { after 100 append ::status . update } set ::status "stream type is [s info]" update s play -blocking 0 return 0 } proc savestream {outfile socket
• basic snack stream player 2 - shoutcast
  12 Oct 2015 — 0 proc debug {text} { if {$::doDebug == 1} { puts $text } } namespace eval shoutcast { namespace export * set header(icy-metaint) 0 set doDebug 0 set title "No data" set readSize 8192 set total 0
• Basique - OO-like namespaces
  25 Apr 2012 — name] { if {![llength $args]} { set args {%AUTO%} } if {[lindex $args 0] eq "%AUTO%"} { set args [linsert $args 0 new] } switch -- [lindex $args 0] { new { set instance [lindex $args 1] if {$instance eq
• Batch Changing Modification Time of Pictures
  04 Jul 2011 — topdir jhead]] } if { $argc == 0 } { set dlist [list .] } else { set dlist $argv } proc multimatch { ptns str } { foreach ptn $ptns { if { [string match -nocase $ptn $str] } { return 1 } } return 0 } proc fix { d
• Battleship
  20 Jan 2014 — Dead link as of 02-08-2009)| | Description:| Battleship - human vs computer| || Currently at version 0.0 .| | Updated:| 11/2007| | Contact:| See web site| [MG] This is a nice little game. :) Would
• BAWT
  04 Jan 2018 — 0.7.1 released. Support for Tcl/Tk 8.7. [PO] 2017/09/24 - BAWT version 0.7.2 released. Support for Visual Studio 2017. [PO] 2018/01/04 - BAWT version 0
• beast
  19 Sep 2012 — What:| beast| | Where:| ftp://etlxd10.ericsson.se/pub/Beast1.0.tar.Z (URL reports server not found)| | Description:| Tcl toolkit which combines both Expect and Scotty, allowing network interrogation and intelligent configuration
• Beginning Tcl
  26 Apr 2018 — tk/index.html%|%IT-Schulungen.com%|%] (German): [https://www.lynda.com/Tcl-TK-training-tutorials/2781-0.html%|%Lynda.com's Tcl/TK Training and Tutorials page]: Alas, it consists of a
• Behavior of break for text tag bindings
  02 Mar 2018 — the widget and class bindings from firing: ======none % text .t .t % pack .t % .t insert 1.0 "some text" myTextTag % bind Text <1> "puts Text" % bind .t <1> "puts .t" % .t tag
• Berkeley DB
  21 Nov 2017 — February 2006, which continues to develop and sell Berkeley DB. As of Berkeley DB release 6.0, the Oracle Corporation has relicensed Berkeley DB under the GNU AGPL v3. https://docs.oracle
• Berkeley DB Tcl interface
  21 Nov 2017 — David Gravereaux] for patches to the Berkeley DB v3.0.55 Tcl extension to add Stubs support.| || This is currently at version 4.0.14 .| | Updated:| 05/2000| | Contact:| mailto:info@sleepycat
• Bernoulli
  14 May 2012 — t=0 of course #} if {$demo} { init s 0.0 init c 1.0 init x 0.0 deriv s {$c} deriv c {-$s} deriv x {1} timeframe 0.0 10.0
• Bessel functions
  25 Jan 2012 — explicit formula # if { $x != 0.0 } { expr {sqrt(2.0/$pi/$x)*sin($x)} } else { return 0 } } # some tests -- # foreach x {0.0 2.0 4.4 6.0} { puts "J0($x
• Best Practices
  14 Feb 2018 — an if-statement, the meaning of 1 and 0 are pretty clear. But if in your code, a variable is set to 1 or 0, I cannot see immediately if you need
• Better getopt
  01 Sep 2015 — tclsh "$0" ${1+"$@"} lappend auto_path /usr/local/lib package require getOpt 1.0 namespace import ::getOpt::* # global var array set Opt {} array set InvalidOpt {} set NotOptions [list] set OptionList { {*0} {Dummy
• bevel 3d
  28 Jan 2014 — 0/unix/tkUnix3d.c proc color::shadow:dark {R G B} { # ---------------------------------------------------------------------- variable MAX_INTENSITY # ---------------------------------------------------------------------- if { [expr {($R*0.5*$R) + ($G*1.0*$G) + ($B*0.28*$B)}] < [expr {$MAX_INTENSITY*0
• Beveled lines
  13 Oct 2015 — is: # / 0 -1 \ # \ 1 0 / # For example, a line from (0,0) down and right to (2,1) has a # perpendicular vector from (0,0) to (1,-2) because: # (2 1) * / 0
• bexec
  17 Dec 2016 — EXEC_LAST }; /* @@ -891,6 +891,7 @@ keepNewline = 0; ignoreStderr = 0; + binaryStdout = 0; for (skip = 1; skip < objc; skip++) { string = TclGetString(objv[skip]); if (string[0] != '-') { @@ -904,6 +905,8 @@ keepNewline = 1; } else
• Bezier Circular Arcs
  25 Mar 2015 — create line 0 0 0 0 0 0 0 0 -fill grey -dash .] set ang_step [expr {(2.0 * $PI/75)}] for {set ang_rad 0.0} {$ang_rad < (2.0 * $PI
• bgCopy
  10 Oct 2018 — bgCopySchedule {src dst args} { variable activeCopies variable allCopies variable options [dict create -mkdir 0 -force 0 -exitcmd {} -limit 0 -idlecmd {}] set keys [dict keys $options] # später in Library auslagern foreach {arg val
• BgiTclodbc
  06 Sep 2013 — Interface '''Tclodbc''' was a [Tcl] to [ODBC] interface in dll form for win95/NT. Works with Tcl 8.0 A sample query wizard using both tclwin and tclodbc was provided. <<categories>> ODBC
• bgsleep
  28 Sep 2012 — for "delay" milliseconds ====== proc bgsleep {delay} { set final_time [expr ([clock seconds] * 1.0) + (($delay * 1.0) / 1000.0)] set activation_var [join [list BGSLEEP WAIT FOR $final_time [expr rand()]] _] global
• BibTeX
  09 Jan 2017 — nwalsh.com/tex/texhelp/BibTeX.html] for online documentation. BibTeX has been effectively abandoned at version 0.99d for over a decade, but its creator Oren Patashnik has been recorded saying said
• Big Floating-Point Numbers
  14 May 2012 — n {} if {$m < 0} { set s -1 set m [expr {-$m}] } else { set s 1 } if {[catch { set lm [expr {log10($m)}] }]} { return [list 0 0] } if {$lm < 0 || $lm >= 1} { set
• Big integer routines
  25 Jan 2012 — digit] %d] append res [expr {$carry / $divisor}] set carry [expr {$carry % $divisor}] } list [string trimleft $res 0] $carry } proc bigint'hex bigint { set res "" while {$bigint != ""} { foreach {bigint carry} [bigint'div $bigint
• big wish
  13 Oct 2015 — years. The first release of [Tk] that could be [[package require]]d was Tk 8.4.0 (released in 2002). Even with Tk 8.4, the result of a [[package require Tk
• bignum
  07 Nov 2015 — 5 6 0 ====== ...and Tcl crashed (pure DOS or Tkcon). It only seems to happen with the 0, but it does happen every time. Maybe I shouldn't be using 0, I
• bin2srec
  13 Oct 2015 — with the following parameters: # initial address = 0 # s-rec title = <binfname> # record len = <recordlen> # loading address = <startaddr> # puts $hexfd [createS0 [file tail $binfname]] set count 0 while {! [eof $binfd]} { set record [read
• binary
  14 Oct 2018 — t1} { set t1 $t2[set t2 $t1; list] } set step 256 set res {} for {set i 0} {$i < [string length $t1]} {incr i $step} { set end [expr {min($i+$step-1, [string
• Binary Buffer Reverse (C Extension Example)
  22 Aug 2017 — get input byte array ... */ buffPtr = Tcl_GetByteArrayFromObj(objv[1], &len); if (len == 0) { return TCL_ERROR; } /* ... and reverse it */ p1 = 0; p2 = len -1; while (p1 < p2) { ch = buffPtr[p1]; buffPtr[p1
• binary data access - tclbin (Demailly)
  25 Oct 2013 — from Tcl. TclBin predates [[`[binary]`], which was introduced in Tcl [Changes in Tcl/Tk 8.0%|%8.0] ** Attributes ** website (historical): http://www.box.eu.org/%7Edl/tclbin.html ** Download ** [http://www
• binary format
  09 Jan 2018 — relation between the field specifiers and the arguments: ====== binary format d3d {1.0 2.0 3.0 4.0} 0.1 ====== The first argument is a list of four numbers, but because
• Binary image compression challenge
  13 Dec 2011 — 0 0] set clr1 [lindex $clrs 1 0] set h [image height $img] set w [image width $img] set str "" for {set y 0} {$y<$h} {incr y} { for {set x 0
• Binary image compression challenge - DKF's trials
  10 Jul 2011 — set init 0 set length 0 set out [list $w $h] set max [expr {$w>$h ? $w : $h}] for {set x 0} {$x<$w} {incr x} { for {set y 0} {$y<$h
• Binary image compression challenge - Kroc's Entry
  13 Oct 2015 — photo gif gif put white -to 0 0 $::largeur $::hauteur set ln 0 foreach ligne [split $data \x80] { set segblanc 0 set segnoir 0 set lg 0 foreach octet [split $ligne {}] { if
• Binary image compression challenge - Lars's entry
  13 Oct 2015 — se $hash($key)] } } return $hash($key) } proc encode_photo {name {side -1} {w 0} {h 0} {x 0} {y 0}} { if {$side<1} then { set w [image width $name] set h [image
• Binary image compression challenge - mig's Entry
  13 Oct 2015 — ne $clr}] set clr $pix } } set clr0 [expr {[string replace $clr0 0 0 0x]}] set clr1 [expr {[string replace $clr1 0 0 0x]}] return [binary format ssiib* $w $h $clr0 $clr1 $str
• Binary image compression challenge - MS's Entry
  13 Oct 2015 — set data [list $w $h] lappend data [expr {[string replace $clr0 0 0 0x]}] lappend data [expr {[string replace $clr1 0 0 0x]}] set tally [stats $bytes] set len [llength $tally] lappend
• Binary image compression challenge - Pascal's Entry
  13 Oct 2015 — 0 0] set clr1 [lindex $clrs 1 0] set h [image height $img] set w [image width $img] set str "" for {set y 0} {$y<$h} {incr y} { for {set x 0
• Binary image compression challenge - Theo Verelst's entry
  13 Oct 2015 — 241.0 53.0 281.0 98.0 -activedash {} -activefill {} -activeoutline {} -activeoutlinestipple {} -activestipple {} -activewidth 0.0 -dash {} -dashoffset 0 -disableddash {} -disabledfill {} -disabledoutline {} -disabledoutlinestipple {} -disabledstipple {} -disabledwidth 0 -fill yellow -offset 0,0 -outline
• Binary Search
  14 Jan 2016 — len [llength $lst] if {$len == 0} { return -1 } else { set pivotIndex [expr {$len / 2}] set pivotValue [lindex $lst $pivotIndex] if {$pivotValue == $x} { set recursive [firstBinSrch [lrange $lst 0 $pivotIndex-1] $x] return
• Binary trees
  02 Oct 2017 — x} { set root [lindex $bt 0] expr { [llength $bt]? $root > $x? [btsearch [lindex $bt 1] $x] : $root < $x? [btsearch [lindex $bt 2] $x] : 1 : 0 } } if 0 { Test and usage examples: % btree
• binary-trees benchmark
  11 Dec 2011 — 3 elements: ## [0] left subtree ## [1] right subtree ## [2] item ## An empty tree is an empty list {}, an thus has [llength] 0. proc ItemCheck {tree} { if {![llength [lindex $tree 0]]} { return [lindex
• bindb Source Code
  21 Jan 2013 — to this: # package provide app-bindb 1.0 # zipguy - routine added for puts with date %Y-%m-%d and time proc puts_log {message {code 0}} { set time [clock format [clock seconds
• binding to a toplevel window
  19 Sep 2011 — code giving error of expression syntax. set ::moveable 0 wm overrideredirect $wa 1 bind $wa <ButtonPress> {set ::moveable 1} bind $wa <ButtonRelease> {set ::moveable 0} bind $wa <Motion> {if {!$::moveable} {break}; if
• Bindings and variable substitution
  21 Aug 2016 — W $filename} proc saveFile {window filename} { set file [open $filename w] puts $file [$window get 1.0 end] close $file } set filename [file join [pwd] temp.txt] ====== Of course, if you are
• bindlife
  21 Jan 2011 — license of Tcl 8.4 namespace eval bindlife {} namespace eval lambda {} set bindlife::destrId 0 set lambda::lambdaId 0 # Bind a procedure's life to a variable. Once the variable is # unset
• bindvariables with oratcl 4.4
  13 Oct 2015 — VARCHAR2(1000), v VARCHAR2(1000), typ VARCHAR2(20) ); INSERT INTO tag (id, k, v, typ) VALUES (0, 'created_by', 'HE', 'node'); ====== The following is the script which reproduce the huge memory use
• Binomial Coefficients
  09 Feb 2014 — x >= 0 # # +inf # _ # | x-1 -t # gamma(x)= _| t e dt # # 0 proc lgamma { xx } { set x [expr { $xx - 1.0 }] set tmp [expr { $x + 5.5 }] set tmp [ expr { ( $x + 0
• binpad
  29 Jul 2011 — n-1}] while {[string length $data] != 0} { set x [string range $data 0 $nn] if {[string index $x end] == "$pad(escape)"} { set x [string range $x 0 end-1] set data [string
• biotext: A new Tk widget dedicated to bioinformatics
  21 Nov 2014 — statement to generate the LM.DAT input file if {0} { for {set i 0} {$i < $ny} {incr i} { set l {} for {set j 0} {$j < $nx} {incr j} { set c [lindex {a
• bit
  10 Dec 2013 — initialized to 0. ====== proc bit {varName pos {bitval {}}} { upvar 1 $varName var if {![info exist var]} {set var 0} set element [expr {$pos/32}] while {$element >= [llength $var]} {lappend var 0} set
• Bit manipulations
  16 Jan 2016 — word_sequence puts "Here are the words: '$display_word_sequence'." binary scan [string range $byte_sequence 0 3] S2 first_two_words puts "Here are the first two words of the byte
• bitarray
  27 Jun 2012 — 5 {0 0 2 0 0}}} ? {bitarray'ones $a} {1 2} ? {set a [bitarray'set $a 0 0 42]} {bitarray | {5 5 {1 0 2 0 0}}} ? {bitarray'ones $a} {0 0
• BitchX-73
  14 Oct 2015 — the BitchX IRC client to provide ftp-like access to local file archives.| || Currently at version 0.1.6.| | Updated:| 08/2001| | Contact:| mailto:j.ellerbroek@student.tudelft.nl | <<categories>> Application | Internet
• bitmap.to.photo
  20 Jul 2011 — a(-maskdata) $b $e]] ,]] set ycntr 0 set xcntr 0 foreach datum $data { foreach cntr {0 1 2 3 4 5 6 7} { if {($datum %2) == 0} { $result transparency set $xcntr $ycntr
• bitstrings
  27 Jun 2012 — if { (! [string is integer $position]) || ($position < 0) } { error "position must be an integer >= 0" } if { ($bit ne "0") && ($bit ne "1") } { error "bit must be '0' or '1'" } # Compute byte and bit
• Black Box
  03 May 2016 — pad 0 for {set col 0} {$col < $S(w2)} {incr col} { grid columnconfigure .c $col -pad 0 if {$row == 0 || $row > $S(h) || $col == 0 || $col > $S(w)} { if {($row == 0 || $row
• black ttk theme
  12 Jun 2018 — 19:21:30 oberdorfer Exp $ package require Tk namespace eval ttk::theme::black { variable version 0.0.1 variable dir [file dirname [info script]] package provide ttk::theme::black $version # NB: These
• Blackbox Collection of Network Statistics
  18 Oct 2016 — set vars::channels::$sock [dict create] } dict set vars::channels::$sock rx 0 dict set vars::channels::$sock tx 0 dict set vars::channels::$sock marks [list] if { $full } { dict set vars
• Blauncher
  07 Apr 2010 — proc txt arg {set arg};#i18n proc Exec args { set tmp 0 set background no set wdir [pwd] for {set i 0} {$i<[llength $args]} {incr i} { lassign [lrange $args $i end
• Blending/fading widget colors
  21 Mar 2016 — foreach {r2 g2 b2} $color2 break set rRange [expr $r2.0 - $r1] set gRange [expr $g2.0 - $g1] set bRange [expr $b2.0 - $b1] set rRatio [expr $rRange / $steps] set gRatio [expr
• bll
  20 Sep 2018 — file dirname [file dirname [file dirname [info script]]]] \ MacOS MyApp.tcl]] if { $argc > 0 } { set script [lindex $::argv 0] set ::argv [lrange $::argv 1 end] } source $script ====== so that the appropriate script
• Block-local variables
  01 Dec 2013 — eval $body } #-- Testing: % with {x y} {expr {hypot($x,$y)}} 3 4 5.0 with list {lindex $list 0} {a b c d} a ====== [Lars H]: Can't help but optimising the
• Blowfish in Tcl
  15 Aug 2011 — key] binary scan $key c* kc set j 0 for {set i 0} {$i < 18} {incr i} { set data 0 for {set k 0} {$k < 4} {incr k} { set kj [lindex $kc
• Blowfish Tk Client
  04 Jul 2011 — data "" wm protocol . WM_DELETE_WINDOW {exit} wm title . "Blowfish Encryption/Decipher Tool" wm resizable . 1 0 label .k -text "Key:" -anchor w entry .key -show * -textvar ::key -highlightcolor yellow -highlightthickness 3
• BLT
  23 Feb 2016 — that can be called. Contact tested with VC++ 6.0 and Tcl 8.0.4. It relies on the way MSC 4.0. Site also has a crypt dll. Updated: 04/1998
• BLT - graph - create a horizontal label for a vertical axis
  10 Nov 2012 — y_title "Y axis title" # Configure the vertical axis. .g axis configure y -min 0 -max 100 -majorticks \ {0 10 20 30 40 50 60 70 80 90 100} # Need to force
• BLT - graph - how to draw a sophisticated time axis
  20 Jan 2013 — timeAxis_tick {win seconds} { set hour [clock format $seconds -format "%H"] regsub {^0*} $hour {} label if { $label eq "" } { set label 0 } if {$label} { return $label } else { return "$label\n[string repeat { } $::nSpaces
• BLT - graph - printing from Windows
  18 Jan 2014 — set names [blt::printer names] # Open the first one set pid [blt::printer open [lindex $names 0]] # Print the graph .graph print1 $pid # Close the printer. blt::printer close $pid ====== 2) Use
• BLT - graph - printing postscript
  26 Sep 2012 — list of printer names set printerList [printer names] # Pick the first printer set printerName [linex $printerList 0] ====== You open a printer using the "open" operation. ====== # Open the printer set pid [printer open
• BLT - graph - Waveform Viewer
  13 Aug 2010 — million points $::X seq 0 1.0e6 # fill one vector for the y axis with a sine + noise $::Y expr "sin($::X/1e5) +(0.05*(random($::X)-0.5))" # create one element
• BLT - stripchart - with realtime update
  19 Dec 2017 — Hz 200 vector create xvec($Hz) y1vec($Hz) y2vec($Hz) # fill xvec with 0 .. $Hz-1 xvec seq 0 [expr {$Hz - 1}] stripchart .s1 -height 2i -width 8i -bufferelements no stripchart .s2
• Blue Line - spam filter
  04 Apr 2014 — Attributes ** current version: 2.0 release time: 2004-01-16 website: '''[https://web.archive.org/web/20060207222233/http://www.tclbuzz.com/v0/blueline/%|%Blue Line]''' ** Version 2.0 Discussion ** [escargo] 2004-01
• Blurring
  18 Jan 2013 — image {blur 0.1}} \ { variable {} # get coef if {$blur < 0.0 || $blur > 1.0} \ { error "blur should be between 0.0 and 1.0" } set neighbur [expr {int($blur * 4.0)}] # get
• Blurring an image
  10 Jan 2015 — coef {0.0 0.5 1.0} \ { set image [blur Photo $coef] toplevel .$n wm title .$n "blur $coef" canvas .$n.c -bd 0 -highlightt 0 .$n.c create image 0 0
• BMP Dump
  07 Sep 2012 — return [format "0: %s 1: %s" $::I(palette,0) $::I(palette,1)] } set result "\n" set cnt [expr {int(pow(2,$::I(BitCount)))}] set cols 6 for {set i 0} {$i < $cnt
• BNF for Tcl
  28 Sep 2018 — lindex $args end] [lrange $args 0 end-1]} ====== after which Tcl commands can also be called in Reverse Polish Notation style, e.g. - x 5 set - {$x<0} {- negative puts} else {- positive
• boilerplate
  26 Jun 2012 — may sometimes be helpful ([RS]): ====== proc foo { args } { if {[llength $args] == 1} {set args [lindex $args 0]} ... } ====== I've been thinking this a lot and still can't figure out, what is
• Bonnet's misc Tcl/Tk items
  27 Oct 2015 — Tk items| | Where:| http://www.multimania.com/fbonnet/ <<br>> http://www.multimania.com/fbonnet/pub/fmm8.0.5.patch <<br>> http://www.multimania.com/fbonnet/pub/fmm8.1.1.patch| | Description:| Contact
• BOOK Artificial Intelligence: A Modern Approach
  04 Jul 2011 — Authors: Peter Norvig and Stuart Russell Publisher: Prentice Hall Publication Date: 2002 (2nd edition) ISBN: 0-13-790395-2 Pages: 1132 Website: http://aima.cs.berkeley.edu/ [NEM]: Probably the single most
• BOOK Beginning Linux Programming
  19 Apr 2011 — and Birmingham GB ISBN (2nd ed): 1-861002-97-1 ISBN (1st ed): 1-874416-68-0 Source Code: http://www.wrox.com/Consumer/Store/Download.asp?ISBN=1861002971 WWW book information
• BOOK CGI Bible
  19 Apr 2011 — result.msql?isbn=0-7645-8016-7 CGI Bible is a paperback with CD-ROM. It covers [HTTP] and [HTML] briefly, [SGML] and HTML DTDs (and validation), HTML 3.0, [CGI] (including
• BOOK Concepts, Techniques, and Models of Computer Programming
  02 Mar 2014 — Authors: Peter van Roy and Seif Haridi Publisher: MIT Press Publication date: 2004 ISBN: 0-262-22069-5 Pages: 904 Websites: http://www2.info.ucl.ac.be/people/PVR/book.html http
• BOOK Effective Tcl - Writing Better Programs in Tcl and Tk
  29 Jan 2016 — http://www.awprofessional.com/title/0201634740 WWW examples: http://www.awl.com/cseng/titles/0-201-63474-0/efftcl-ex.tar.Z WWW examples: http://sf.net/projects/efftcl/ Practical information on
• BOOK Essential Open Source Toolset: Programming with Eclipse, JUnit, CVS, Bugzilla, Ant, Tcl/Tk and More
  27 Oct 2015 — Author: Andreas Zeller, Jens Krinke ISBN: 0-470-84445-0 Paperback 404 pages Publication Date: February 2005 Price: 55.00US Publisher: Wiley Link: http://eu.wiley.com/WileyCDA/WileyTitle/productCd-0470844450.html
• BOOK Graphical Applications with Tcl and Tk
  05 Dec 2009 — of this book focuses on creating and debugging cross-platform graphical applications using Tcl/Tk 8.0. Windows and Unix development is covered. The book comes with a CD-ROM containing Tcl
• BOOK Interactive Web Applications With Tcl/Tk
  19 Apr 2011 — server push application, and a tcl web browser. The examples are based on Tcl/Tk 8.0. ---- [MDD]: This book is currently out of print, though you can still get used copies
• BOOK Obfuscated C and Other Mysteries
  18 Apr 2011 — information: http://www.wiley.com/Corporate/Website/Objects/Products/0,9049,89218,00.html http://www.josseybass.com/Corporate/Website/Objects/Products/0,9049,89218,00.html This is not your typical
• BOOK Practical Programming in Tcl and Tk, Second edition
  30 Aug 2013 — http://www.beedub.com/book/tclbook2.tar.Z |& ** Description ** This updated edition describes Tcl / Tk 8.0 as it was during the beta period. Along with the material from the first edition
• BOOK Practical Programming in Tcl and Tk, Third edition
  22 Nov 2015 — a great section describing the changes in Tcl/Tk 7.4, 7.5, 7.6, 8.0, 8.1, and 8.2. A new binding and a massively enlarged index also were
• BOOK Program Phases, A Programming Language and API Translator
  01 Aug 2009 — exactly match the list from the publisher (JavaScript appears to be missing...) 01. Java (J2SE 5.0) 02. Visual FoxPro 03. C 04. Visual Basic 6 05. C++/ MFC 06. C#/.NET
• BOOK Structure and Interpretation of Computer Programs
  24 Jul 2016 — science series) Includes bibliographical references and index. ISBN 0-262-01153-0 (MIT Press hardcover) ISBN 0-262-51087-1 (MIT Press paperback) ISBN 0-07-000484-6 (McGraw-Hill hardcover) 1
• BOOK Tcl and the Tk Toolkit
  08 Jun 2014 — com/cseng/titles/0-201-63337-X/ Book's examples: ftp://www.tcl.tk/pub/tcl/doc/book.examples.Z Book suppliment: http://www.tcl.tk/doc/tk4.0.ps Purchase online
• BOOK Tcl and the Tk Toolkit (2nd Edition)
  08 Jun 2014 — Wesley Professional; 2 edition (August 10, 2009) Language: English ISBN-10: 0-321-33633-X ISBN-13: 978-0-321-33633-0 Copyright: 2010 Book web site: http://www.tcltk-book.com
• BOOK Tcl Reference Card
  25 Feb 2013 — The Reference card (52 half-pages, for Tcl/Tk 8.0) can be found at * http://tiger.la.asu.edu/Quick_Ref/TclTk_quickref.pdf (22 February 2008 : Dead Link) * http://scout
• BOOK Tcl/Tk in a Nutshell
  19 Apr 2011 — book information: http://www.oreilly.com/catalog/tclnut/desc.html ---- This book covers Tcl/Tk 8.0 (script and C APIs), [Expect], [incr Tcl], [incr Tk], [Tix], [TclX], [BLT], [Oratcl], [Sybtcl], and
• BOOK The Complete TCL/TK Training Course With CDROM
  19 Apr 2011 — book, Practical Programming in Tcl and Tk, 2/e, is completely updated for Tcl/Tk 8.0, and has a bonus CD-ROM with more source code and an extensive library of
• BOOK: Accuracy and stability of numerical algorithms
  11 Oct 2011 — in this area, according to one (indepdendent) reader. Author: Nicholas J. Higham SIAM, Philadelphia, 1996, ISBN 0-89871-355-2 Recently, a second edition has appeared. [AM] [[...] anyone involved with numerical algorithms
• BOOK: Tcl 8.5 Network Programming
  07 Jun 2012 — also: [BOOK Tcl 8.5 Network Programming] [https://www.packtpub.com/sites/default/files/0967OS_MockupCover_0.jpg] This book shows you how to create network-aware applications with Tcl language. Packed
• bool
  25 Jun 2012 — a value to boolean. Returns 1 if the argument can be interpreted as boolean truth, and 0 if it can be interpreted as boolean falsity. (Note that all non-zero integers are
• Boolean
  04 May 2011 — True or False. Tcl has no separate Boolean type, like in C, the integers 0 (false) and 1 (true - in fact any nonzero integer) are used. [NEM]: Although [expr] will also accept
• Boolean Checkbutton
  09 Mar 2009 — var]} { uplevel #0 [list set $varName($pathName) $var] } return $pathName } proc ::booleanCheckbutton::selectIfTrue {widget varName arrayIndex op} { if {$op eq "write"} { if {$arrayIndex eq ""} { upvar #0 $varName var } else { upvar #0 ${varName
• Boolean Functions and Cellular Automata
  29 Apr 2018 — center cAInit "0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0" From
• BOOP
  01 Dec 2013 — shim function. set helper " \ proc $namespacename {args} { \n\ set function \[lindex \$args 0\] \n\ set args \[lreplace \$args 0 0\] \n\ set newfunction \[concat ::${class}::\${function} ${namespacename} \$args\] \n\ return \[eval \$newfunction
• boost::thread and Tk
  25 Apr 2012 — DOUBLE); double n = GetArg().GetDouble(); double e = 1.0; double plus = 0.0; for (double i = 1.0; i < n; ++i) { plus = 1.0/boost::math::tgamma(i); if (plus < 10e-15
• Bouncing Balls
  01 Dec 2012 — 2+$radius}] \ -fill [rcolor $colorList] \ -outline black] set DX($handle) [expr { (rand()-0.5)*10 }] set DY($handle) [expr { (rand()-0.5)*10 }] lappend itemList $handle } set script { foreach oval $itemList { $c
• Bounding boxes of characters in canvases
  25 Aug 2011 — if 0 { '''Purpose:''' Show how to find where a single character within a text item is located on a Tk canvas. David Coolbear wrote in comp.lang.tcl: Assume I have a
• Bourne Shell
  02 Sep 2015 — while read -d $'\0'; do eval $1'[${#'$1'[*]}]="$REPLY"' done < <( "${TCLSH[@]}" - "${@:2:$#}" <<-'EOF' proc main {argv0 argv} { set list [lindex $argv 0] foreach item $list { puts -nonewline $item\0 } puts '' } if {[catch
• Boxed text
  24 Jun 2012 — good only in fixed-pitch fonts): ====== proc boxtext str { set lines [split $str \n] set maxl 0 foreach line $lines { set l [string length $line] if {$l > $maxl} {set maxl $l} } set
• Brace-level pretty printer
  11 Jun 2012 — itself as input''': 0 0 proc bracelevel {str} { 1 set lev 0 1 set out "" 1 foreach l [split $str \n] { 2 append out $lev \t 2 set skip 0 2 foreach
• Brainfuck
  28 May 2016 — setd 0 } } \[ { if {[getd] == 0} { incr pc set nest 0 while {$nest || [getp] ne "\]"} { switch [getp] { \[ {incr nest} \] {incr nest -1} } incr pc } } } \] { if {[getd] != 0} { incr pc -1 set nest 0
• Brainfuck-to-Tcl transpiler
  08 Jun 2017 — for {set i 0} {$i < 30000} {incr i} { dict set tape $i 0 } } if {![info exists pos] || ($pos eq {})} { set pos 0 } } set commands [split $source {}] for {set i 0} {$i < [llength
• Braintwisters
  26 Aug 2016 — 0 "";trace variable 0 ru 0} proc 0 {_name index op} { switch $op { r { uplevel { set 0 "" for {set i 1} {$i<=$NF} {incr i} {lappend 0 [set $i]} } } u {rename 0
• Braitenberg Vehicles
  04 Jul 2011 — break } if {$x1 < 0} { $c move $name [winfo width $c] 0 } if {$x0 > [winfo width $c]} { $c move $name -[winfo width $c] 0 } if {$y1 < 0} { $c move $name 0 [winfo height
• Branching with 'set' alone
  05 Mar 2013 — their arguments according to a truth value of 0 or 1, we can implement branching too, without [if] or x?y:z: ====== proc 0 {then else} {uplevel 1 $else} proc 1 {then
• breadcrumbs widget
  11 Aug 2016 — widgetCompounds $txtwidget configure -state normal $txtwidget delete 0.0 end set cnt 0 foreach item $textlist { set item [string trim $item] if {[string length $item] == 0} { continue } # create unique widget reference incr
• break
  04 Apr 2018 — integers from 0 to 5: ====== for {set x 0} {$x<10} {incr x} { if {$x > 5} { break } puts "x is $x" } ====== This is the same as: ====== for {set x 0} {$x<10
• break labels
  28 Dec 2011 — namespace eval ::break set $label 0 } # execute set rc [catch { uplevel 1 $args } rs] # get state of our label and clean-up if {$label == "-"} { set flag 0 } else { set flag [set ::break
• Breakpoints in Tcl
  08 May 2014 — want to prompt the user to press any key to continue. ====== proc breakpoint {} { update set ::breakpoint 0 puts stdout "Press <Any Key> to continue" fileevent stdin readable {set ::breakpoint 1} vwait ::breakpoint
• Brief Tcl Corporate History
  11 Sep 2014 — spirit - as a challenge - and fixed virtually all of them in the branch that became 8.0. I say 'the community' rather than 'John's team at Sun' because much of the
• brotli
  14 Aug 2017 — BrotliDecoderState* state = BrotliDecoderCreateInstance(0, 0, 0); BrotliDecoderResult result = BROTLI_DECODER_RESULT_NEEDS_MORE_OUTPUT; input_len = length; while (result == BROTLI_DECODER_RESULT_NEEDS_MORE_OUTPUT) { size_t available_out = 0; result = BrotliDecoderDecompressStream
• BrowseX
  11 Mar 2015 — of Tml, as well as TME, a Tml Editor/Composer.| ||It is currently at release 2.0.| | Updated:| 12/2002| | Contact:| mailto:peter@pdqi.com| [Peter MacDonald] Several users have mentioned how
• Brute force meets Goedel
  18 Jan 2013 — give only this test, another solution is found: ======none % discover 0 1 d^ ====== "Take x to the x-th" power" - pow(0,0) gives indeed 1, but that's not the generic
• bsearch
  14 Aug 2013 — the file is returned in ''retvar'', and the command returns 1 if ''key'' was found, and 0 if it wasn't. If ''retvar'' is not specified or is a null name, then
• bug in pipe
  08 Aug 2012 — when manually flushing. ====== package require Tclx pipe out in fconfigure $in -buffering none fconfigure $out -blocking 0 puts -nonewline $in [string repeat H 8193] # hangs already here puts [read $out] close $in
• buggy Pinball
  16 Jan 2012 — c left -0.8} bind . <KeyRelease-Left> {flip .c left 0.8} bind . <Right> {flip .c right 0.8} bind . <KeyRelease-Right> {flip .c right -0.8} #.c create poly 0 450
• Bugs
  19 Jan 2014 — set old$c $v incr v [expr {round($(speed) * rand()) * (rand() > 0.5 ? +1 : -1)}] if {$v < 0} { set v 0} set max $(${c}max) if {$v > $max} { set v $max } set
• bugzilla
  01 Dec 2014 — version available from Mozilla [http://ftp.mozilla.org/pub/mozilla.org/webtools/archived/] is bugzilla-2.0.tar.gz dated 1998-09-18 and weighing a mere 51kbytes. Unfortunately it is written
• Building a custom tclsh
  16 Oct 2013 — argv)[2]); /* Fiddle with args to hide our "special" args */ (*argv)[2] = (*argv)[0]; *argc -= 2; *argv += 2; } } return 0; } /* * This will be called instead of tclAppinit.c's Tcl_AppInit(). */ int
• Building a file index
  06 Dec 2011 — file name # -------------------- # return: count of enregs # -------------------- proc build_index {bigfile indexfile} \ { # index the file set count 0 set fpi [open $bigfile r] set fpo [open $indexfile w] while {![eof $fpi]} \ { puts -nonewline
• Building an extension for Tcl under Mac OS X
  02 Jan 2013 — interp) { if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { return TCL_ERROR; } Tcl_CreateObjCommand(interp, "minimal", MinimalObjCmd, (ClientData) NULL, NULL); return Tcl_PkgProvide(interp, "minimal", "0.1"); } DLLEXPORT int Minimal_SafeInit(Tcl
• Building kiss_fft library extension for TCL
  26 Oct 2015 — 0.8122992405822661} {-2.499999999999999 -0.8122992405822661} {-2.499999999999999 -3.440954801177934} output is: {5.0000000000000036 0.0} {10.0 0.0} {15.0 0.0} {20.0 0.0} {25.0 0.0
• Building Stand Alone Executables in Unix
  17 May 2010 — name reports: -lX11.6 => /usr/X11R6/lib/libX11.so.6.1 (0x40127000) -lm.0 => /usr/lib/libm.so.0.1 (0x401bd000) -lc.23 => /usr/lib/libc.so.23.1 (0x401d1000) If you
• Building Stand-Alone Tcl/Tk Applications under Mac OS X
  19 Jan 2017 — 4.0, current version 8.4.0) /usr/lib/libz.1.dylib (compatibility version 1.0.0, current version 1.0.0) /usr/lib/libSystem.B.dylib (compatibility version 1.0.0
• Building Starkits and Starpacks using a Makefile
  16 Jan 2015 — temp/gorilla/blowfish temp/gorilla/pwsafe \ temp/gorilla/gorilla.vfs/lib) cp -R BWidget-1.7.0 temp/gorilla/gorilla.vfs/lib Now add some packages to the Starkit. The ''blowfish'' and
• Building static Jim Tcl with SQLite 3 for Linux
  12 Sep 2018 — the SQLite 3 extension. The script has been successfully tested with tags `0.72` through `0.78` for `i386`; tags `0.71` and earlier won't work. ======none #! /bin/sh # Only the
• Building Tcl DLL's for Windows
  05 Jul 2018 — ifdef USE_TCL_STUBS Tcl_InitStubs(interp, "8.3", 0); #endif Tcl_Obj *version = Tcl_SetVar2Ex(interp, "tcldemo_version", NULL, Tcl_NewDoubleObj(0.1), TCL_LEAVE_ERR_MSG); if (version == NULL) return
• Building Tcl-Tk GUIs for HRT-HOOD Systems
  10 Mar 2013 — Summary ** This work explores Tcl-Tk 8.0 as a building tool for script-based GUIs in Ada95 real-time systems. Tcl-Tk 8.0 is a library that makes graphic programming
• Building Tcl/Tk with Mingw
  01 Sep 2018 — 2.tar.gz pthreads-w32-2.8.0-mingw32-dll.tar.gz gcc-core-4.4.0-mingw32-dll.tar.gz gcc-core-4.4.0-mingw32-bin.tar.gz binutils-2
• Building tclkit in MinGW on WIndows
  27 Jul 2011 — fixed a hard-coded path bug in genkit. Tested today on WinXP using [MinGW] 3.1.0 using all the current tars, but using tcl/tk8.4.6 instead of 8.4
• Building Tclkit with kitgen on Windows
  07 Jul 2017 — couple of things that caused me grief having to do with my environment (Visual Studio 6.0, XP). Hence this page - so others do not go through the same pain. The issues
• Building TclMagick
  08 Jan 2014 — pass comparison" set result [compareImages $base $basecopy] # result should be 0.0 from an equal comparison return [string eq $result 0.0] } proc compareFail {} { global base bigdiff puts "Checking for vastly different
• Building User Interfaces with Tcl and Tk
  30 Jul 2012 — 0.5 -anchor w [[missing graphic here]] place .x -relx 0.5 -rely 0.5 -height 2c -anchor center [[missing graphic here]] place .x -relheight 0.5 -relwidth 0.5 -relx 0
• Building with Visual Studio 2017
  08 Feb 2018 — build Tk is 10.0.15063.0. When setting up the command line environment, this must be passed to vcvarsall.bat, for example ====== vcvarsall x64 10.0.15063.0 ====== to set up
• Bulging Square Illusion
  19 Aug 2013 — sx [expr {($w-40)/2.0 / $x1}] set sy [expr {($h-40)/2.0 / $y1}] set sc [expr {$sx > $sy ? $sy : $sx}] .c scale all 0 0 $sc $sc } proc About {} { set
• burrow
  07 Jan 2018 — Smith]: I've set up a mirror at http://www.smith-house.org:8000/burrow-1.0.1.tgz. (Connection failed @ 2009-01-31) [AvL]: removed previous (un- and)availability-comments. Current
• burt
  24 Sep 2018 — Tcl/Tk 8.0 designed to perform backups to and recoveries from tapes. A Burt installation consists of the Burt extension module and a set of Tcl/Tk 8.0 scripts to
• busted buttons, a common type of coding problem
  10 Oct 2013 — preview\ -text " Preview "\ -command "preview" -padx 0 -pady 0 pack $f.preview -side left -expand 1 button $f.reset\ -text " Reset "\ -command "reset" -padx 0 -pady 0 pack $f.reset -side left
• buttonbox
  22 Aug 2012 — iwidgets/buttonbox.gif] Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/buttonbox.html and http://purl.org/tcl/home/man/iwidgets3.0/buttonbox.n.html <<categories>> Command | incr Widgets
• Buttons with image and text
  21 Apr 2012 — pack [button .f.i -relief raised -bd 0 -highlightthick 0 -takefocus 0 -bitmap questhead] pack [button .f.t -relief raised -bd 0 -highlightthick 0 -takefocus 0 -text Question] # We are *not* conventional
• BWidget application template
  22 Jul 2011 — command appNew \ -highlightthickness 0 -takefocus 0 -relief link \ -borderwidth 1 -padx 1 -pady 1 \ -helptext "Create Blank Document" $bbox add -image [Bitmap::get open] -command appOpen \ -highlightthickness 0 -takefocus 0 -relief link
• BWidget example: info organizer
  07 Mar 2005 — t $tw setwidget $t update proc data'show {args} { $::t delete 1.0 end set filename [$::swt itemcget [lindex $args 0] -data] if {[string equal $filename ""]} {return} set data [read [open $filename
• BWidget example: sqlite progress bar
  21 Feb 2011 — can be used to implement a "Cancel" button on a GUI progress dialog box.'' In general, `update` is rarely the correct solution. Replacing it with '''`return 0`''' should probably work. <<categories>>Example
• BWidget::ComboBox
  24 Jul 2009 — is a tiny change to the modifycmd: pack [ComboBox .a -values {Bach Beethoven Brahms} -modifycmd {after 0 {compo .a}}] the 'after' in the command allows BWidget to tidy itself up before proc
• BWidget::NoteBook - changing placement of arrowbutton
  01 Apr 2008 — cget $path -arrowplace] { left { set xl 0 set xr $_warrow set permanent 1 } both { set xl 0 set xr [expr {$w - $_warrow + 1}] set permanent 0 } right { set xl [expr {$w - $_warrow
• BWidget::PagesManager
  01 Dec 2011 — This is page $i"] -row 0 -column 0 -columnspan 2 grid [button $p.prev -text "Back" -command [list $pm raise [expr {$i-1}]]] -row 1 -column 0 grid [button $p.next -text
• BWidget::PanedWindow
  17 May 2017 — expand 1 bind $t <KeyRelease> "render $t $h" proc render {t h} { $h reset $h style "*{font-family: Consolas;}" $h parse -final [Markdown::convert [$t get 1.0 end]] } ====== what about scrollbars? ----
• bwise 3D graphics viewer block
  06 Jul 2011 — 0.0 0.0 -7.0 glRotatef $::g_RotAngle 1.0 1.0 1.0 glBegin GL_QUADS glColor3f 0.0 1.0 0.0 glVertex3f 1.0 1.0 -1.0
• bwise applications and examples
  21 Mar 2013 — commands. * [Bwise - a graphical programming setup] Short description. * [bwise applications and examples] This page. * [Bwise version 0.34, all in one file, 8.4 compatible] Download page (currently the latest version, all
• Bwise Applications and Examples II
  29 May 2008 — commands. * [Bwise - a graphical programming setup] Short description. * [bwise applications and examples] This page. * [Bwise version 0.34, all in one file, 8.4 compatible] Download page (currently the latest version, all
• BWise block coordinate extraction
  26 Sep 2016 — would get the bock upper left central coordinates by: ====== lrange [ $mc coords [ tag_and {Proc1 block} ] ] 0 1 ====== Now we can place any other item set by computing the difference between the
• Bwise block of the month
  10 Sep 2013 — width {60}} {height {130}} {tags {}} {name {}} {x {0}} {y {0}} {in {}} {out {out}} } { if {$name == {}} { uplevel #0 {if {[info exists entrycount] == "0"} {set entrycount 0} ;} global entrycount incr entrycount set name Scale
• Bwise deCasteljau algorithm example
  24 Sep 2012 — Funprop on that block): ====== $mc create poly 0 0 5 5 10 3 3 93 -tag bez1 -fill {} -outline navy $mc create poly 0 0 5 5 10 3 3 93 -tag
• Bwise for Presentation
  24 Jan 2011 — prescount.0] .] 0]+1] } "prev" { set prescount [expr [lindex [split [.tt.t search -back -- ---- [expr $prescount-3].end] .] 0]+1] } "dis" { } set t [expr [lindex [split [.tt.t search -- ---- $prescount.0] .] 0
• BWise functional graphs
  23 Feb 2016 — pow($x,2)))/pow($x,2) ====== Which for x=0.5,1.0,2.0 evaluates to: 218.392600133, 2.71828182846 and 0.321006354172 . Now we may want to break that equation
• Bwise traffic lights with challenges
  23 Feb 2016 — 235.0 95.0 265.0 177.0 -activedash {} -activefill {} -activeoutline {} -activeoutlinestipple {} -activestipple {} -activewidth 0.0 -dash {} -dashoffset 0 -disableddash {} -disabledfill {} -disabledoutline {} -disabledoutlinestipple {} -disabledstipple {} -disabledwidth 0 -fill yellow -offset 0,0 -outline
• Bwise version 0.34, all in one file, 8.4 compatible
  23 Nov 2008 — Bwise version 0.34, all in one file, 8.4 compatible
• Bwise, a serial port tcl script and a Xilinx demo board
  26 Sep 2016 — fh if {$np != 0} { after cancel $np ; w { 90 3C 00 } ; set np 0 } w { 90 3C 20 } ; set np [after 1600 { w { 90 3C 00 } ; set np 0}] } # create a new
• bytecode
  28 Jul 2018 — aux 0, stkDepth 1, code/src 0.00 Proc 0x0x55cfa665d7d0, refCt 1, args 0, compiled locals 0 Commands 1: 1: pc 0-1, src 2-4 Command 1: "one..." (0) push1 0
• Bytecoded K
  28 Mar 2017 — if (localIndex >= 0) { if (localIndex <= 255) { TclEmitInstInt1( INST_LOAD_SCALAR1, localIndex, envPtr); } else { TclEmitInstInt4( INST_LOAD_SCALAR4, localIndex, envPtr); } } else { TclEmitOpcode(INST_LOAD_SCALAR_STK, envPtr); } } else { if (localIndex >= 0) { if (localIndex
• Byzi
  07 May 2017 — Byzi - Tk [busy] command implementation Found on GitHub at https://github.com/aryler/Byzi/. Version 0.2, Spring 2017. The Byzi extension for Tk provides a simple means to block keyboard, button
• bztcl
  01 Oct 2013 — Identifier:| bztcl| | Version:| 0.5b5| | Title:| BZTCL| | Creator:| Marco Maggi <marcomaggi at tiscalinet dot it>| | Rights:| modified BSD| | URL:| http://download.gna.org/bztcl/| | Available:| date| | Depends:| tclmore http://download.gna.org
• C code generators
  05 Mar 2013 — to mention here? What: Embedded C (EC) Where: ftp://ftp.reed.edu/pub/users/greaber/ec-0.1.tar.gz Description: Allows you to include C code in your Tcl scripts, compiling
• C level Thread Pool
  14 Sep 2012 — 0; Tcl_ConditionNotify(&t->wait); Tcl_ConditionWait(&t->wait, &t->lock, NULL /* no timeout */); if ( t->work ) { Tcl_MutexUnlock(&t->lock); t->func(t->data); Tcl_MutexLock(&t->lock); t->work = 0
• C struct is Tcl!
  19 Mar 2016 — be ====== proc cycle listName { upvar 1 $listName list set first [lindex $list 0] set list [lreplace $list [set list 0] 0] lappend list $first set first } ====== since it (usually) allows the original
• C++ object-style Tcl example extension
  05 Mar 2015 — Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 0) == NULL) { return TCL_ERROR; } if (Tcl_PkgProvide(interp, "example", "0.1") != TCL_OK) { return
• C++/Tcl
  27 Sep 2018 — cpptcl.cpp /I C:/Tcl/Include /I C:/Programming/boost_1_32_0 /I C:/Downloads/TCL/cpptcl-1.0.0 /link /dll c:/Tcl/lib/Tcl84.lib Generates Code OK Following
• C-header Parser
  01 Feb 2012 — 0 { proc test {} { h-parse test.h puts "===== list of globals with \"A\" =====" foreach var [info globals *A*] { puts $var\t\t[set ::$var] } puts "===== some usage examples =====" for {set i 0
• C-like include in tcl
  11 Nov 2006 — uplevel [list set $arg]]; } elseif {[uplevel #0 [list info exists $arg]]} { !includePath [uplevel #0 [list set $arg]]; } else { foreach directory $arg { if {[lsearch -exact ${!includePath} $directory] < 0} { lappend !includePath $directory; } } } } return ${!includePath
• C-like structs and file scope
  01 Sep 2015 — file int needsSave=0 // if 1, file needs saving } proc init {filename} { set editor [new Editor] set editor->filename $filename return $editor } } ;# end scope Editor.tcl init [lindex $argv 0] ====== '''Private Vars
• C.tcl
  16 Jan 2011 — requires stubs-support."; ip->freeProc = TCL_STATIC; return 0; } tclStubsPtr = hoi->stubTable; if (Tcl_PkgRequire(ip, "Tcl", "8.1", 0) == NULL) { tclStubsPtr = NULL; return 0; } if (tclStubsPtr->hooks != NULL) { tclPlatStubsPtr = tclStubsPtr->hooks
• Caching Dynamic Libraries and Fixing Dependencies
  22 Sep 2018 — linsert $args 0 [namespace current]::__original_load]} err] } { # Advance through arguments to load until the filename, i.e. the path to # the dynamic library to load. for {set i 0} {$i<[llength
• Caching VFS
  02 Jun 2014 — log "fileattributes $args" switch -- [llength $args] { 0 { # list strings return [list] } 1 { # get value set index [lindex $args 0] } 2 { # set value set index [lindex $args 0] set val [lindex $args 1
• caesar
  19 Jan 2014 — args 0 0] } -f* { set opts(filename) [lindex $args 1] set args [lreplace $args 0 0] } -- { set args [lreplace $args 0 0] break } default { return -code error "bad option [lindex $args 0
• calcOnlyOnce
  21 Sep 2018 — calculations: ====== array set delayed {} proc calcOnlyOnce args { set args1 [concat [ uplevel 1 namespace origin [lindex $args 0]] [lrange $args 1 end]] variable delayed if {[info exists delayed($args1)]} then { set delayed($args1
• Calculate Astronomical Seasons
  04 Sep 2018 — set Y [expr {($year - 2000) / 1000.0}] # Julian to Gregorian proc J2G { jda } { set jd [expr {floor($jda + 0.5)}] set z [expr {$jda - $jd + 0.500001}] set tz [expr {$jd - 1721117
• Calculate Crossing of Cubic Bezier Curves
  20 Jan 2018 — 85.0 282.0 136.0 202.0 226.0 206.0 263.0 288.0" # set red "104.0 221.192152 155.0 301.192152 245.0 297.192152 282.0
• Calculating the Date of Easter
  30 Nov 2017 — MNO] ====== #!/bin/sh # next line restarts with tclsh \ exec tclsh $0 ${1+"$@"} # # Author: Mark Oakden http://wiki.tcl.tk/MNO # Version: 1.0 # # calculate Easter Sunday using the algorithm given at # http
• calendar
  25 Dec 2013 — http://incrtcl.sourceforge.net/iwidgets/iwidgets/calendar.html and http://purl.org/tcl/home/man/iwidgets3.0/calendar.n.html [GWM] Note that the iwidgets calendar uses the same date formula as
• calendar reuse
  18 Jan 2013 — can be used again [rvb] reference: http://webexhibits.org/calendars/year-definitions.html ---- ====== array set R {0 {28} 1 {6 17 28} 2 {11 17 28} 3 {11 22 28}} set this
• Call Procedure Like Fortran Example
  05 Mar 2017 — program loaded, [gold] ====== 1% call subroutine2 call subroutine 2 active6 % call 0 7% call call 0 8% call call call 0 #trivial (zero list) but no errors from multiple calls. ====== ---- [gold] This
• callback
  10 Nov 2017 — searched during name resolution. You can change that with `[namespace path]`: ====== namespace path [linsert [namespace path] 0 [namespace parent]] ====== Seeding the resolution: ...the previous point being a special case of using `namespace
• calling Fortran routines in a DLL
  08 Nov 2014 — n\nTest 2" set a {1 2 3} set b {10 20 30} set c {0 0 0} set l 3 puts "a is $a" puts "b is $b" puts "c is
• calling pdflatex
  03 Jul 2011 — if 0 { @tclkitsh "%~dp0\%~n0.bat" %* @goto :EOF } # pl.bat - helper/shell for pdflatex (TexLive) # call pdflatex with specific or with newest file (win-doubleclick) # 05.07.2007, MHo # if no arg
• Can You Read This?
  03 May 2016 — txt" -title "About $::S(title)" } proc Mix {} { set txt [.ptext get 0.0 end] set mix [MixWords $txt] .mtext delete 0.0 end .mtext insert end $mix } proc MixWords {txt} { set result
• Can you run this benchmark 10 times faster
  31 Jan 2017 — last / $IM} } proc main {} { global argv set N [lindex $argv 0] set result 0.0 while {$N} { set result [gen_random 100.0] incr N -1 } puts [format "%.13f" $result] } main ---- '''The
• Cantcl
  19 Oct 2012 — few lines of code anyway. CF: Identity: mypackage Version: 1.0.0 with set pkginfo(identity) {mypackage} set pkginfo(version) {1.0.0} I'm also concerned about sourcing tcl files even
• CANTCL URL interface
  11 Oct 2012 — anagif.kit -- get latest version of anagif as a starkit cantcl/package/anagif1.0.zip -- get version 1.0 cantcl/package/anagif/ * returns a page of links to package contents which can
• canvas
  22 Oct 2017 — rowconfigure .f 0 -weight 1 -minsize 0 grid rowconfigure .f 1 -weight 0 -minsize 0 grid columnconfig .f 0 -weight 1 -minsize 0 grid columnconfig .f 1 -weight 0 -minsize 0 grid
• Canvas Annotations
  12 Nov 2009 — color lightyellow} variable A unset -nocomplain A } proc ::Annotations::Draw {w aid txt ax ay {dx 0} {dy 20}} { variable A variable S .c delete $aid set A($w,$aid,pt) [list
• Canvas Buttons
  16 Feb 2014 — 00:06 jcw Exp $} package provide canvasbutton 1.0 namespace eval canvasbutton { # nexttag - Next unique tag number for a "button" being # created variable nexttag 0 # command - command(tag#) contains the command to
• Canvas Buttons in 3-D
  16 Feb 2014 — provide canvasbutton 1.0 source box3d.tcl ;# Assumed to be in the working directory. namespace eval canvasbutton { # nexttag - Next unique tag number for a "button" being # created variable nexttag 0 # command - command
• Canvas cyclic object selection
  26 Jan 2013 — selection_activate_token { unique_name_in_global_namespace } { uplevel \#0 \ [list upvar \#0 $unique_name_in_global_namespace uwp_cyclic_selection_token] upvar \#0 uwp_cyclic_selection_token data if { ! [info exists
• Canvas dash lines
  08 Feb 2013 — 0} {incr i} { set yaw [expr {double($i)*6.28318530718/16.0}] set coords [list 150.0 230.0 \ [expr {150.0+70.0*cos(double($yaw))}] \ [expr {230.0+70.0
• Canvas dials
  05 Jul 2011 — variable V -to 180 -bg yellow set V 0 dial .c 120 10 220 110 -variable R -to 5000 -fg blue set R 0 raise . bind . <Up> {incr V 5; incr R
• Canvas equaliser
  08 Nov 2017 — sunken option add *Equaliser.borderWidth 1 option add *Equaliser.highlightTickness 0 option add *Equaliser.canvas.borderWidth 0 option add *Equaliser.canvas.highlightTickness 0 option add *Equaliser.canvas.relief flat option add *Equaliser
• Canvas geometrical calculations
  26 Jan 2012 — vertices in 0.0037 seconds on a 800MHz computer. The algorithms takes care of holes. Try this polygon (.c is a canvas widget): ====== .c create polygon 0 0 100 0 100 100
• Canvas microjustification
  02 May 2015 — self mj[$c create rect $x0 $y0 $x1 $y1 \ -fill $opt(-bg) -outline $opt(-bg)] upvar #0 $_self self array set self [list x $x0 x0 $x0 y $y0 x1 $x1 y1
• Canvas moving objects and toggle tags
  30 Apr 2016 — x $y $::halo $tag if {[lsearch [$w gettags $ttt] $tag] >= 0} { $w dtag ($ttt&&$tag) $tag item:hover $w $x $y 0 } else { $w addtag $tag withtag ($ttt&&!$tag) item:hover $w
• Canvas object dropper
  19 Jan 2005 — proc droppable_object_remove_from_canvas { token } { upvar \#0 $token object $object(CANVAS_WIDGET) delete $object(DELETE_TAG) } proc droppable_object_forget { token } { uplevel \#0 [list unset $token] } proc droppable_none_register
• Canvas pixel painting
  16 Oct 2013 — paint(can) create image \ 0 0 \ -anchor nw \ -image $_paint(image) \ ] # Paint pixel at a X,Y coord proc Paint {x y} { global _paint if {$x >= 0 && $y >= 0} { $_paint(image) put
• Canvas presentation graphics
  01 Mar 2016 — while {[gets stdin line]>=0} { > # irgendeine Verarbeitung des Inputs, z.B. > set line [string toupper $line] > puts stdout $line > } + Iteration über Dateien: Größensumme in Bytes > set sum 0 > foreach i [glob *] {incr
• Canvas rectangle marking
  30 Nov 2017 — y0 x1 y1} [$w coords $item] break $w coords $item $x0 $y0 $x $y } release { uplevel \#0 [lappend cmd [$w coords [$w find withtag rect]]] } default {error "bad type $type: use press
• Canvas scrolling by dragging mouse
  10 Oct 2015 — y [expr {$max-$x}]] $y } $c create line 0 0 $max $max $c create line 0 $max $max 0 $c configure -scrollregion [list 0 0 $max $max] } #page proc uwp_data_set
• Canvas selection with marching ants
  29 Jan 2013 — grid .f.c -sticky news -row 0 -column 0 grid .f.vb -sticky ns -row 0 -column 1 grid .f.hb -sticky ew -row 1 -column 0 listbox .l -background bisque grid
• Canvas slowdowns
  30 Apr 2016 — counts {} for {set i 0} {$i < 100} {incr i} { lappend line_counts [RandomInteger4 40 80] } set size 4 set count 0 foreach el $line_counts { for {set i 0} {$i < $el} {incr
• Canvas Structured Graphics
  14 Oct 2011 — by default: set box [canvas::rect $c 0 0 10 10] canvas::rect 10 10 10 10 -in $box Or: canvas::rect $c 0 0 10 10 { canvas::rect 10 10 10
• Canvas to SVG
  05 Mar 2013 — find all] { set type [$c type $item] set atts "" foreach {x0 y0 x1 y1} \ [string map {".0 " " "} "[$c coords $item] "] break set fill [rgb2xcolor [$c itemcget $item -fill]] catch {set stroke [rgb2xcolor
• Canvas undo and redo
  05 Mar 2013 — 0] [lindex $i end] } set res } #-- Stack routines (see [Stacks and queues]): interp alias {} push {} lappend proc pop {_stack} { upvar 1 $_stack stack K [lindex $stack end] [set stack [lrange $stack 0
• Canvas woes
  11 Nov 2006 — scrollregion "0 0 $scrollWidth $scrollHeight" # Create a frame widget within the ScrolledCanvas, which # will serve as a container for the individual rows set sf [frame $sc.f] $sc create window 0 0
• Canvas zooming
  24 Feb 2011 — row 0 -column 0 -columnspan 3 -sticky news grid .svert -row 0 -column 3 -columnspan 1 -sticky ns grid .shoriz -row 1 -column 0 -columnspan 3 -sticky ew grid columnconfigure . 0 -weight
• Canvas zooming using mousewheel
  26 Jul 2018 — mx<0.0 } { set mx 0.0 } elseif { $mx>1.0 } { set mx 1.0 } if { $my<0.0 } { set my 0.0 } elseif { $my>1.0 } { set my 1.0 } $c
• Canvas2Image
  07 May 2012 — x1a < 0} { set x1a 0 } if {$x1b < 0} { set x1b 0 } if {$y1a < 0} { set y1a 0 } if {$y1b < 0} { set y1b 0 } if {$x2a < 0} { set x2a 0 } if {$x2b < 0
• canvas2mvg
  04 Sep 2010 — 10.0 fill #ffff00 stroke #0000ff stroke-linejoin miter # polygon ... current path 'M 165.0 65.0 L 120.0 20.0 120.0 110.0 210.0 110.0 165.0
• canvasdump
  02 Jul 2017 — rectangle {10.0 10.0 100.0 100.0} -fill yellow -width 5.0]\ [$canvas create oval {50.0 50.0 150.0 150.0} -fill red -width 5.0] } ====== Restoring: ====== % toplevel
• canvasprintbox
  20 Nov 2012 — iwidgets/canvasprintbox.gif] Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/canvasprintbox.html and http://purl.org/tcl/home/man/iwidgets3.0/canvasprintbox.n.html <<categories>> Command | incr Widgets
• canvasprintdialog
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/canvasprintdialog.html and http://purl.org/tcl/home/man/iwidgets3.0/canvasprintdialog.n.html ---- [Category Command], a part of [incr Widgets]
• Capicol
  07 Jul 2011 — if {$level != 0} { call error "unquoted \\n inside an command" } if {![string is space [dict get $stack 0]]} { lappend result [dict get $stack 0] incr counter dict set stack 0 {} } } elseif {[string
• Capitalize -Create WP formatted title strings on arbitrary strings
  31 Dec 2013 — totitle $word] } lappend text $word } # make sure initial is always capital return [string totitle $text 0 0] } # demo -------- puts [capitalize "the development of perfection -the interiorization of buddhist ritual in the eighth
• Capsule Surface Area & Volume and eTCL demo example calculator
  12 Jan 2017 — 0 1. 1.0 1.0 1.0 6.283 18.849 7.330} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 2.0 2.0 1.0 1.0 1.0
• Captioning Photo Image under Pixane Example
  22 Apr 2016 — egg %x %y} .c bind $bird <B1-Motion> {moveobject2 $bird %x %y} grid .c -row 0 -column 0 wm title . " Captioning Photo Image under Pixane Example " ====== *** Code scraps, timing statements*** ====== puts " loading
• Capturing Multiple Screens
  20 Jul 2011 — variable W set cnt 0 for {set row 0} {$row < $BOX(rows)} {incr row} { for {set col 0} {$col < $BOX(cols)} {incr col} { if {$BOX(val,$row,$col) == 0} continue if {[incr
• Capturing stdout and stderr in C or C++ program
  03 Jul 2012 — STDERR); Tcl_RegisterChannel(0,m_Err); // // run one command to demonstrate how it works const char testcommand[] = "puts $tcl_version"; int result = Tcl_EvalEx(interp,testcommand,strlen(testcommand),0); // show the result
• Car racing in Tcl
  25 Aug 2011 — lappend cars $name interp alias {} $name {} car::dispatch $name namespace eval $name { variable angle 0 frontangle 0 speed 0 } namespace eval $name [list variable canvas $c] interp alias {} $name: {} namespace eval ::car
• card_img
  25 Jun 2015 — green: # image create photo ::img::marker -width 71 -height 96 # ::img::marker put #0000cccc0000 -to 0 0 70 95 # Light green solid card, like Scorebox: image create photo ::img::marker0 -format gif
• careck
  07 Sep 2013 — rl {} foreach p $dlist { set found 0 foreach d $dtag { if {[lsearch [lindex $p 2] $d] > -1} { incr found 1 } else { incr found -1 } } if {$found > 0} { lappend rl $p } } set rl
• Cartesian product
  16 May 2012 — tupleset_right {A B} { set res {} foreach a $A { foreach b $B { lappend res [linsert $b 0 $a] ; # Or [concat [list $a] $b] } } return $res } ====== Where do these ever occur, you may
• Cartesian product of a list of lists
  13 Jul 2015 — uplevel 1 [lindex $args 0] } result] } else { set status [catch { uplevel 1 [linsert $args 0 rforeach_nested] } result] } if { $status != 0 && $status != 4 } break } switch -exact -- $status { 0 - 3 - 4 { return } 1
• carto
  18 Apr 2011 — set debug 0 upvar ::carto::${w}::var v switch -- $cmd { center { set vcx [expr {([::_$w canvasx 0]+$v(ww)/2.0)/($v(scale)*$v(-pixelaspectratio))}] set vcy [expr {-([::_$w canvasy 0]+$v
• CAS
  14 Sep 2016 — Man Page** ====== NAME cas - Character And String utility procedures SYNOPSIS package require Tcl package require cas 0.2 namespace import ::cas::* randAZChar randAZazChar randAZazString length strUnique str ?length? ?uStr? DESCRIPTION A Tcl
• case
  23 Oct 2010 — Desgraupes on the Alpha developers list kindly provided the man page, digged out from the 8.0.5 distribution: ===none NAME case - Evaluate one of several scripts, depending on a given value
• case:title -Create WP formatted title strings on the active selection
  02 Sep 2015 — b [string trimright $b .] # make sure initial is always capital set b [string totitle $b 0 0] $w insert $first $b } proc demo {} { console show puts [string totitle "how now brown cow
• castle
  02 Sep 2015 — level) 0 set data(chapter_count) 0 set data(first)(0) 0 set data(count)(0) "" set data(lock) (i) 0 set data(lock) (b) 0 set data(lock) (u) 0 set
• catch
  21 Apr 2016 — get it: set status [lindex $errorCode 2] } else { # exit status was 0 # result contains the result of your command set status 0 } ====== [glennj]: the above is ''slightly'' lazy. The definitive method is
• catcom
  08 Jun 2016 — twapi. # # ----------------------------------------------------------------------------- # ----------------------------------------------------------------------------- # Revision history: # 07.06.16: J.Oberdorfer, initial release # ----------------------------------------------------------------------------- # ----------------------------------------------------------------------------- package require twapi package provide catcom 0.1 namespace eval catcom { namespace export getCatiaApp namespace export catia.Documents.Open namespace export catia
• Category Ajax
  10 Mar 2014 — Pages about and utilities for using the new XMLHttpRequest-based browser features used in many Web 2.0 applications. Pages in this category: <<backrefs>> <<categories>> Category | Internet | Web
• CAWT
  28 Apr 2018 — A new version (0.4.0) of TcomOffice with support to put table data from Excel into Word and vice versa. [PO] 2011/08/28 - A new version (0.4.1) of
• CBB
  01 Oct 2012 — Mac qif files. The program requires Perl 5 and Tcl/Tk 8.x.| || Currently at version 0.8.1.| | Updated:| 01/2000| | Contact:| mailto:curt@me.umn.edu (Curtis Olson)| ---- About [QIF
• CC.tcl
  08 May 2010 — Colin McCormack, Steve Landers, Jean-Claude Wippler other parties package require platform package provide CC 1.0 # CC - compiler driver namespace eval CC { proc param {name content} { variable param foreach line [split
• CCI extension (Ball)
  10 Dec 2002 — What: CCI extension (Ball) Where: ftp://www.zveno.com/pub/CCI/CCI-1.0.tar.gz Description: The PASTIME Project of the Advanced Computations Systems Cooperative Research Centre has released the first
• ccn7
  19 Apr 2015 — ftp2 set type_ FTP $ns at 0.1 "$ftp1 start" $ns at 10.0 "$ftp2 start" $ns at 50.0 "$ftp1 stop" $ns at 45.0 "$ftp2 stop" proc finish {} { global ns
• ccollate
  01 Jan 2015 — string1 string2'' This command compares two strings. It returns -1 if ''string1'' is less than ''string2'', 0 if they are equal and 1 if ''string1'' is greater than ''string2''. If '''-local''' is
• cd
  05 Mar 2013 — cd_stack if {$dir=="-"} { set dir [lindex $cd_stack end] set cd_stack [lrange $cd_stack 0 end-1] } else { if {$dir==""} {set dir $::env(HOME)} lappend cd_stack [pwd] } tcl::cd
• CDE
  21 Jul 2011 — What: CDE Where: ftp://ftp.procplace.com/pub/tcl/sorted/x11/cde/0.3.0/ Description: Get Tk to look good under CDE, using the Tk options database as well as the
• CEDict Viewer
  25 Jun 2011 — set fp [open $fname r] set i 0 while {[gets $fp entry] >= 0} { # process file header if {[string index $entry 0] == "#" } { switch [string range $entry 0 1] { "# " { puts [string trimleft $entry {# }] } "#!" { puts
• cells
  10 Jan 2012 — size 0.5] \ +padx [size 0.2] cells::config btn(0) -text Confirm -command {exit} -height [size 0.5] -width 100 cells::config btn(1) -text Cancel -command {exit} -height [size 0
• Cellular automata - Greenburg-Hastings
  29 Apr 2018 — 0}] 0 lset state [expr {$y+1}] [expr {$x+1}] 0 } if { $p == 1 } { lset state [expr {$y+0}] [expr {$x+0}] 2 lset state [expr {$y+0}] [expr {$x+1}] 0
• Celtic Knot
  16 May 2013 — 0.0 ? 0.0 : $r > 1.0 ? 1.0 : double($r)}] set g [expr {$g < 0.0 ? 0.0 : $g > 1.0 ? 1.0 : double($g)}] set b [expr {$b < 0.0
• Centered Coordinate System
  05 Jun 2018 — width 200 -height 200 -bd 0 -highlightthickness 0] bind .c <Configure> {apply {{W h w} { set h [expr {$h / 2.0}] set w [expr {$w / 2.0}] $W config -scrollregion [list -$w
• Centering a window
  16 Aug 2012 — img] set width [image width $img] canvas $w -width $width -height $height $w create image 0 0 -anchor nw -image $img } else { canvas $w set width [winfo reqwidth $t] set height [winfo
• Centering a window on windows
  09 Feb 2009 — window {w} { set tw ${w}_temp_ catch {destroy $tw} toplevel $tw wm attributes $tw -alpha 0.0 ; # vermeidet flickern wm state $tw zoomed update idletasks foreach {areaW areaH offsX offsY} [split [winfo
• ceptcl
  07 Feb 2016 — Does ceptcl support [SCTP]? ]] [Stu] No, unless unintentionally. ---- **Ceptcl 0.4** [Stu] 2008-11-28 Ceptcl 0.4 is released. === New for Ceptcl 0.4: * Major cleanup. * Bug removal. * Local names handled
• cequal
  01 Jan 2015 — compares two strings for equality. It returns 1 if ''string1'' and ''string2'' are the identical and 0 if they are not. This command is a short-cut for [string compare] and avoids
• cfile
  12 Mar 2015 — the BSD license. package provide cfile 0.1 namespace eval cfile {} set ::cfile::id 0 array set ::cfile::fd {} proc cfile {filename args} { switch -- [llength $args] { 0 {set fd [open $filename]} 1
• CGI
  28 Nov 2013 — largely supersedes cgilib. * [websh] can be used in CGI mode for Apache 1.3 and 2.0 * [cgi by hand] * [Playing CGI] * [cgibitch] * [FastCGI] is also likely to be of interest. * [cgiget
• cgi.tcl
  25 Jan 2014 — server the_file] # If file size is 0, delete the CGI temp file and redirect # client to the upload error page if {[file size $server] == 0} { file delete $server cgi_redirect /my
• cgibitch
  15 Sep 2012 — separate CGI query arguments and handles GET and POST requests transparently.| || It is currently at v1.0.4.| | Updated:| 02/2000| | Contact:| mailto:reeves@earthling.net| ---- Url broken 12/13/2010 - anyone
• cgraph
  26 Feb 2017 — NET/schlenker/tcl/cgraph website (dead): http://physnet.uni-oldenburg.de/~schlenk/tcl/graph/ last release: 0.6 ** Description ** '''cgraph''' has been superseded by a [critcl]-based [C] implementation included in [Tcllib
• cgrep - Color your output with regular expressions!
  20 Aug 2014 — name == [lindex $argv 0]} { set argv $patterns break } } } proc shift {ls} { upvar 1 $ls LIST if {[llength $LIST]} { set ret [lindex $LIST 0] set LIST [lreplace $LIST 0 0] return $ret } else
• CGT
  21 Dec 2001 — The [IONA Technologies]' Code Generation Toolkit [http://www.iona.com/docs/orbix2000/2.0/codegen/html/index.html] uses Tcl to generate [CORBA] stubs in target languages from IDL. More precisely, IONA
• Chain simulation
  12 Apr 2012 — w coords chain] 2 end] { set xd [- $x1 $x0] set yd [- $y1 $y0] if {$xd == 0 && $yd == 0} { return } set nd [/ $seglen [hypot $xd $yd]] set x1 [- $x1 [* $xd $nd]] set y1
• Chaining things
  07 Sep 2013 — self new $name [$self] $args namespace eval ::thing::$name "::set is-a \[lreplace \${is-a} 0 0 $name\]" ::set pre ::thing::${self} foreach i [::info proc ${pre}::*] { regsub ${pre}:: $i "" i2 ::thing
• chan configure
  13 Apr 2015 — was introduced as a migration aid to help with either the 7.6 -> 8.0 or the 8.0 to 8.1 transitions. `iso8859-1` has the privileged relationship with [Unicode] that
• chan mode
  17 May 2010 — interp) { if (Tcl_InitStubs(interp, "8.5", 0) == 0) { return TCL_ERROR; } Tcl_CreateObjCommand(interp, "chanmode::mode", Chanmode_ModeObjCmd, NULL, NULL); Tcl_PkgProvide(interp, "chanmode", "0.1"); return TCL_OK; } ====== <<categories>> Channel
• chan pending
  07 Jun 2016 — configure $channel -blocking 0 -buffersize 4096 chan event $channel readable [list doGets $channel $cb] set ::timeouts($channel) "" } proc doGets {channel callback} { global timeouts if {[chan gets $channel line] >= 0} { after cancel $timeouts
• chan pipe
  22 Nov 2016 — pw1 $pw2] fileevent $pr1 readable "readpipe $pr1 $pr2" fconfigure $pr1 -blocking 0 fileevent $pr2 readable "readpipe $pr2 $pr1" fconfigure $pr2 -blocking 0 proc readpipe {p1 p2} { append ::out($p1) [read $p1] if
• Changes in Tcl/Tk 7.6/4.2
  02 Sep 2013 — forget'' has similar semantics to ''pack forget''. ''auto_execok'' returns a list of arguments suitable for passing to ''exec'', not simply 0 or 1. ---- [Donald Porter] <<categories>> Documentation | Changes in Tcl/Tk
• Changes in Tcl/Tk 8.0
  08 Sep 2012 — Released August 18, 1997 '''New packages''' * http 1.0 * [http] 2.0 * [opt] 0.1 * [registry] 1.0 (''Windows'') '''New Tcl commands''' * [binary] * [fcopy] * [namespace] * resource (''Mac'') * [safe]::interpCreate * safe::interpInit * safe
• Changes in Tcl/Tk 8.0.3
  02 Sep 2013 — Changes in Tcl/Tk 8.0.3
• Changes in Tcl/Tk 8.0.4
  02 Sep 2013 — Changes in Tcl/Tk 8.0.4
• Changes in Tcl/Tk 8.0p2
  12 Mar 2015 — enhancement) Made the changes required to work with the new Apple Universal Headers V. 3.0 so we can compile with CW Pro 2.0 (JI) === <<categories>> Documentation | Changes in Tcl/Tk
• Changes in Tcl/Tk 8.1
  13 Mar 2015 — Released April 29, 1999 **New packages** * [dde] 1.0 (''Windows'') * [msgcat] 1.0 * [opt] 0.4 **New Tcl commands** * [encoding] **New Tcl subcommands** * [package present] * [string totitle] **Expanded syntax/new options** [fconfigure
• Changes in Tcl/Tk 8.2.0
  12 Mar 2015 — Changes in Tcl/Tk 8.2.0
• Changes in Tcl/Tk 8.3.1
  12 Mar 2015 — packages. Their minor release numbers should have been incremented, but were not.'' * [dde] 1.0 * [msgcat] 1.0 ---- '''NOTE''' The following changes are indicated in the documentation of Tk 8.3, but
• Changes in Tcl/Tk 8.3.3
  12 Mar 2015 — Released April 6, 2001 '''New packages''' * [opt] 0.4.2 '''New default''' * [[tk useinputmethods]] == 1 '''Expanded syntax/new options''' [expr] {![[set a on]]} [scan] [[format %o -1]] %o v; # $v == -1 scan
• Changes in Tcl/Tk 8.3.4
  12 Mar 2015 — October 19, 2001 '''New packages''' * [http] 2.4 * [msgcat] 1.1.1 * [opt] 0.4.3 * [tcltest] 1.0.1 '''Expanded syntax/new options''' [lsort] -index end-''index'' '''Changed behavior''' ''auto_import
• Changes in Tcl/Tk 8.3.5
  12 Mar 2015 — New packages''' * [http] 2.4.2 * [tcltest] 1.0.2 ---- [LV] I don't seem to see references to this release in the ChangeLog or changes files. Anyone know when it occurred
• Changes in Tcl/Tk 8.4.2
  12 Mar 2015 — Released March 3, 2003 **Updated packages** * [dde] 1.2.1 ''(Windows)'' * [opt] 0.4.4 * [registry] 1.1.1 ''(Windows)'' * [tcltest] 2.2.2 **Tcl: Changed behavior** ''[pkg_mkIndex] -load'' uses case
• Changes in Tcl/Tk 8.4.5
  04 Oct 2012 — November 20, 2003 '''Updated packages''' * [dde] 1.2.2 * [http] 2.4.5 * [msgcat] 1.3.1 * [opt] 0.4.4.1 * [registry] 1.1.3 <<categories>> Documentation | Changes in Tcl/Tk
• Changes in Tcl/Tk 8.4.7
  12 Mar 2015 — Released July 26, 2004 '''Updated packages''' * [dde] 1.2.3 * [http] 2.5.0 * [msgcat] 1.3.2 * [tcltest] 2.2.6 '''Tcl: Expanded Syntax / New Options''' '''[exec]''' ''program'' '''2>@1'''; '''[open
• Changes in Tcl/Tk 8.4.20
  22 Aug 2014 — msgcat] 1.3.5 * [tcltest] 2.2.11 * [platform] 1.0.11 **Tk Changes** ***Changed Tk behavior*** * Compatible with post xproto-7.0.13 X11 headers from X.org. * New color names
• Changes in Tcl/Tk 8.5
  06 Apr 2016 — tk/248%|%248] [tile] '''0.8.0''': [TIP] [http://tip.tcl.tk/248%|%248] [Ttk] '''8.5.0''': [TIP] [http://tip.tcl.tk/248%|%248] [platform] '''1.0.3''': [TIP] [http://tip
• Changes in Tcl/Tk 8.5.7
  13 Mar 2015 — Released April 15, 2009 '''Updated packages''' * [http] 2.7.3 * [platform] 1.0.3 * [tcltest] 2.3.1 <<categories>> Documentation | Changes in Tcl/Tk
• Changes in Tcl/Tk 8.5.8
  13 Mar 2015 — Released November 16, 2009 '''Updated packages''' * [http] 2.7.5 * [platform] 1.0.5 * [tcltest] 2.3.2 '''Tcl: POTENTIAL INCOMPATILITY''' [Resize of the mp_digit type] <<categories>> Documentation | Changes in Tcl
• Changes in Tcl/Tk 8.5.10
  13 Mar 2015 — New Commands**** * [interp] '''debug interp-path ?-frame ?boolean??''' '''Updated packages''' * [msgcat] 1.4.4 * [platform] 1.0.10 * [http] 2.7.6 * [tcltest] 2.3.3 **Tk Changes** ***Changes to Tk Commands
• Changes in Tcl/Tk 8.5.13
  13 Nov 2012 — Character/codepoint values from Unicode 6.2. '''Updated packages''' * [http] 2.7.10 * [msgcat] 1.5.0 **Tk Changes** ***Changed Tk behavior*** * --enable-aqua is no longer Carbon, now Cocoa. * New color
• Changes in Tcl/Tk 8.5.14
  13 Mar 2015 — locked files on Windows. '''Updated packages''' * [http] 2.7.11 * [msgcat] 1.5.1 * [platform] 1.0.11 * [tcltest] 2.3.5 **Tk Changes** ***Changed Tk behavior*** * Update treeview when tags changed
• Changes in Tcl/Tk 8.5.15
  22 Aug 2014 — squelching execution trace errors. '''Updated packages''' * [http] 2.7.12 * [msgcat] 1.5.2 * [platform] 1.0.12 **Tk Changes** ***Changed Tk behavior*** * Improvements to file dialogs. <<categories>> Documentation | Changes in Tcl
• Changes in Tcl/Tk 8.5.16
  27 Aug 2014 — Changes** ***Changed Tcl behavior*** * Unicode 7.0 charset (within BMP) * [[scan %E%G%X]]. '''Updated packages''' * [http] 2.7.13 * [tcltest] 2.3.8 * [platform] 1.0.13 **Tk Changes** ***Changed Tk
• Changes in Tcl/Tk 8.5.18
  12 Mar 2015 — 18.txt/view] March 6. 2015 **Tk Changes** ***Changed Tk behavior*** * Debut of Tk Cocoa 2.0 . * New binding substitution ''%M'' [[[http://tip.tcl.tk/433%|%TIP #433]]] <<categories>> Documentation | Changes in
• Changes in Tcl/Tk 8.5.19
  12 Feb 2016 — platform]('''engine'''): [TIP][http://tip.tcl.tk/440%|%440] ***Changed Tcl behavior*** Update to Unicode 8.0 support. ---- **Tk Changes** ***Changes to Tk Commands*** ****Expanded Syntax / New Options**** ''[panedwindow]'' '''-proxybackground''' ''color'' '''-proxyborderwidth
• Changes in Tcl/Tk 8.6
  21 Sep 2017 — 376]]] * [tdbc] 1.0.0 [[[http://tip.tcl.tk/308%|%TIP #308]]] * [tdbc::mysql] 1.0.0 [[[http://tip.tcl.tk/308%|%TIP #308]]] * [tdbc::odbc] 1.0.0 [[[http://tip.tcl
• Changes in Tcl/Tk 8.6.1
  26 Apr 2014 — generate genuine uuencoded data ** '''Potential Incompatibility''' '''Updated packages''' * [TclOO] 1.0.1 * [http] 2.8.7 * [msgcat] 1.5.2 * [platform] 1.0.12 * [tcltest] 2.3.6 **Tk Changes** ***Changed Tk
• Changes in Tcl/Tk 8.6.2
  26 Aug 2014 — TclOO] 1.0.2 * [http] 2.8.8 * [msgcat] 1.5.2 * [platform] 1.0.13 * [tcltest] 2.3.7 * [itcl] 4.0.1 * [Thread] 2.7.1 * [tdbc]* 1.0.1
• Changes in Tcl/Tk 8.6.3
  06 Feb 2015 — Windows [[[http://tip.tcl.tk/432%|%TIP #432]]] ***Updated packages*** * [TclOO] 1.0.3 * [itcl] 4.0.3 * [tdbc] 1.0.3 * [sqlite] 3.8.7.1 <<categories>> Documentation | Changes in Tcl
• Changes in Tcl/Tk 8.6.4
  26 Mar 2015 — tip.tcl.tk/427%|%TIP #427]]] **Tk Changes** ***Changed Tk behavior*** * Debut of Tk Cocoa 2.0 . * New [bind]ing substitution '''%M''' [[[http://tip.tcl.tk/433%|%TIP #433]]] <<categories>> Documentation | Changes
• Changes in Tcl/Tk 8.6.5
  29 Feb 2016 — Itcl] 4.0.4 * [sqlite3] 3.11.0 * [tdbc] 1.0.4 * [tdbc::mysql] 1.0.4 * [tdbc::odbc] 1.0.4 * [tdbc::postgres] 1.0.4 * [tdbc::sqlite3] 1.0.4
• Changes in Tcl/Tk 8.6.8
  27 Dec 2017 — Changes to Bundled Packages** ***Updated packages*** * [http] 2.8.12 * [Itcl] 4.1.1 * [Thread] 2.8.2 * [sqlite] 3.21.0 * [tdbc]* 1.0.6 <<categories>> Documentation | Changes in Tcl/Tk
• char2ent
  18 Jan 2013 — literal special characters, then replace specials with appropriate SGML entities and output.| || Currently at version 0.0 .| | Updated:| 11/2004| Contact: [LES] ---- [LES] on November 18, 2004: Get the code here: [http
• Characteristic lengths and between Biophoton sensors in the Ultraviolet Spectrum and TCL Slot Calculator, numerical analysis
  17 Mar 2018 — wiki format|% &| quantity | value| comment, if any|& &| testcase number:|1 | |& &| site number :|1.0| |& &| julian date start day :|42.0| |& ---- **** Testcase 2 **** ---- **** Testcase 3 **** ---- ***References:*** * Characteristic lengths and between Biophoton systems ---- image
• characters
  05 Mar 2013 — represented with Unicode (see [Unicode and UTF-8]), which can be seen as unsigned integers between 0 and 65535 (recent Unicode versions have even crossed that boundary, but the Tcl implementation currently
• Chart generation support
  30 Nov 2012 — 1.0 } elseif {$frac < 3.0} { set nice 2.0 } elseif {$frac < 7.0} { set nice 5.0 } else { set nice 10.0 } } else { if {$frac <= 1.0} { set nice 1.0
• Chart of existing list functionality
  06 Feb 2012 — is omitted, then 0 is assumed. If string, is specified, then the deleted element is replaced by string. The replaced or deleted element is returned. Thus ``lvarpop argv 0'' returns the first
• Chart of proposed list functionality
  17 Apr 2011 — set i 0;set res ""} {$i<$tuplelen} {incr i} {lappend res ""} if {[llength $multilist]%$tuplelen!=0} { error "incorrect tuple length, or input mismatch" } for {set i 0;set j 0;set l
• chatTemp
  11 Nov 2006 — malloc (sizeof (Pig)); memset (p, 0, sizeof (Pig)); return p; } int pig_get (Pig *p, char *key) { while ('\0' != *key) { if (NULL == p->ar[*key]) { return 0; } p = p->ar[*key]; ++key
• Chebyshev approximation
  16 May 2012 — 1 [lrange [lindex $apx 1] 0 $n] set l {.c create line} set maxy2 0. for { set x 0. } { $x < 1.0025 } { set x [expr { $x + 0.005 }] } { set cmd $apx; lappend
• Check geometry on Aqua
  31 Jul 2011 — cmd SPDisplaysDataType"] set displaynum 0 foreach line [split [read $fd] \n] { set fields [split [string trim $line] :] set arg [string trim [lindex $fields 1]] switch -- [lindex $fields 0] { Resolution { incr displaynum } Mirror
• Check If Systemd Services Are Running
  24 Aug 2018 — systemctl status $service} result]} { if {([lindex $::errorCode 0] == "CHILDSTATUS") && ([lindex $::errorCode 2] == 3)} { return False } error $result } return True } ====== The call 'systemctl status SERVICE' returns 0 if the service is running and
• checkbox
  01 Nov 2006 — be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/checkbox.html and http://purl.org/tcl/home/man/iwidgets3.0/checkbox.n.html ---- [Category Command] - [Category Widget] - a part of [incr Widgets]
• checkbutton
  14 Jan 2016 — type $w.r {*}$args [list -text {}] -pady 0 label $w.t -text $text -pady 0 pack $w.r $w.t -side top -pady 0 -padx 0 -fill x -anchor e set w
• Checked Implicit Upvar
  13 May 2008 — of some Tcl constructs which catch errors # earlier. # package require Tcl 8.5 package provide checked 0.1 namespace eval checked { namespace export proc upvar uplink # proc name params body -- # # Works like
• checkvar
  23 Dec 2008 — dialog] to change a global variable which contains a [list] or [dict] like foo 1 bar 0 grill 1 The odd elements are taken as [checkbutton] labels, the even ones as the
• Chess
  30 Aug 2012 — for managing and annotating chess games. Does not currently support actual play. Currently at version 0.0 . Updated: 11/2006 Contact: See web site What: Attic Where: http://attic.tsx.org/ ??? Description
• Chinlish
  21 Nov 2008 — chinlish {args} { if {$args==""} {set args "huanying, zhe shi zhongwen zhuanhuan chengxu"} set res "" set fan 0 if [regsub -- "-fan" $args "" args] {incr fan} regsub {[.]$} $args " \u3002" args regsub -all {([.,:;!?]+)} $args { \1
• chmod
  15 Aug 2013 — UNIX] chmod(1) command. To specify a ''mode'' as octal, it should be prefixed with a "0" (e.g., 0622). If the option '''-fileid''' is specified, ''filelist'' is a list of open
• CHMvfs
  09 Apr 2015 — variable position_base # Initialize LZX lookup tables for { set i 0; set j 0} { $i < 51 } { incr i 2 } { # 0,0,0,0,1,1,2,2,3,3,4,4,5
• ChooseDir
  29 Jun 2012 — 0 set col 0 } elseif {$dir eq "end"} { lassign $S(endPos) row col } else { if {! [string match "@*" $tag]} return scan $tag "@%d,%d" row col if {$dir eq "up"} { if {$row > 0
• Chris Nelson
  27 Aug 2012 — shame it's only cover v8.2, you updated for v8.5 and later for v9.0 it's like priting the man pages only better. But you can also do this
• Church numerals
  07 Jul 2011 — order functionals that represent application of a function a given number of times. In other words: '''0'''(f,x) == x '''1'''(f,x) == f(x) '''2'''(f,x) == f(f(x)) and
• chw
  15 Sep 2018 — www.androwish.org/ ---- ... and on smartwatchen [chw-awsw] An LG G Watch showing a Canvas3d in [AndroWish] on [apn]'s new book. ... and in Industry 4.0, see [topcua]. <<categories>>Person | Android
• ci - a tiny C interpreter
  13 Mar 2012 — Tcl/lib/tcc02> tclsh % package req critcl 0.1.1 % critcl::cproc mul {double a double b} double {return a*b;} % mul 6 7 42.0 Or this: % critcl::ccode {#include <string
• Circular history for entry widgets
  30 Aug 2013 — i if {$::eventcnt == [history nextid]} {set ::eventcnt 1} if {$::eventcnt == -[expr [history nextid]-1]} {set ::eventcnt 0} set ::(.entry,stdin) [history event $::eventcnt] } ====== To this procedure you need to add the bind
• Circumcenter of three points
  18 Aug 2013 — 23 set Kx 80.0 ; set Ky 50.0 ;# First point set Lx 200.0 ; set Ly 20.0 ;# Second point set Mx 230.0 ; set My 100.0 ;# Third point set
• ck
  09 Apr 2015 — library /projects/xopsrc/lib/ck8.0/ck.tcl: wrong version of Ck loaded (8.0): need 8.0 wrong version of Ck loaded (8.0): need 8.0 while executing "error "wrong
• cksum
  19 Jan 2014 — cksum+1 or by referring to your system manual page. For example: ====== % package require cksum 1.0 % crc::cksum "Hello, World!" 2609532967 % crc::cksum -file cksum.tcl 871033703 % exec cksum cksum.tcl
• Classic Eliza
  26 Sep 2012 — dict {} set phraselist [split [string map {\n.\n \uffff \n!\n \uffff} $input] \uffff] set index 0 # Kick off the loop by grabbing the first keywords set phraselist [lassign $phraselist keywords responses
• Classy YAO
  12 Sep 2018 — class { {lambda {t {expr {$t >= 0}}}} time 0 }] % set obj2 {time -3576} % ! class2 obj2 time value -3576 fails validator {t {expr {$t >= 0}}} ====== *** `!!` shortcut *** ====== % set TCounter { i 0 incr {{{n 1}} { self
• ClassyTcl
  29 Dec 2012 — as of 3/31/2010) location: http://rrna.uia.ac.be/classytcl/prog/ClassyTcl-1.0.0.src.tar.gz Updated: 06/2007 Contact: mailto:derijkp@uia.ua.ac.be (Peter.DeRijk
• ClassyTk
  29 Dec 2012 — widgets are used. Currently at version 1.0.0 dated 2001-04-10. Sourceforge links including file downloads were working on 2007-06-25. 1.0 version (tarball, exe and rpm) was
• Clear screen
  20 Apr 2016 — cls exec command /c cls ; # DOS? exec >&@stdout $::env(COMSPEC) /c cls ; # Win95 $t delete 1.0 end ;# Tk text widget ====== ---- In [http://groups.google.com/d/msg/comp.lang.tcl/Fm4uNklI8l4
• Click me
  18 Jan 2008 — rect 5 5 205 205 -fill white -outline black -tags box .c create oval 0 0 0 0 -fill red -outline red -tags spot .c bind box <1> {drawSpot %W %x %y
• Client is not authorized to connect to Server
  18 Aug 2011 — to "host.domain:0.0" refused by server Xlib: Client is not authorized to connect to Server Application initialization failed: couldn't connect to display "host.domain:0.0" ---- Well, at least
• Clipboard teleportation
  17 Oct 2009 — buf 0] { "cput" { if { [llength $buf] >= 2 } { #-- Stick the data into the hidden text widget .text delete 1.0 end .text insert end [lindex $buf 1] .text tag add sel 1.0
• ClipboardMonitor
  01 Mar 2016 — 0]] # IP-Filter: set p1 [string first "Your IP addr" $txt]; # RIPE.net if {$p1 >= 0} { set p1 [string first ": " $txt $p1] set p2 [string first "\n" $txt $p1] #if {$p2 < 0
• Clipping graphical objects in a canvas widget
  15 Sep 2011 — 0? $ymin : 0}] set xmax [expr {$xmax<$width? $xmax : $width}] set ymax [expr {$ymax<$height? $ymax : $height}] set id [$cnv create polygon \ 0 0 \ $width 0 $width $height 0 $height \ 0 0
• CLIPS
  04 Jul 2011 — discusses using CLIPS at some length: Peter Jackson, Introduction to expert systems Addison-Wesley, 3rd edition, 1999, ISBN 0-201-87686-8 See also [Playing CLIPS]. [CLIPS Windows extension (Krukis)] <<categories>> Package
• ClipUtil
  01 Mar 2016 — if 0 { <<TOC>> ---- **Summary** [HJG] 2016-02-23: This is going to be an expanded version of [ClipboardMonitor] by [HZe]. <<br>> I started to add more functions to it, and soon the
• Clock and daylight saving time corrections
  28 Nov 2012 — days [expr {($day2-$day1)/86400.0}] puts "Number of days: $number_days" ====== The result (Tcl 8.4): Number of days: 31.0416666667 Number of days: 31.0 Of course, it depends on
• clock format
  23 Oct 2010 — format''' show a fivefold slow-down in comparison to Tcl 8.4. e.g now roughly 0.5 milliseconds per '''clock format''' on an old 400MHZ machine While I understand this is
• clock quirk
  20 Jul 2011 — 1)" invoked from within ".li(1).ok invoke" ("uplevel" body line 1) invoked from within "uplevel #0 [list $w invoke]" (procedure "tk::ButtonUp" line 22) invoked from within "tk::ButtonUp .li(1
• clock scan
  12 Jul 2018 — the string to scan. If the results of scanning an incomplete or impossible date like `March 0` or `April 34` are surprising, carefully re-read the seven rules that are applied, in
• clock seconds
  14 Feb 2015 — org/wiki/System_time%|%Wikipedia: System Time%|% ---- [RS]: Find out what your epoch is, without timezone offset, with clock format 0 -gmt 1 <<discussion>> ---- **See also** * [clock] <<categories>> Command | Date and Time
• Clock Widget in C
  03 Nov 2015 — NULL, (char *) NULL, (char *) NULL, -1, 0, 0, (ClientData) "-borderwidth", 0}, {TK_OPTION_RELIEF, "-relief", "relief", "Relief", "ridge", -1, Tk_Offset(Clock, relief), 0, 0, 0}, {TK_OPTION_COLOR, "-foreground", "foreground", "Foreground
• ClockDemo
  13 Feb 2016 — set res "xx" set i 0 foreach fc [lsort -dict [array names fTab] ] { incr i 1 set descr $fTab($fc) set type [string range $descr 0 0] set desc1 [string range $descr
• clonerun
  16 Jul 2010 — 11.05 v1.0: first version derived from individual code in RECEIVE program # 11.05.07 v1.0: minor internal changes and updated wiki page # 28.06.07 v2.0: using suspendVFS
• close
  05 Feb 2016 — set standard_output [read -nonewline $pipe] set exit_status 0 if {[catch {close $pipe} standard_error] != 0} { global errorCode if {"CHILDSTATUS" == [lindex $errorCode 0]} { set exit_status [lindex $errorCode 2] } } puts "exit
• Closest Hit - Choosing closest matches to a target value
  24 Jun 2017 — the target value # proc closest_hit { arrows target} { set least $target set res "" for { set i 0 } { $i < [llength $arrows] } { incr i } { set diff [expr abs($target - [lindex $arrows $i])] if { $diff
• Closures
  07 Jan 2018 — number of times it's been invoked: ====== # the first time, send "0" to the aliased proc interp alias {} countMe {} _countMe 0 proc _countMe {count} { # for the next invocation, reset the alias interp
• CloudTk
  18 Feb 2018 — Target(AuthTargetFile,file) w] puts $fd "VNC 0" puts $fd "Website 0" close $fd unset fd set Target(AuthTargetFile,VNC) "0" set Target(AuthTargetFile,Website) "0" set Target(AuthTargetFile,mtime) [file mtime
• Cloverfield - Parser
  12 Feb 2014 — 0 ;# Inside a backslash sequence? set bsseq "" ;# Characters in the backslash sequence. set braces 0 ;# Number of nested brace pairs. set brquote 0 ;# Inside double quotes inside brace pairs? set brcomment 0
• Cloverfield - References
  17 Apr 2011 — was already serialized above. {&node2}{} # Childen: {} % % % % % # Get node name. % lindex $node 0 node22 % % % % % # Get node parent name. % lindex $node 2 0 ; # 2 is for parent. node2 % % % % # Get siblings. % lindex $node 2 3
• ClrPick -A Colour Selection Megawidget
  18 Sep 2012 — width $w swatch_$name put $topBorderColor -to 0 0 $w 1 swatch_$name put $topBorderColor -to 0 1 1 $h swatch_$name put $bottomBorderColor -to 0 [expr $h -1] $h $h swatch
• Clustering data
  16 May 2012 — 0 foreach data { { {1.0 0.0} {1.0 0.1} {0.0 0.0} } { {1.0 0.0} {1.0 0.1} {0.0 0.0} {0.0 0.5} {0
• cmacro
  01 Feb 2013 — Code: Here are three sample macros, "hd", "tl", and "tlN": cmacro::define hd X {[lindex X 0]} cmacro::define tl X {[lrange X 1 end]} cmacro::define tlN {N X} {[lrange X
• cmdline
  05 May 2017 — If boolean flag is present in command line then its value is set as 1 else 0 set options { {first.arg 1 "1st arg"} {second.arg 2 "2nd arg"} {third.arg 3
• Cmdr
  30 Jun 2016 — technote/ab01d9ee1b8dc390|& &|1.1 - Feb 11, 2014|http://core.tcl.tk/akupries/cmdr/technote/e2adcf270058a1ff|& &|1.0 - Dec 02, 2013|http://core.tcl.tk/akupries/cmdr/technote/1f9d982b9bf4ea0b|& <<categories>>Argument Processing | Command
• CMT (Berkeley Continuous Media Toolkit)
  27 Feb 2016 — berkeley.edu/projects/cmt/ <<br>> http://bmrc.berkeley.edu/projects/cmt/versions/4.0/software/cmt/source/cmt-4.0.tar.gz| | Description:| Tcl toolkit to support simultaneous continuous media playback in
• co-routines
  11 Aug 2016 — 0 set __org_coroutines__ $__coroutines__ while { [llength $__coroutines__] > 0 } { set __nrout__ [[lindex $__coroutines__ $__rout__] $__coroutines__ $__rout__] if { $__nrout__ == -1 } { set __coroutines__ [lreplace $__coroutines__ $__rout__ $__rout__] if { $__rout__ >= [llength $__coroutines__] } { set __rout__ 0
• coalgebraic
  26 Jul 2008 — a list or tree) is algebraic, in that it has a set of ''constructors'' that take 0 or more arguments and produce a single value of that type. A lazy data structure
• Coccinella
  11 Mar 2014 — current version: 0.96.20 release time: 2010-09-29 website: http://www.thecoccinella.org website: http://coccinella.im website: http://sourceforge.net/projects/coccinella/ ** Download ** A [Starkit] of version 0.94
• Cocoa-style popover on Mac.
  29 Aug 2013 — wm attribute $pop -transparent 1 wm attributes $pop -alpha 0.0 } else { wm attribute $pop -transparent 0 wm attributes $pop -alpha 1.0 } wm deiconify $pop wm geometry $pop $options(-width)x
• Code Golf Saving Time
  26 Sep 2012 — 0 {} \n 0 o {} 15 o \n 0 {} \n 1 o {} 13 o \n 0 {} \n 4 o {} 7 o \n 8 o \n} foreach t $argv { if {[regexp {0?(\d+):0
• code is data is code
  16 Dec 2010 — return -level 0 $text } interp alias {} ::parsetcl::cidic::Lb {} ::parsetcl::cidic::Lr interp alias {} ::parsetcl::cidic::Lq {} ::parsetcl::cidic::Lr proc ::parsetcl::cidic::Sb {interval text args} { list ::return -level 0 $text
• Code to performs 2D graphics transforms
  20 Sep 2012 — y'| = | 0*x + 1*y + ty | # | 0 0 1 | | 1 | | 1 | # # Scale # ---------- # # | sx 0 0 | | x'| | sx*x + 0*y + 0 | # | 0 sy 0 | => | y'| = | 0*x + sy*y + 0 | # | 0 0
• Code-Navigator
  24 Sep 2011 — referencing browser, context menus, layout saving, "related" symbols, better paned windows, etc. Currently at version 1.0 . Updated: 08/2005 Contact: See web site Code-Navigator supports many programming languages, for example
• Colibri
  23 Jan 2016 — ANNOUNCE: Colibri version 0.12** As part of my ongoing work on the Cloverfield project, I ([FB]) am pleased to announce the twelfth version of colibri. ***What is [Cloverfield]?*** Wiki page: http
• CollapsableFrame -A Toggle Resized Labelled Frame Container
  13 Jul 2014 — i } } } } } #------- # demo block #------- proc demo {} { wm geometry . 400x800+0+0 CollapsibleFrame::verticalFrame .cf1 \ -text "Frame1" pack .cf1 \ -in [winfo parent .cf1] \ -anchor center \ -expand 0 \ -fill x \ -side top CollapsibleFrame::verticalFrame .cf2
• Collapse (iPaq)
  17 Jul 2007 — score 0 state 0 score2 "" best 0} catch {eval .c delete gameOver;} StartLevel Banner "CLICK TO START" WaitClick } proc StartLevel {} { global S B BB LEVEL StartStop 0 array set S {busy 0
• Colliding balls
  15 Jun 2014 — x1 < 0 && $xvel < 0} { set xvel [expr {-1.0 * $xvel}] } if { $x2 > $canvasWidth && $xvel > 0} { set xvel [expr {-1.0 * $xvel}] } if { $y1 < 0 && $yvel < 0} { set yvel [expr {-1.0 * $yvel
• Colliding Coins
  28 Jan 2014 — canvas coords $coin] break if { $x1<=0 && $u<0 || $x2>=$::canvasWidth && $u>0} { set u [expr {-$u}] } if { $y1<=0 && $v<0 || $y2>=$::canvasHeight && $v>0} { set v [expr {-$v}] } set State
• Colliding Spheres
  09 May 2016 — 1,1,0 1,0,1 0,1,1 1,0,0 0,1,0 0,0,1 0,0.5,0] set light 1.0 set source 0.0 # Gradient proc
• Color pickers
  14 Jan 2018 — 0.0 \ -rely 0.0 \ -anchor nw pack .butfrm.visual.button \ -anchor nw \ -side top pack .butfrm.visual.ent \ -anchor n \ -side bottom place .butfrm.visual \ -in .butfrm \ -anchor nw \ -relx 0
• color values available for syntactic use in Tcl scripts
  26 Jan 2013 — color number from a color name, use [[winfo rgb]], like this: % winfo rgb . red 65535 0 0 % eval format "#%04x%04x%04x" [winfo rgb . red] #ffff00000000 Also ::tk::Darken $color 100 ---- Jeff
• Coloring a gray image
  25 Mar 2018 — rr gg bb # compute new colors set colors {} for {set y 0} {$y < $height} {incr y} { set row {} for {set x 0} {$x < $width} {incr x} { # save transparency lappend trans $x $y
• colors
  07 Jun 2014 — an integer between 0 and 100, where 0 is red, 50 is yellow, and 100 is green (useful e.g. for painting progress bars): proc percent2rgb {n} { # map 0..100 to a
• Colors in Unix Shells
  19 Feb 2013 — white : \e[47m | # |-------------------|--------------------|------------------| # | |default : \e[39m |default : \e[49m | # |-------------------|--------------------|------------------| # # To reset the color codes: # - reset : \e[0 # # Examples: # puts [ccolor::replace "<b>Blue on a <by>yellow background</>."] # puts [ccolor::replace "<u
• Colors with Names
  26 Sep 2016 — 0 ? -2 : 2}] units} bind .c <Alt-c> [list console show] focus .c grid .c .sby -row 0 -sticky news grid .msg - -sticky ew grid rowconfigure . 0 -weight 1 grid columnconfigure . 0
• colorview as eTcl plugin
  06 Dec 2011 — grid $w.c $w.sby -row 0 -sticky news grid $w.msg $w.about -sticky ew grid rowconfigure $w 0 -weight 1 grid columnconfigure $w 0 -weight 1 wm geo $w 240x266
• Colouring graphs
  24 May 2012 — nodes] == 0 } { return 1 } # # Take the next node and give it a colour # set next [lindex $rest_nodes 0] set rest_nodes [lrange $rest_nodes 1 end] for { set i 0 } { $i
• COM
  28 Apr 2018 — registry keys $classesRootKey] { set clsidKey "$classesRootKey\\$clsid" set progIdSubKey [registry keys $clsidKey "VersionIndependentProgID"] if {[llength $progIdSubKey] > 0} { set progId [registry get "$clsidKey\\$progIdSubKey" ""] puts $progId } } ====== ** COM Constants ** One of the eternal puzzles
• COM Events
  13 Jul 2018 — churns out lots of reports: ======none OnVisible 1 StatusTextChange Done ... StatusTextChange Done CommandStateChange -1 0 ... CommandStateChange -1 0 StatusTextChange Done DownloadBegin ProgressChange 100 10000 .... PropertyChange {{265b75c0-4158-11d0-90f6-00c04fd497ea}} PropertyChange {{265b75c1
• COM on! - a tiny web browser
  24 May 2014 — args { global stopLoading loadingTime set loadingTime 0.00 set stopLoading 0 after 250 incrLoadingTime return } proc incrLoadingTime {} { global stopLoading loadingTime set loadingTime [format {%.2lf} [expr {$loadingTime + 0.25}]] if {!$stopLoading} { after 250
• comb
  05 Oct 2008 — value of the "comb" is the default that applies when all else fails: comb 5 {steam 0 electric 1 diesel 2 shunter 3 emu 4 unknown} == ---- [JM%|%Jorge Moreno%|%] 6-11-2004
• Combat
  10 Mar 2013 — Combat] is an Object Request Broker that allows the implementation of [CORBA] clients and servers in Tcl. ** Attributes ** author: [Frank Pilhofer] current version: 0.8 <<categories>> CORBA | Category Package | Category Interprocess Communication
• CombinationCapitalization
  24 Mar 2010 — 6. for {set n1 0} {$n1 < $numwords} {incr n1} { for {set n2 0} {$n2 < $numwordsnull} {incr n2} { for {set n3 0} {$n3 < $numwordsnull} {incr n3} { for {set n4 0} {$n4 < $numwordsnull} {incr
• Combining Fortran and Tcl in one program
  17 Sep 2009 — which we can draw and start # the server . # global xprev yprev set xprev 0.0 set yprev 0.0 canvas .c -background white pack .c SetUp The server's version of SetUp
• Combining GUI applications developed with Tk and 'native' Windows toolkits
  22 Apr 2012 — reinterpret_cast <LONG_PTR>(pMain)); return 0; case WM_CLOSE: ::DestroyWindow(hwnd); return 0; case WM_DESTROY: pMain->hMain = NULL; delete pMain; ::PostQuitMessage(0); return 0; // --------- Begin Tk container specials ---------- #define TK
• Combo -A aimple Combobox widget with entry history.
  30 Aug 2013 — set b [${p}Drop.lb get 0 end ] #check to see if value already there.. if { [lsearch -exact $b $a] == -1} { ${p}Drop.lb insert 0 $a } } #--------------- # add items to the list
• Combo -A simple Combobox widget with entry history.
  30 Aug 2013 — set b [${p}Drop.lb get 0 end ] #check to see if value already there.. if { [lsearch -exact $b $a] == -1} { ${p}Drop.lb insert 0 $a } } #--------------- # add items to the list
• combobox
  15 Feb 2016 — procplace.com/pub/tcl/sorted/packages-7.6/devel/graphics/ComboBox.tar.gz Description: Tk 4.0 code to implement a basic ComboBox widget. Updated: 10/1998 Contact: mailto:ashutosh@panix.com
• Coming to Tcl/Tk from an IDE environment
  07 Jun 2014 — is visually unimpressive but tremendously useful. http://www.rhichome.bnl.gov/People/johannes/ActiveTcl8.4.3.0-html/tkcon/index.html has the (easily missed) admonition "Please read the following pages carefully
• comm via ssh
  11 Nov 2012 — 1000}] \ [namespace code [info level 0]]] } proc ::sshcomm::server::terminator {fh args} { set count [gets $fh line] if {$count < 0} { close $fh exit } if {$count > 0} { uplevel \#0 $line } } ######################################### # Client # proc ::sshcomm
• command
  16 Oct 2018 — name] eq {}} proc {[info procs $name] eq $name} alias {[lsearch [interp aliases {}] $name] >= 0} image {[lsearch [image names] $name] >= 0} widget {[winfo exists $name]} command 1 } {if $condition {return $result}} } ;# RS ====== To
• Command completion
  29 Aug 2013 — regexp "^(xterm|eterm-color)" "$::env(TERM)"]) { proc prompt1 {} { return "^A^[\[0;31m^[\[1m^Btcl>^A^[\[0m^B " } proc prompt2 {} { return "^A^[\[0;31m^B...> ^A^[\[0m^B" } } { proc prompt1 {} { return "tcl> " } proc
• command dispatcher
  19 Nov 2014 — cmdwords] == 0} { puts stderr "command missing!" puts stderr "Possible commands are:" lmap l $allowed {puts stderr [lindex $l 0]} exit 250 } foreach word $cmdwords { set cmdword [lsearch -glob -nocase -index 0 -inline
• command options
  05 May 2017 — at '--' # setup the defaults. array set opts {-a 1 -b 0} while {[string match -* [lindex $args 0]]} { switch -glob [lindex $args 0] { -A* -a* { set opts(-a) [Pop args 1] } -b* { set
• commandloop
  05 Nov 2010 — status [catch { uplevel \#0 $partialCommand } result] if { $result ne {} } { if { $status != 0 } { puts stderr $result } else { puts stdout $result } } set partialCommand {} if { [info exists ::tcl_prompt1] } { catch { uplevel \#0 $::tcl_prompt1 } prompt
• commas added to numbers
  11 Jul 2014 — inline {\.\d*$} $number]$)) $number {\0,}} ====== Getting a little wide but fully parameterized: ====== proc commify { n { s , } { g 3 } } { regsub -all \\d(?=(\\d{$g})+([regexp -inline {\.\d*$} $n]$)) $n \\0$s } ====== <<categories>> Package
• comment
  16 Mar 2018 — start of a line is risky ...: ====== % if 0 {set a b c} % if 0 {if you want to write this, you can't} % if 0 {while you read this, tcl errs out
• Commenter
  14 Nov 2007 — procs. # package require fileutil package provide Commenter 1.0 namespace eval Commenter { # gather leading comment block proc leadin {text} { set leadin {} set lnum 0 foreach line $text { set line [string trim $line
• Commonly encountered problems in Tcl
  29 Apr 2013 — from C: int i = 0; set i 0 void f() { proc f {} { i = 2; /* legal */ set i 2 ;# illegal if(1) { int j = 0; } if 1 { set j 0 } ++j; /* illegal */ incr
• Commonly requested widgets
  04 Jun 2013 — patches to Table_Display.c and the tkAppInit to get it to work with Tk 4.0. Updated: 10/1998 Contact: mailto:ellson@lucent.com (current maintainer) <<br>> mailto:roland@singnet.com
• Comp3 data conversion
  27 Mar 2009 — s signed data. proc comp3tostring {packed_dec_data data_len} { set val 0 set ret_sign {} for {set byte_ndx 0} {$byte_ndx < $data_len} {incr byte_ndx} { scan [string index $packed
• Compact Code Formatting Style
  24 Jul 2014 — one variable. Ugly example: proc printlist args { while {[llength $args]} { puts [lindex $args 0] set args [lreplace $args 0 0]}} Good looking: proc printlist {item args} { puts $item if [llength $args] {eval
• Compact data storage
  06 Feb 2016 — range [0..2) take: 12543 bytes 100,000 ints in range [0..4) take: 25045 bytes 100,000 ints in range [0..10) take: 50045 bytes 100,000 ints in range [0
• Company: 3SL
  19 Jan 2016 — 2, 22A Duke Street, Barrow-in-Furness, Cumbria, LA14 1HH, UK Tel: +44 (0) 1229 838867, Fax: +44 (0) 1229 870096 Registered in England: 2153654, registered office: as above **** US office **** 3SL
• COMPANY: AccuRev, Inc.
  03 Apr 2015 — recursed. First, parents: ====== #! /opt/ActiveTcl/bin/tclsh # parents package require tcl_acrev set stream [lindex $argv 0] if {($stream != {}) || ![catch {set stream [tcl_acrev::get_cwd_wspace]}]} { puts $stream if {[catch {tcl
• COMPANY: Electronic Data Systems
  10 May 2014 — on [http://www.plmsol-eds.com/pdf/WhatsNew60-2.pdf%|%version 6.0] of SLATE, which uses Tcl/Tk 8.0.5 (and TclPro). '''SLATE''' (System Level Automation Tool for Engineers) addresses
• COMPANY: FlightAware
  23 Nov 2016 — applications, on 2P AMD Opteron™ Model 250 processors. '' [http://www.amd.com/us-en/Corporate/VirtualPressRoom/0,,51_104_566~107687,00.html] Wow, Tcl is a ''popular development language for real
• Comparing files in Tcl
  26 Dec 2007 — read $f1 $chunksize] set d2 [[read $f2 $chunksize] set diff [string compare $d1 $d2] if {$diff != 0 || [[eof $f1] || [[eof $f2]} { close $f1; close $f2 return $diff } } } dkf That's untested, but
• Comparing Geometry Managers
  05 Jul 2011 — With [grid]*** ====== grid $w1 $w2 ====== ***With [place]*** ====== place $w1 -relx 0 -y 0 -relwidth .5 -relheight 1 place $w2 -relx .5 -y 0 -relwidth .5 -relheight 1 ====== **Displaying two widgets on top
• Comparing Tcl and Python
  04 Feb 2018 — in-python%|%StackOverflow *** Tcl *** ======tcl proc sum_primes_to {n {i 1}} { set total 0 incr n 0 for {set q [expr {$i + $i}]} {$q < $n} {incr q} { if {![info exists d
• Comparing Tcl database abstraction layers
  07 Sep 2011 — k = 1}] 0] '''XOSql''' set string [lindex [[$db query {select a from t where k = 1}] fetch] 0] '''tclodbc''' set string [lindex [$db {select a from t where k = 1}] 0] '''nstcl
• Comparing Tcl with Python
  01 Oct 2018 — 0, 0, 100, 100, fill='blue') bind_shape(a) def create_circle(): a = can.create_oval(0, 0, 100, 100, fill='red') bind_shape(a) def bind_shape(tag): coords = [0, 0
• Comparing TWAPI and Ffidl on Windows
  04 Jul 2011 — luck. * support for Win95/Win98. [TWAPI] supports NT-based systems only - V1.x needs NT 4.0 or later, V2.x needs Win2K or later. * lightweight. You only "carry around code" for
• Complex data structures
  03 Jan 2016 — by putting dicts in dicts. * Pro: the order of elements is (as of Tcl 8.5.0, although not in the alpha-releases) preserved; key are listed in the order they were
• Complex math with TOOT
  17 May 2012 — 0 1} ;# flat value set b [Complex | 3 4] ;# constructor sugar ? {$b format} {3+i*4} ? {$b abs} 5.0 ? {$b real} 3 ? {$b imag} 4 ? {$i == $i} 1 ? {$i == $b} 0
• complex number
  17 May 2012 — length, then the '''imaginary numbers''' (multiples of '''i''') are on a line by the location of 0 on real numbers' line, rotated by pi/4 (or 90 degrees). Both lines define a
• Complex Pure Tcl Starkit Example
  02 Jun 2014 — 0 [list source [file join $dir myapp.tcl]] ====== to add ====== package ifneeded app-myapp-file1 1.0 [list source [file join $dir myapp-file1.tcl]] package ifneeded app-myapp-file2 1.0
• Complex scrolling
  16 Aug 2012 — c0 -row 0 -column 0 -sticky new grid $w.c1 -row 1 -column 0 -sticky nsew grid $w.hs -row 2 -column 0 -sticky new grid $w.vs -row 0 -column 1
• Composing curves
  17 May 2012 — 2.6*$p)} {sin(2.6*$p)}] set parabola [paramCurve {0.4*($p-10.0)} {0.16*($p-10.0)*($p-10.0)}] set lc [compositeCurve $line $circle] set cl [compositeCurve $circle2
• Composite fields megawidgets
  05 Jul 2011 — evident that this isn't just normal Tcl... ;-) ====== proc fields {w contents} { frame $w set n 0 foreach i $contents { if [string match $* $i] { entry $w.$n -textvariable [string range $i 1
• composite widget with horizontal and vertical scrollbars
  12 Dec 2007 — What: composite [widget] with horizontal and vertical [scrollbar]s Where: From the contact Description: [Tk] 4.0 procedure which demonstrates a method for creating both horizontal and vertical scrollbars. Contact: mailto:kenb
• Compositional Tk
  17 Oct 2005 — uplevel #0 [linsert $env 0 $tmp] rename $tmp {} } proc self {args} { set ns [uplevel 1 [list namespace current]] if {[llength $args]} { set name [lindex $args 0] return [lreplace $args 0 0 [string
• compoundimage
  28 Jul 2014 — none What: '''compoundimage''' Where: ftp://ftp.procplace.com/pub/tcl/sorted/graphics/compoundimage/0.2/compoundimage-0.2.tar.gz Description: Construct an [image] with text and other images. Updated: 05/1999
• concat
  09 Feb 2014 — 1.0 / 3.0}] set list_aa [concat [list $a] [list $a]] # prints 1.0 puts [expr {3.0 * [lindex $list_aa 0]}] set list_a0 [concat [list $a] [list]] # prints 0
• Concatenating images into image strips
  09 Feb 2009 — image_names] * $width}] set img_tar [image create photo -height $height -width $fullwidth] set img_ndx 0 foreach image_name $image_names { set img_in [image create photo -file $image_name] set
• Config File Parser
  10 Jan 2013 — them into arrays named by config file ''section''. -- [Todd Coram] ====== namespace eval cfg { variable version 1.0 variable sections [list DEFAULT] variable cursection DEFAULT variable DEFAULT; # DEFAULT section } proc cfg::sections {} { return
• Configuration Language using parsetcl
  06 Mar 2016 — return "\$[eval [lindex $args 0]]" } # Sa - array variable substitution proc Sa {interval text args} { foreach a [lrange $args 1 end] { append result [eval $a] } return "\$[eval [lindex $args 0]]($result)" } # Sc - command
• Configuration Language using Unknown
  29 Jan 2011 — args]} } else { Debug define config 10 } #package require OO #package require Dict package provide Config 1.0 oo::class create Config { method dict {} { set result [configI eval ::_O::toDict] } method eval {config
• Configuration with PostgreSQL
  22 Aug 2014 — Pool" ns_section "ns/db/pool/main" ns_param driver postgres ns_param datasource 127.0.0.1:5432:demo ns_param user nsd ns_param password "nsd-password-123" ns_param
• cons
  17 Apr 2011 — b} proc car {p} {lindex $p 0} proc cdr {p} {lindex $p 1} proc LIST args { if {![llength $args]} { return {} } else { return [cons [lindex $args 0] [LIST {*}[lrange $args 1 end]]] } } ====== Then
• Consio
  13 Jun 2017 — mattijk/consio/releases/download/0.2/Consio.zip%|%Version 0.2 for Tcl 8.4%|% * https://github.com/mattijk/consio/releases/download/0.3/Consio.zip%|%Version 0.3 for Tcl 8
• Consistency Server
  15 Apr 2015 — are the following lines to set it up: source client.tcl global myArray McOpen 127.0.0.1 12345 McAttach myArray This example assumes the server is running on the same machine
• console - work with the parent window
  21 Jan 2013 — justify left -width 75 # -fg $_EZS(ffcolor) -bg $_EZS(fbcolor) pack $f.fn -side left -expand 0 -anchor w -fill both ====== And in the routine which is used by bind . <Map> "mapwin
• console eval
  29 Apr 2011 — Add a menu item to reload the Wibble script. console eval [list .menubar.file insert 1 command -label "Reload Wibble"\ -underline 0 -command [list consoleinterp eval [list source $argv0]]] ====== <<categories>> Command | Tk
• console for Unix
  19 Jan 2018 — tkConsoleOutput stdout \ "[lindex \$args 0]\n"] } } 2 { if {[string match -nonewline [lindex \$args 0]]} { $consoleInterp eval [list tkConsoleOutput stdout \ [lindex \$args 1]] } elseif {[string match stdout [lindex \$args 0]]} { $consoleInterp eval [list
• Console Sqlite Manager
  07 May 2011 — 0 $cnt] } set spcs [expr $cnt-$lgt] set spcs [expr $spcs.0/2] if {[string index $spcs 2] == 5} { set lsp [string index $spcs 0] set rsp [expr [string index $spcs 0
• console-problem on Windows
  24 Sep 2011 — on Windows # 2011-02-12 catch {console show} catch {wm withdraw .} # Alternative: # wm geometry . 1x1+0+0 # wm overrideredirect . 1 # wm transient . # console eval {wm protocol . WM_DELETE_WINDOW {exit} } # Fill the
• constants
  11 Jan 2011 — name val args} { if {[llength $args] % 2 != 0} { error "must be %2!" } foreach {n v} [linsert $args 0 $name $val] { interp alias {} $n {} return -level 0 $v } } % aliasconst ^Z \x1a ^J \n
• Constrained minimisation in one dimension
  18 Jan 2014 — min_bound_1d f 0 6.28318 -trace 1] puts "" puts "find (difficult!) the minimum of ( -1 / ( 0.01 + abs(x-5) ) )" proc f x { expr { -1.0 / ( 0.01 + abs( $x
• Constraining variables
  01 Jul 2014 — el!=""? "($el)": ""}] upvar 1 $name var foreach val $list { if {[lsearch $val $var]<0} { continue } set var [lindex $val 0] return } return -code error "value '$var' outside constraint '$list'" } ====== ---- See also [Assertions
• constructing a bwise graph from a formula
  17 Apr 2011 — unbrace t { set i 1000; while {[string range $t 0 0]=="\{" && [incr i -1] > 0 } { if {[llength $t] <2} { set t [lindex $t 0] } } return $t } proc car_repeated_unbrace { {list} {level
• Constructing a Bwise Graph from a Maxima Formula
  26 Sep 2016 — set name pow} default {set name $op} uplevel #0 {if {[info exists proccount] == "0"} {set proccount 0} ;} global proccount incr proccount append name 0$proccount } set inp "\{" set f "\{set $name.$out
• Constructing curves
  26 Jan 2012 — 10+0.01}] [expr {200.0-$i*10-0.01}] $scale tangentLine [expr {$i*$scale*10}] [expr {200.0-$i*$scale*10}] $scale #tangentLine [expr {$i*$scale*10}] [expr {200.0-$i
• Consuming web services
  21 Mar 2016 — country"> <wsdl:operation name="GetCountryByCountryCode"> <s:element name="GetCountryByCountryCode"> <s:complexType> <s:sequence> <s:element minOccurs="0" maxOccurs="1" name="CountryCode" type="s:string"/> </s:sequence> </s:complexType> </s:element> ====== (The style
• Contest - finding repeating substrings
  28 Jan 2011 — first 0 set last -1 for {set t 0 ; set u [expr {$minlen - 1}]} {$u < $len} {incr u} { if {[string first [string range $str $t $u] $str [expr {$u + 1}]] >= 0} { set
• Context A nice editor for TCL. You can alter it to run TCL
  18 Aug 2012 — geocities.ws/thezipguy/tcl/context/context_0_01a.jpg] and you can click on the menu like this: [http://www.geocities.ws/thezipguy/tcl/context/context_0_02.jpg] and the results
• continue
  30 Nov 2013 — procedure bodies. ** examples ** print a line for each of the integers from 0 to 10 except 5: ====== for {set x 0} {$x<10} {incr x} { if {$x == 5} { continue } puts "x is
• Continued Fraction
  18 Nov 2016 — range $expression 0 $lastDivide-1] [string range $expression $lastDivide+1 end]] } proc ComputeCF {n m {maxDepth 0}} { set result {} if {$maxDepth <= 0} { set maxDepth $::S(depth) } for {set depth 0} {$depth < $maxDepth
• control roku over lan
  01 Mar 2018 — proc toroku {key {rep 1} {wt 0}} { for {set m 1} {$m <= $rep} {incr m} { quickroku "http://192.168.1.76:8060/keypress/$key" if { $wt != 0 } { wait $wt } } return } proc quickroku
• Controlling iteration in the loop body
  17 Aug 2018 — the options to scrape ====== proc scrape { addr args } { set outfile [lindex [split $addr /] end] set usessl 0 iter op $args { switch $op { -o { set outfile [next] } -ssl { set usessl 1 } } } # do scraping
• Convert Nokia VMG to plain text
  04 Oct 2008 — set known_numbers {+49172123456789 Joe} set directory [lindex $argv 0] if {$directory == ""} { puts "usage: $argv0 path-to-vmg-files" exit -1 } set count 0 foreach file [glob [file join $directory *.vmg]] { # read
• Convert pre-ANSI C files to ANSI C files
  18 Jan 2013 — inline -indices $rex $contents] if { $idxs == "" } { break } set contents_new [string range $contents 0 [expr [lindex [lindex $idxs 0] 0]-1]] append contents_new " [eval string range [list $contents] [lindex $idxs 1
• Converting human time durations
  04 Jan 2017 — return 0 } proc duration { str } { set words {} while {[scan $str %s%n word length] == 2} { lappend words $word set str [string range $str $length end] } set seconds 0 for {set i 0
• Convolutions
  03 Dec 2012 — S(reset) 0 after idle [list $effect $::Distance $::Coords] return } set full "" for {set y 0} {$y <= $rows} {incr y} { for {set x 0} {$x <= $columns} {incr x} { set height 0 set
• Coop2 - A Compiler and Language
  09 Feb 2009 — 0 lappend words [list $type $word] set word "" set type "" } else { append word $c } } elseif {"BLOCK" eq $state} { if {"\}" eq $c && "\\" ne $lastchar} { incr bracecount -1 if {$bracecount <= 0} { set state 0
• copy wiki code examples to clipboard
  10 Nov 2014 — pre'); var w=[]; var page; var title=''; var lines=[]; var d; var skip=[]; for (var i=0; i<pre.length; i++) { var raw=pre[i].innerText || pre[i].textContent; lines=raw.split
• copy-on-write
  20 Mar 2014 — copied. In the following example, ====== set value [string repeat a [expr {2 ** 10}]] for {set i 0} {$i < 60} {incr i} { lappend list1 $value } foreach item $list1 { lappend list2 $value } ====== `$value` is
• CORBA
  10 Apr 2014 — inprise.vbroker.orb.ORB" set orb [java::call org.omg.CORBA.ORB init \ [java::new {String[]} 0] $props] # Create an object reference set ref [$orb string_to_object $IOR] # Cast the reference
• coro dispatch for TclOO
  01 Feb 2012 — lindex [info level -1] 1] set classmy [info object namespace $class]::my if {[llength [info level 0]] == 4} { uplevel 1 [list self method $name $args $body] } uplevel 1 [list forward $name $classmy
• Coronet
  01 Jul 2018 — args 0] line } elseif {[llength $args] > 1} { return -code error "wrong \# args, should be \"[lindex [info level 0] 0] channel ?variable?\"" } while {1} { set blocking [fconfigure $chan -blocking] fconfigure $chan -blocking 0
• coroutine
  30 Jul 2018 — moment of cloning. ====== % coroutine keaton apply {{} { yield foreach i {0 1 2 3} { puts "$i [info coroutine]" if {$i == 1} { yield } } }} % keaton 0 keaton 1 keaton % CloneCoroutine -old keaton -new kid_a
• coroutine is the new main
  09 May 2017 — is that the main script be structured like this: ====== after 0 [list coroutine main apply [list {argv0 argv} { # the main script exit 0 } [namespace current]] $argv0 $argv] vwait ::nameofsomevariablethatwillneverexist ====== [APN] My understanding
• coroutine-enabled event handling
  20 Sep 2018 — info coroutine] yield fileevent $chan readable {} if {[gets $chan line] >= 0 || [eof $chan]} break } return $line } proc count_input {} { set count 0 while 1 { set input [co_gets stdin] puts "INPUT LINE
• coroutines and sockets
  10 Oct 2013 — close $sock return } puts $sock [gets $sock] } proc accept {sock host port} { chan configure $sock -blocking 0 -buffering line chan event $sock readable [list [namespace current]::echo $sock $host $port] } } socket -server
• Coroutines for cooperative multitasking
  31 Aug 2011 — what '''has been''' done; a little difference, isn't it?): ====== coroutine evaluates the Tcl command uplevel #0 [list cmd ?arg ...?] until it returns or a yield is encountered. If yield is found
• Coroutines for event-based programming
  09 Nov 2009 — 0 namespace eval ::coroutine { namespace export create spawn yield current namespace ensemble create -map { create ::tcl::unsupported::coroutine spawn ::coroutine::spawn yield ::tcl::unsupported::yield current ::tcl::unsupported::infoCoroutine } variable gensymid 0
• Coroutines for the Dazed and Confused
  24 Jan 2013 — explain this to me. ====== proc allNumbers {} { yield set i 0 while 1 { yield $i incr i 2 } } coroutine nextNumber allNumbers for {set i 0} {$i < 10} {incr i} { puts "received [nextNumber]" } rename
• coroutines,callbacks,message-queues
  29 Apr 2016 — reply-id information in the message. The put_message invokes the coroutine synchronously or async (after 0 <coroutine>) The coroutine instead of yield, should call wait_message. If multiple callers are expected
• Cost Price, Markup, Discount, & Profit and eTCL demo example slot calculator, numerical analysis
  16 Mar 2017 — 25.0 20.0 200.0 70.0} ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 1000.0 50.0 10.0 10.0 500.0 400.0 4000.0 1400.0
• countdownMsgBox
  01 Oct 2008 — using [TWAPI]. Now the tcl 8.5+ related source ... ---- package provide countdownMsgBox 2.0; package require twapi 2; uplevel #0 { namespace eval ::countdownMsgBox { proc updateMsgBox {closedOnEndVar existingHwnds format title message countdown step
• counterclock
  25 Dec 2013 — scan 00:00:00]}] foreach divisor [list 60 3600 [expr {86400*$::mode/24.0}]] length {0.8 0.7 0.6} width {1 2 3} { set angle [expr {$secSinceMidnight*$::sense*2*acos
• Counting a million lines
  15 Mar 2013 — l")?? This proc works, but is excruciatingly slow on large files: ====== proc linecount {file} { set i 0 set fid [open $file r] while {[gets $fid line] > -1} {incr i} close $fid return
• Counting characters in a string
  15 Sep 2016 — laptop: ====== {timings for string of length} 24 count_strmap {0.5195960807838432 microseconds per iteration} count_split {0.8080383923215357 microseconds per iteration} count_split2 {0.8676264747050589 microseconds per iteration} count_splitchar2 {2.4941011797640473
• Counting comments in a source
  11 Sep 2012 — count lines and comment-lines set fd [open $file r] set comments 0 set lines 0 set code_lines 0 while {![eof $fd]} { gets $fd line incr lines set re {[[:blank:]]*#+[[:blank
• Coverage Analysis
  07 Jun 2014 — coverage analyser, which can be found here [ftp://ftp.procplace.com/pub/tcl/sorted/apps/Testcov/0.3/] * Last but not least [Nagelfar] was mentioned by its author [Peter Spjuth] to be
• CPL
  10 Sep 2012 — Common Public License Version 1.0 is available at http://www.opensource.org/licenses/cpl1.0.php. See also [GPL] and [LGPL]. <<categories>> Glossary | Licence
• Cplusplus streams and Tcl channels
  28 Sep 2011 — int TclChannelStreambuf::sync () { // Flush output if (overflow (EOF) == EOF) { return EOF; } // Discard input setg (0, 0, 0); return 0; } /* ## Function: TclConsoleStreambufSetup ## ## Synopsis: ## Bind the standard streams to the Tcl console */ extern "C
• cpptcl
  04 Apr 2013 — ftp.procplace.com/pub/tcl/sorted/packages-8.0/devel/cpptcl2.0.tar.gz ftp://ftp.procplace.com/pub/tcl/sorted/packages-8.0/devel/cpptcl-src.tar.gz Description: Pair of
• CPU utilization from /proc/stat
  20 Feb 2009 — INTERVAL 1000 proc get_cpu_list {} { set fd [open $::STAT_FILE] set start 0 while {[gets $fd data] >=0 && [regexp {(cpu\d*)\s+(.*)} $data -> name times]} { lappend cpu_list $name [split $times
• CRC
  28 Sep 2018 — 1} {$v!=0} {set w $v; set v [expr {$v<<1}]} {} expr {($x1>>$x2) & ~($w>>($x2-1))} } proc crc32 instr { global CRCTABLE set crc_value 0xFFFFFFFF for {set idx 0} {$idx < [string
• CRC32 Self-checking file
  12 Aug 2013 — hex CRC32 is [format "%08x" $c32]" set c32i [expr $c32 ^ 0xffffffff] ;# ones complement for {set i 0} {$i<=3} {incr i} { lappend bytes_i [expr $c32i & 0xff] ;# list of inverted bytes set
• Create base64 encoded images - CreateImageLib.tcl simplified version
  03 May 2016 — file tail $fname]] append imageName ")" set imageData [ConvertFile $fname] puts $fp "set $imageName \[image create photo -data \{" puts $fp "$imageData\n\}\]" } }} close $fp } # here we go ... ::CreateImageLib::CreateImageLib exit 0 ====== <<categories>> Package
• Create starkit.ico for windows starpack
  08 Jan 2012 — package require Tk lappend auto_path . lib /home/john/lib/tklib-0.5/modules package require ico set exe [lindex $argv 0] set img [lindex $argv 1] set icoFile tclkit.ico pack
• create triangle image
  26 Nov 2010 — 2 == 0)?1:0}] set fHorX 1 } default { set h0 $y0 set h1 $y1 set v0 $x0 set v1 $x1 set e1 [expr {($h % 2 == 0)?1:0}] set fHorX 0 } } switch
• Create words from a text file (list)
  12 Dec 2012 — default 1 -optional -description "quantity of words to print"} {-sort -choices {az za r 0} -optional -default 0 -description "sort list az, za or random"} } } { # if debugging on tkcon put global vars
• Creating a BWidget Widget
  10 Mar 2005 — 0 frame} {-borderwidth TkResource 2 0 frame} {-font TkResource "" 0 label} {-foreground TkResource "" 0 label} {-state TkResource "" 0 label} {-background TkResource "" 0 frame} {-text String "" 0} {-ipad Int 4 0 "%d >=0
• Creating a new Image Type - An Example
  16 Jan 2011 — 32 bits per pixel RGB bitmap. For the indexed bitmap the colors are defined as follows: 0 #000 (black) 1 #F00 (red) 2 #0F0 (green) 3 #FF0 (yellow) 4 #00F (blue) 5
• Creating a simple Windows .bat launcher
  06 Nov 2008 — an editor that came in ActiveTcl...). Then I type: pack [button .exit -text Exit -command {return 0}] and save the file. I double click the feature, and up comes my button. I
• Creating a World
  30 Apr 2016 — 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
• Creating an animated display
  06 Apr 2013 — velo0*$time2-0.5*$accel*$time2*$time2}] set pix_height [expr { $cnv_height-$grass_height - $radius - $ball_height}] set xl [expr {0.5*$cnv_width-$radius}] set xr [expr {0.5*$cnv
• Creating an animated display, part 2
  28 Jan 2014 — condition if {($ball::vely == 0) && ( [expr {$ball::bottom - $ball::py(0)}] < 20 ) } {destroy .} #Add Velocity set px_ [expr {$ball::px(0) + $ball::velx}] set py_ [expr {$ball::py(0) + $ball::vely}] #When
• Creating an OpenOffice Spreadsheet in pure Tcl
  20 Sep 2018 — version="1.0" encoding="UTF-8"?> <office:document-content xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" xmlns
• Creating and Using Tcl Handles in C Extensions
  05 May 2015 — take care of cleaning * up useless objects as handles are deleted. */ static int barCount = 0; static int barEpoch = 0; /* Create our Tcl hash table to store our handle look-ups. * We keep
• Creating Dicts
  19 Jun 2012 — Here's the code: ====== namespace eval ::DictExtension { namespace export dict proc dict {args} { if {[lindex $args 0] eq "config"} { if {[llength $args] < 2} { error "dict config error" } ::set block [format { ::dict for
• Creating Good GUIs
  07 Jul 2011 — Conceptual/AquaHIGuidelines/index.html] * http://developer.gnome.org/projects/gup/hig/1.0/index.html - GNOME Human Interface Guidelines (1.0) * http://benroe.com/files/gui.html ''Who do Gnome think they
• Creating image photo data from GIF files
  30 Apr 2016 — left -expand y -fill both bind .lb <Double-Button-1> { catch {destroy .ii} .tb delete 0.0 end set fname [.lb get [.lb curselection]] set fp [open [concat $::dirname/$fname] r] fconfigure
• Creating Mathematical Animations
  30 Nov 2017 — create oval 0 0 0 0] } "circle" { set item(id,$name) [.c create oval 0 0 0 0] } "line" { set item(id,$name) [.c create line 0 0 0 0] } } if { $item
• Creating Rollover Effects for Text Tags in GtkTexView Widgets with Gnocl
  11 Mar 2012 — s the [gnocl] code: ---- # tagRollover.tcl #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl set text [gnocl::text ] # whenever the pointer moves, clear any rollOver highlight
• Creation of multi-platform Starkitted binary packages
  24 Jul 2008 — including both OS and machine proc platform {} { global tcl_platform set plat [lindex $tcl_platform(os) 0] set mach $tcl_platform(machine) switch -glob -- $mach { sun4* { set mach sparc } intel - i*86
• CRIMP
  13 Mar 2014 — doc/trunk/embedded/www/toc.html%|%@Core/AKupries]|& &|Status| Release 0.1, continued work|& &||Derived from [Critcl image processing]|& %|Releases|Notes|% &|0.1|[http://core.tcl.tk/akupries/crimp/event?name=bf019a7fd5ef38540032b795df93571ea3fc39ee
• Crisping an image
  23 Jun 2010 — 1.0} \ { error "bad coef \"$coef\": should not be less than 1.0" } if {abs($coef - 1.0) < 1.e-4} { return $image } set coef2 [expr {($coef - 1.0) / 8.0}] # get
• critbit
  14 May 2018 — kb [lindex $tree 0]]}] set tree [lindex $tree $child] lappend path $child } if {$key eq [lindex $tree 0]} { lset critbit [lrange $path 0 end-1]\ [lindex $critbit {*}[lrange $path 0 end-1
• Critcl
  11 Jul 2018 — not 0.0 :-) More info: The AquaBI install included a set of example critcl files called ''critlib'' that required '''critcl 0.30'' and forced the loading of the older version 0.0
• Critcl builds C extensions on-the-fly
  12 Jan 2014 — is now at http://www.equi4.com/critlib/ - [JCW]'' * Version 0.18 now runs on Linux and Windows (MinGW) * As of 0.22, you can store the binaries generated in a specific
• Critcl Code
  18 Jan 2014 — while {[incr n -1] >= 0} { lappend r $cmd } set v [uplevel 1 [list time [join $r {; }] $t]] return [lreplace $v 0 0 [expr {[lindex $v 0]/(1.0*$on)}]] } puts "" puts "Tcl
• Critcl debugging with gdb
  22 Dec 2004 — tcl package require critcl 0.34 ;# NEEDS > 0.33 # critcl::config force 1 ;# optional, force recompilation critcl::config keepsrc 1 ;# keep sources in cache critcl::config lines 0 ;# code references cached C
• Critcl does C++
  12 Jul 2012 — method { lappend rtypes $rt lappend tnames [lindex [split $n | ] 0] set tmp [lindex [split $n | ] 1] if { $tmp == ""} { lappend mnames [lindex [split $n | ] 0] } else { lappend mnames [lindex [split $n | ] 1] } lappend
• Critcl Examples
  09 Jun 2017 — slen); sP = Tcl_GetByteArrayFromObj(resObj,(int*)NULL); kP = Tcl_GetByteArrayFromObj(objv[2],&klen); for (; slen>0 && klen>0 ; slen--, klen--) { *sP++ ^= *kP++; } Tcl_SetObjResult(interp,resObj); return TCL_OK; } puts [xor "A
• Critcl FAQ
  27 Dec 2011 — 1.0/home/St‚phane ARNOLD/.critcl/Windows-x86} -o C:/Program Files/msys/1.0/home/St‚phane ARNOLD/.critcl/Windows-x86/v034_1e3ab721192aa1df5ef708c68f019a0b_pic.o C:/Program Files/msys/1.0/home
• Critcl goes Fortran
  05 Mar 2015 — Fortran are somewhat limited, especially where strings are concerned. * The version number is 0.20 (based on Critcl 0.32) If you are interested, then just send me an email ---- [AM] 2007
• Critcl Manual
  18 Apr 2010 — be kept (default value 0 causes source to be deleted) '''::critcl::config appinit''' some_value * no meaning (default value "") '''::critcl::config force''' 1 * force recompilation. (default value 0 causes cached files to
• Critcl NAG
  07 Jul 2011 — 0.0 1.0 2.0 3.0 3.5 4.0 5.0 6.0 7.0 ] 0.0 1.0 2.0 3.0 3.5 4.0 5.0
• cron
  05 Sep 2017 — What: cronjob Where: ftp://ftp.procplace.com/pub/tcl/sorted/packages-8.0/apps/cronjob/1.0/cronjob-1.0.tar.gz Description: Tcl application that provides cron like functionality. Updated: 12
• Crop multimedia with tk's place
  24 Sep 2011 — Place it in its parent window. frame .f.mp -container 1 place .f.mp -x 0 -y 0 -anchor nw 3- Exec mplayer with at least the -zoom and -wid options. Change
• cross-building a starkit
  09 Apr 2017 — xml version="1.0" encoding="UTF-8"?> <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> <plist version="1.0"> <dict> <key
• Cross-version voodoo
  20 Jan 2013 — 0); cTblPtr = (Tcl_HashTable *) TclX_StructOffset(currNsPtr, offset, 0); if ((flags & TCLX_CMD_REDEFINE) || !(Tcl_FindHashEntry(gTblPtr, cmdName) || Tcl_FindHashEntry(cTblPtr, cmdName))) { Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc); } if (!(cmdName[0
• Crosshairs on a canvas
  17 Jul 2003 — opts(hhair) [eval [list $w create line 0 0 0 0] $opts(args)] set opts(vhair) [eval [list $w create line 0 0 0 0] $opts(args)] } set config($w) [array get
• crosstab
  28 Jul 2014 — csv -c 2,3 1\2 F M Total ------------------------------------------------ baseball 1 1 2 football 0 1 1 soccer 0 2 2 tennis 2 1 3 Total 3 5 8 which might make
• crosstab a la Relations
  23 May 2010 — tennis | +======+======+========+ Sports Data ----------- } puts [crosstab $sportsData Sex Sport] if 0 { +--------+-+-+-----+ |Sport |F|M|Total| +--------+-+-+-----+ |baseball|1|1|2 | |football|0|1|1 | |soccer |0|2|2 | |tennis |2|1|3 | +--------+-+-+-----+ |Total |3
• crosstab again
  18 Dec 2016 — set res [list [linsert $collabels 0 {}]] foreach row $matrix label $rowlabels { lappend res [linsert $row 0 $label] } set res } #-- Retrieve a variable's value, if present, else 0 proc get _var { upvar
• CrowTDE
  01 Sep 2013 — the problem. It is was about having tdom 0.8.0 and 0.8.1 and always tcl tried to load the 0.8.0 version. But know there is an error
• Cryptkit
  09 Jul 2017 — about this for putting the [source] command in a pkgIndex file? package ifneeded cryptkit.kit 0.0 [format { source [file join %s cryptkit.kit] package require cryptkit } [list $dir]] Whether it will
• CryptoAid
  14 Oct 2009 — c -width 0 -height $C(height) -highlightthickness 0 ::ttk::frame .ctrl DoCanvas pack .txt -side top -fill both pack .c -side left -fill both pack .ctrl -side bottom -padx {.1i 0} -fill
• Cryptographically secure random numbers using /dev/urandom
  30 Apr 2016 — from 0 to 18446744073709551615 inclusive... lossless conversion set n [scan $eightRandomBytesHex %llx] # map n to min-max inclusive... maybe we lose a little randomness here (precision) set randomNumber [expr (($n/18446744073709551615.0
• Cryptography: transposition
  25 Jul 2012 — no problems); best combine it with a substitution, e.g. [Caesar]. ====== proc transpose {string pattern {decode 0}} { set lpat [string length $pattern] append string [string repeat " " [expr {$lpat-[string length $string]%$lpat
• cscrollbar
  29 Jul 2006 — www.xmission.com/~georgeps/implementation/software/cscrollbar/cscrollbar-4.0.png] This is a demo and a package: http://www.xmission.com/~georgeps/implementation/software/cscrollbar/cscrollbar-4.0.kit ---- [Category Widget]
• cshrc processing
  10 Jan 2003 — usr/man:/solar/local/man:/solar/X11R5/share/man:/opt/SUN setenv CLASSPATH /solar/netscape/moz3_0.zip setenv LANG ko source $HOME/.alias.solaris source $HOME/.alias.han else set path
• CSLU Toolkit
  21 Feb 2015 — Tcl 8.0.3.| | Contact:| jacques at cslu.ogi.edu (Jacques de Villiers)| [http://i.ytimg.com/vi/S3yLyDHXxT0/hqdefault.jpg] [http://www.cslu.ogi.edu/toolkit/docs/2.0/apps/speechview
• CSS2HTML
  02 Sep 2005 — globalarray p { for { set i 1} { [uplevel #0 info exists ${p}$i] } { incr i } {} global ${p}$i set ${p}${i}(0) {} unset ${p}${i}(0) return ${p}$i } # creates a tcl style
• csv
  28 Sep 2018 — line_count != 0} { for {append k 0} {$k < $line_count} {incr k} { set line [lindex $data $k] set quote [expr {$quote + [regexp -all \" $line]}] if {$quote % 2 == 0} { set quote 0 append
• CSV Sql
  05 Jan 2011 — select statement" } set select_statement [string trimleft $select_statement] set fields {} set got_from 0 set got_where 0 foreach field [split $select_statement ", "] { if {$field == {}} { continue } set select_statement [string trimleft
• ctable
  15 Sep 2011 — top -fill both #column 0 row 0 .t insert 0 0 {First Name} .t insert 1 0 {Last Name} .t insert 2 0 Job .t insert 3 0 {Primary Key} set i
• ctcl
  17 Apr 2011 — 3446 209.85.153.132 80 time_wait 0 0 192.168.1.2 3447 209.85.153.132 80 time_wait 0 0 ====== **Command Reference** The vast bulk of commands are
• Ctext
  23 Mar 2018 — path}.info tag remove sel 0.0 end set curIndex [${module1_path}.info index insert] catch {${module1_path}.info tag add \ sel $curIndex [lindex [split $curIndex .] 0].[expr {[lindex [split $curIndex .] 1
• CTk
  19 Mar 2015 — ctk4.0.tar.gz | | | ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/sorted/packages-7.6/devel/ctk4.0b1.tar.gz | | | http://www.schwartzcomputer.com/tcl-tk/ctk/ctk8.0
• Cubic Function Explorer
  18 Aug 2013 — bg) -outline $S(bg) .c raise $n } .c create line $x0 0 $x1 0 -fill blue .c create line 0 $y0 0 $y1 -fill blue .c create text [expr {$x0+20}] [expr
• CUBRID
  22 May 2017 — CUBRID%|%Github]. ** Tcl Bindings ** [tdbc]: TDBC-ODBC work with http://www.cubrid.org/manual/en/10.0/api/odbc.html%|%CUBRID ODBC driver%|%. [https://github.com/ray2501/tclcubrid%|%tclcubrid%|%]: Tcl extension and
• Curbside Collection for Object Systems
  14 Mar 2014 — proc knock {} { variable kiss_list if { [llength [get kiss_list]] > 0 } { return 1 } return 0 } proc cleanup {} { set ::tao(kiss_pending) 0 variable object_pool variable object_destroy variable kill_time variable
• curry
  15 Jul 2017 — x] } return $z } set sum [list foldl ::tcl::mathop::+ 0] {*}$sum {1 2 3 4} # OR: interp alias {} sum {} foldl ::tcl::mathop::+ 0 sum {1 2 3 4} ====== [PYK] 2016-05-22
• curses banners
  20 Nov 2013 — i 0} {$i < $cols } {incr i} { curses move 0 $i curses puts " " curses move [expr $lines - 1] $i curses puts " " } for {set i 0} {$i < $lines} {incr i} { curses move $i 0
• curses digital clock
  20 Nov 2013 — attr off reverse set reverse 0 set charno 0 foreach char [split $str {}] { binary scan $char c f set index [expr ($f - 0x30) * 8] for {set line 0} {$line < 8} {incr line
• curses screen saver
  20 Nov 2013 — proc ssaver {} { expr srand([clock seconds]) fconfigure stdin -buffering none -blocking 0 fileevent stdin readable {set ::done 1} set ::done 0 curses refresh; # empty the screen before we start boxer vwait ::done
• cursor
  25 Sep 2015 — 150] -side top proc advance {} { global list x incr x if { [llength $list] == $x } { set x 0 } foreach w [list . .f .l] { $w config -cursor @[lindex $list $x] } .l config -text "[lindex
• Cursor demo
  22 Oct 2017 — 4 for {set i 0} {$i<$ncols} {incr i} { lappend cols col$i } set nmax [expr {int([llength $cursors]*1./$ncols)}] foreach col $cols { set $col [lrange $cursors 0 $nmax] set cursors
• cursors
  24 Dec 2014 — Cygwin] too.) ====== proc main {} { set fd [open /usr/X11R6/include/X11/cursorfont.h r] set i 0 while {[gets $fd line] > -1} { if { [regexp {XC_([^ ]+) } $line -> c] && ![catch { # not everything that begins
• Curved line through two points
  06 Sep 2018 — 0 * (1.0-cos($angle_rad)) )}] set distance [expr {sqrt($radius**2-0.25*$length**2)}] if { $angle > 180.0 } { set distance [expr {-$distance}] } # # Coordinates of the center # set xc [expr {0
• custom cursors
  18 Jun 2012 — draw_cursor {x y} { erase_cursor set ::cursor_items "" if {$::cursor_style == 0} {set d 2} else {set d 0} set s 24 # s sets cursor size, d is central gap size
• Custom event notification
  14 Dec 2005 — but better safe than sorry.'' Hey, is there a difference between '''[[[after] 1 $script]]''' and '''[[[after] 0 $script]]'''? ''[lexfiend]: Not that I've ever been able to notice. Both should work just
• Custom sorting
  03 Jul 2012 — set args [lrange $args 0 end-1] set t {} foreach element $list { lappend t [list [eval $sortf [list $element]] $element] } set res {} foreach i [eval lsort $args -index 0 [list $t]] { lappend
• Custom Toplevel Frame
  02 Oct 2012 — copy.lab -bg $sfg -bd 0 -relief flat] -expand 1 -fill both update switch $TLT { "rrectangle" {dll_SetWindowRgn [getHwnd [wm title ${tParent}copy]] [dll_CreateRoundRectRgn 0 0 $W $H $rndArc $rndArc] True
• Customizable Linux Workspace Switcher
  19 Jul 2013 — withdraw . destroy .desk toplevel .desk wm attributes .desk -topmost 1 ; # on top wm geometry .desk +0+0 wm overrideredirect .desk yes ; # remove window decorations } :public method add {name} { global deskCount global deskCountList
• Customizable Toolbar Widget
  26 Jan 2006 — highly appreciated. Mike ---- The code: } namespace eval ::toolbar {} array set ::toolbar::functions { 0,icon ::img::new 0,text "New Document" 0,cmd "do_new_document" 1,icon ::img::open 1,text "Open
• CvK
  27 Aug 2012 — slightly modified <wikit-akg.kit> [http://wiki.tcl.tk/10109], in CGI mode with Apache 2.0 [http://httpd.apache.org/] web server, as an abstract information database. * Logging BER, AGC levels
• CVS
  24 Dec 2014 — generate distributions from a source code repository such as CVS, automating as much as possible. V2.0 requires Tcl 8.x . Updated: 11/1998 Contact: mailto:andreas_kupries@users.sourceforge.net (Andreas
• cwind
  15 May 2017 — lsearch -glob $cur $title]<0 && $i<=$max} { set cur [::cwind::wlist] incr i after $delay update } if {$i>$max} {puts "Can't find the window : $title"; return 0} else { return $i} } ====== ---- See
• Cygwin
  04 May 2017 — reverse is also fine, the main screen can be refered to as :0, so ======none export DISPLAY=some.machine:0 ====== Note that bash requires the use of export to set shell variables
• D
  24 May 2017 — compiler based on [LLVM] [http://forum.dlang.org/thread/wdddgiowaidcojbrklsg@forum.dlang.org%|%Tkd] v1.0.0-beta, 2014-05-04: ** See also ** [Example of a Tcl extension in D] (D2): ** Examples
• D'Agents (formerly Agent Tcl)
  06 Apr 2016 — pub/agents/agent2.0.tar.gz <<br>> ftp://agent.cs.dartmouth.edu/pub/agents/install2.0.ps.gz <<br>> ftp://agent.cs.dartmouth.edu/pub/agents/install-secure2.0.ps.gz <<br
• Daddy, how does a computer work
  30 Nov 2012 — a 6-years' old child # Source into "constructions.tcl" # namespace import ::Constructions::* display mode cartesian moveto 0 5.5 textcolour black textfont "times 18" draw text "How does a computer work?" # # Draw
• Daily Dilbert
  05 Dec 2017 — if {$argc && [file isdirectory [lindex $argv 0]]} { set today [clock format [clock seconds] -format "dilbert%Y%m%d.gif"] set fd [open [file join [lindex $argv 0] $today] w] fconfigure $fd -translation
• Dangerous constructs
  07 Jun 2014 — variable is an integer by using: ====== incr theVar 0 ====== Verify that the value in a variable is numeric by using: ====== expr {$theVar + 0.0} ====== (Note: the expression is ''braced'' so it is
• Darwin
  13 Nov 2008 — com/darwinsource/]. And guess what: localhost:~ root# uname -a Darwin localhost 7.0.0 Darwin Kernel Version 7.0.0: Thu Nov 13 19:16:18 PST 2003; root:work/xnu-517
• Dash lines on Windows
  07 Jun 2014 — is 2 or more. ---- ====== #!/bin/bash # the next line restarts using wish \ exec /usr/bin/wish "$0" "$@" #: WinDash.tcl - HaJo Gurt - 2005-07-13 #: Bug-Demo: On Windows, dash-patterns only work
• Data analysis with Tcl
  22 May 2011 — i 0} {$i < 10} {incr i} { set x [expr {$i-5.0+2.0*rand()}] set y [expr {$i-5.0+3.0*rand()}] set z [expr {$i-5.0+10.0
• data is not abstracted from the language
  24 Oct 2008 — it is programmable because you can type something like 1[proc sgn x {expr ($x>0)-($x<0)}] into the entry, and then in this example have it extended by a sign
• Data Modelling
  23 Jan 2016 — of 3 value a value for years (age years more then 0 less then x) a value for months (more then 0 less then 12) etc) What breaks my head is this
• Data recovery script
  09 Apr 2013 — 100 # util vars set count 0 set totalsize 0 # create the list of files from a big glob set sourcefilelist [ glob -nocomplain -directory $sourcedir \ * \ */* \ */*/* \ */*/*/* \ */*/*/*/* \ */*/*/*/*/* \ */*/*/*/*/*/* \ */*/*/*/*/*/*/* \ ] if { [ llength $sourcefilelist ] == 0 } { puts "no matches" exit
• Data structures: from the bit to the Web
  18 Jan 2013 — structure - it is the minimal, atomar part of all others, capable only of expressing two values: 0 or 1, true or false. '''Bit sequences''' of length n can hold 2**n values
• Database Batch Inserts
  16 Aug 2017 — i 0 set batch [dict create] while {[gets $in line] >= 0} { foreach column $COLUMNS value [split $line ,] { if {$value ne ""} { dict set batch $column$i $value } } if {[incr i] % $BATCH_SIZE == 0
• Database Interface
  22 Jul 2018 — us look at what other people do: python [http://www.python.org/topics/database/DatabaseAPI-2.0.html], [JDBC], tclodbc [http://www.solagem.fi/~rnurmi/reference.html], AOLserver [http://www.aolserver.com
• Database routines for in core
  12 Jul 2011 — newcurrententry+1] end]] 0] 0]; set t [bind .dbf.wb.ee <Return>]; eval $t } } proc dbsearch { {pattern} {fieldnames {}} {range {0 end}} } { global dbvar set r {} set i [lindex $range 0] foreach d
• DataflowCanvas
  31 Dec 2010 — variable state set state {0 0} return {inlets 2 outlets 1} } method inlet {n args} { my variable state lset state $n $args if {$n == 0} { my outlet 0 [expr [join $state +]] } } } ====== The
• dateentry
  25 Dec 2013 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/dateentry.html and http://purl.org/tcl/home/man/iwidgets3.0/dateentry.n.html <<categories>> Command | incr Widgets | Date and Time
• datefield
  25 Dec 2013 — http://incrtcl.sourceforge.net/iwidgets/iwidgets/datefield.html and http://purl.org/tcl/home/man/iwidgets3.0/datefield.n.html This widget's full name is iwidgets::datefield. **Tklib datefield** A functionally
• db2tcl
  08 Sep 2013 — ftp://ftp.tcl.tk/pub/tcl/all/d/db2tcl/1.0/%|%db2tcl]''', a [Tcl] extension, provides an interface to [DB2] ** Attributes ** contact: s m m c d o w e l l
• db2tclBelinksy
  08 Sep 2013 — db2tcl/0.0.3/db2tcl-0.0.3.tar.gz%|%db2tcl-0.0.3.tar.gz] ([ftp://ftp.tcl.tk/pub/tcl/all/d/db2tclBelinsky/0.0.3/db2tcl-0.0.3
• dbitotcl
  12 Nov 2014 — using [Perl]'s DBI functions from [Tcl]. Perl is hidden from the user. Currently at version 0.14 . Updated: 09/2001 Contact: mailto:mail at xdobry dot de === ---- An alternative might be
• DBM
  21 Nov 2017 — GDBM Tcl binding: [ftp://ftp.tcl.tk/pub/tcl/all/t/tclgdbm/1.0/tclgdbm1.0.tar.gz%|%tclgdbm1.0.tar.gz] 2014-01-27: this link is broken <<categories>> Embedded Database
• DBMS
  31 Oct 2017 — mostly ordered) text files. ** Specialized Database Systems ** [ftp://ftp.tcl.tk/pub/tcl/all/n/NLItcl/0/NLItcl.tar.gz%|%NLItcl.tar.gz]: Natural Language Inc's NLI binding [PiTcl]: [Palm Pilot
• dbus-tcl
  19 Jan 2018 — this: ====== <!DOCTYPE busconfig PUBLIC "-//freedesktop//DTD D-BUS Bus Configuration 1.0//EN" "http://www.freedesktop.org/standards/dbus/1.0/busconfig.dtd"> <busconfig> <!-- User userid can own this service --> <policy user
• dde restriction
  17 Feb 2011 — all commands proc permissive {args} { uplevel #0 $args } # restricted to info proc restricted_handler {args} { set cmd [lindex $args 0] switch -exact -- $cmd { info { uplevel #0 $args } default { return -code error "permission
• dead keys for accents
  27 Jan 2012 — tested on any other environment than Linux + X with a German keyboard. ====== package provide deadkeys 1.0 # list of classes to be applied to set classes [list Text Entry] foreach class $classes
• Deadfish
  03 Jul 2013 — deadfish { proc eval { code } { variable n 0 ::eval [join [split [regsub -all -- {[^idso]} $code {}] {}] \n] } proc ! {} { uplevel { variable n; set n [expr (($n==256||$n<0)) ? 0 : $n] } } proc i {} { !; incr n
• Debian
  30 Jul 2009 — for the next release. The Knoppix stuff is also quite nice. [LES]: It was Debian 3.0. I cannot remember quite exactly, but in a wild stab I'd say I had
• debug
  01 Sep 2013 — result` is a rather inconsistent (and IMHO ugly) way of quoting newlines. `string range [[list $result\{]] 0 end-2` is an alternative. 5. To be "no-op if disabled" is a feature
• debug with trace
  22 Jul 2017 — after a bp command proc tracecmd1 {cmd op} { puts $cmd puts -nonewline "[lindex [info level -1] 0]> " gets stdin a while {$a ne ""} {if {[catch {uplevel 1 puts \[$a\]} err]} {puts $err
• Debugging Aid For Production Code
  18 Jan 2014 — 25 microseconds if ::DEBUG < 0. ## If ::DEBUG < 0 then the debug level cannot be ## used to cause debugging output. proc debugPuts { { msg "" } { level 0 } { handler addLogEntry } } { if { $::DEBUG < 0 || ! [ string length $msg
• Debugging AOLserver with Tcl Dev Kit
  29 Sep 2006 — http://foo.com:8000/test.adp?debug=*&dhost=127.0.0.1&dport=2576 <http://foo.com:8000/test.adp?debug=*&dhost=127.0.0.1&dport=2576> ---- [Category Debugging] | [Category Webserver]
• Debugging via introspection
  31 Jul 2008 — is your friend. ''[escargo]'' is fond of using a proc containing '''puts [[lindex [[info level -1]] 0 ]]''' [[I'd love to see pointers to tutorials, white papers, etc. on how to make
• DebuggingExprCalls
  13 Nov 2009 — time {_expr $a/.5} 1000 17.065 microseconds per iteration % time {expr {$a/.5}} 1000 15.988 microseconds per iteration % time {_expr {$a/.5}} 1000 0.709 microseconds per iteration ====== <<categories>>Debugging
• Decision trees as expressions
  01 Aug 2003 — with 0..3, and make errors on other input... } proc classifyNumber x { #-- "feature extraction" set even [expr {$x%2==0}] set prime [expr {[lsearch {2 3 5 7 11 13 ..} $x]>=0
• declarative programming
  28 Nov 2013 — declareBooleanFunction and |-> 0 0 0 1 declareBooleanFunction or |-> 0 1 1 1 declareBooleanFunction nand |-> 1 1 1 0 declareBooleanFunction nor |-> 1 0 0 0 declareBooleanFunction xor |-> 0 1 1 0 ====== <<categories>> Concept
• Deep copy and persistence of a BWidget's Tree
  07 Sep 2012 — driedTree [read $f] close $f return $driedTree } } package provide BWidget::Tree 0.0 ---- '''LIMITATIONS''' This package (BWidget::Tree rev. 0.0) does not work if the cloned nodes contain some kind of
• Deet
  28 Apr 2014 — top of gdb), and other instantiations are in development. Deet works with Tcl/Tk version 4.0 and up and with Tksh. [https://web.archive.org/web/20081219225024/http://www.cs.princeton
• defColor
  30 May 2016 — RGB values for calculation. ** Download ** Version 0.3: [http://download.lima-city.de/lifax/defColor-0.3.zip%|%defColor-0.3.zip%|%] ** Usage ** `package require defColor ?0.3?` COMMANDS `::defColor::reverse <Color1
• Deferred evaluation
  14 Dec 2017 — dynavar'' from [Braintwisters]: ====== willset now {clock format [clock seconds] -format %H:%M:%S} 0 % set now 19:37:12 0 % set now 19:37:14 ====== ---- <<discussion>> [Salvatore Sanfilippo] - Deferred evaluation, and the
• Degree histograms
  18 Aug 2012 — 0 0 0 0 5 (a pentagram inside a pentagon) K3,3 : 0 0 0 6 (the famous Gas-Water-Electricity graph) A 5-legged star is 0 5 0 0 0
• DejaGnu
  12 Jul 2015 — line tests. An example for a complete test would be: Given an executable "ls" When I run with parameters "-a" Then I should see ".." And it should return 0 ---- <<categories>>Testing | Application
• Delimiting Numbers
  10 Jun 2016 — with options. ====== % format_number 100000000 0 -idigits 0 100,000,000 % format_number 100000000 0 -idigits 0 -sgrouping 4 1,0000,0000 % format_number 100000000 0 -idigits 0 -sgrouping 32 10,00
• Demand-driven computation
  23 Jan 2013 — name] } { set count 0 while { [catch { uplevel #0 [string map [list NAME $name EXPR $expr] {set ::NAME [expr {EXPR}]}] } msg] } { if { [regexp {can't read "(.*)": no} $msg ==> varname] } { uplevel #0 [list set
• demangle
  16 Mar 2015 — UnDecorateSymbolName {pointer-utf8 pointer-utf8 int int} int \ [ffidl::symbol "imagehlp.dll" UnDecorateSymbolName] proc demangle {symbol} { set ret [string repeat { } 1024] dll_UnDecorateSymbolName $symbol $ret 1024 0 set ret } ====== <<categories>> Dev. Tools
• Deploying the TCL Plugin
  28 Jan 2013 — plugin/download.html. If you are intent on installing the 2.0 version, the instructions below may help. Plugin v2.0 works with both Mozilla 1.x and IE 5.5+ on
• Deploying With Freewrap
  02 Jun 2009 — from a batch file or other automatic process, so # checking is minimal! set initfile [lindex $argv 0] set snipfile [lindex $argv 1] set outfile "[file rootname $initfile]_snipped.tcl" set infp [open
• Depth of a list
  02 Nov 2012 — expr { [llength $list] == 0? 1: [atomar $list]? 0: 1+[max [lmap ldepth $list]] } } proc atomar list {expr {[lindex $list 0] eq $list}} proc max list { set res [lindex $list 0] foreach e
• deref
  04 Sep 2011 — i 0 } { $i < $depth } { incr i } { set prevname $varname set varname [ uplevel set $varname ] } return $prevname } proc value { varname { depth 0 } } { if { $depth == 0 } { set varname \$$varname while { [ string index $varname 0
• Dereferencing
  28 Oct 2015 — 42; int * ip = &i; int ** ipp = &ip; int ***ippp = &ipp; printf("hello, %d\n", ***ippp); return 0; } ====== ...and Tcl: ====== set i 42 set ip i set ipp ip set ippp ipp puts
• Design your own Christmas Tree
  25 Nov 2017 — rot) * $maxd / 2.0 + $y}] lappend star [expr {cos($inc * ($i + 0.5) + $rot) * $mind / 2.0 + $x}] lappend star [expr {sin($inc * ($i + 0.5) + $rot) * $mind / 2.0 + $y}] } return
• Desktop Environment
  11 Apr 2015 — Edit { ... } } set toolbar [list [tkapp::tbicon new] newCmd [tkapp::tbicon open] openCmd ... ] set about { Foobar 1.0 by J. Random Hacker See http://www.foobar.org/ } tkapp::create -name foobar -title Foobar
• Desktop Slide Show
  16 Jan 2011 — the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl #--------------- # #--------------- proc init {} { set ::dt 3000 set ::size {200 150} set ::i 0 set ::first 1 # create a list of images
• destroy forward compatibility
  18 Sep 2012 — Tk 8.0, the destroy command stopped returning an error when # given a non-existent window as an argument. package require Tk if {[package vcompare [package provide Tk] 8] < 0} { rename destroy
• Destructuring assignment
  25 Oct 2015 — simple implementation of destructuring assignment for nested [dictionary%|%dictionaries]. **** Code **** ====== # Destructuring assignment for dictionaries. # Version 0.0.1 proc dassign {to from {level 1}} { foreach {key value} $to { # $value is a variable
• Detecting Port Scans in Tcl
  30 Jul 2012 — bin/sh # the next line restarts using -*-Tcl-*-sh \ exec tclsh "$0" ${1+"$@"} # records all attempts to connect to the ports listed # in the portlist. # log lines consist of a timestamp, the
• Detecting when a client is not reading data from a socket (or pipe) as fast as the server is writing
  29 Nov 2011 — written < 0) { /* - * If the last attempt to write was interrupted, simply retry. + * If the last attempt to write was interrupted, Check for async events or simply retry. */ - if (errorCode == EINTR) { - errorCode = 0
• Determination of Character Unicode Blocks
  13 Dec 2016 — occupy both shared and separated blocks. ====== # !/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" # list of current unicode blocks as found at: # http://www.unicode.org/Public/UNIDATA/Blocks
• Determine whether an ftp URL is valid
  31 Jan 2011 — DisplayMsg''' with your own code. ---- Here is the code I now have #!/bin/sh # \ exec tclsh "$0" ${1+"$@"} # Author: [Larry W. Virden] [LV], modified Andreas Kupries [AK] # Version: 3 package require uri
• determining scan codes for key sequences
  19 Oct 2011 — format "0x%02X" [scan [read stdin 1] %c]] if {$key == 0x1B} { set term 0 while {(! [fblocked stdin] ) && $term == 0} { set chr [format "0x%02X" [scan [read stdin 1] %c]] if {$chr >= 0x41
• Determining the Applications Root Directory
  02 Jun 2014 — eval ::starkit { variable topdir [file normalize [file dirname [info script]]] } } # set auto_path [linsert $auto_path 0 [file join $::starkit::topdir]] ====== ---- [FW]: Of course, if you're satisfied with it only working
• Deterministic finite state machine
  23 Aug 2012 — with an even number of 0s set M {{S1 S2} {0 1} S1 S1 { S1,0 S2 S1,1 S1 S2,0 S1 S2,1 S2} } foreach test {00 11 101 01010
• Device management on Windows
  28 May 2018 — 00\7&210D64C0&0&0000} {USB\ROOT_HUB30\4&D858888&0&0} {USB\VID_8087&PID_0024\5&1A59D89A&0&1} {USB\VID_0A81&PID_0205\7&304D57C3&0&1} {USB\VID
• DGA usage examples
  16 Jul 2002 — this starting node # endNode - The node to display the shortest path to. set graphName [lindex $argv 0] set startNode [lindex $argv 1] set endNode [lindex $argv 2] # Read the .dot file in
• dgDBBrowser
  26 Nov 2010 — Wikit::init" line 4) invoked from within "Wikit::init $dir 0 .top" (procedure "::app::Help" line 5) invoked from within "::app::Help 0" (menu invoke) ====== ---- * [Metakit] * [Mysql] * [ODBC] * [Oracle] * [Postgres] * [SQLite] version
• dgmkviewer
  01 Jan 2013 — table, open several views in parallel, allow simple browsing of starkits, and more.| || Currently at version 0.4b5.| | Updated:| 2004-11-11| |Contact:| See web site| [http://www.dgroth.de/img/dgMKViewer
• dgsqlite
  22 Nov 2017 — search tables by keywords, delete and rename views and tables, colourized SQL-editor.| || Currently at version 0.7 .| | Updated:| 01/2004| | Contact:| See web site| [http://www.dgroth.de/img/dgSQLite.png
• dgw::combobox
  11 Oct 2018 — the file with the source code somewhere in a directory like /home/username/tcl/dgw/combobox-0.1.tm In your code you would now have to write: ====== tcl::tm::path add
• DHP
  13 Dec 2002 — 0a1.gz ftp://www.zveno.com/pub/plume/document-1.0a1.tcl.gz Description: Tcl 8.0 package for retrieving and processing WWW documents. Has handlers for FTP, HTTP/1.1 with
• Diagram
  04 Jan 2016 — require BWidget package require diagram ### Global Variables set object_counter 0 set connector_counter 0 set connected_object_1 {} set minimap_visible 0 ### The minimap (or scroll map) proc toggle_mini_map
• dialogshell
  28 Oct 2012 — iwidgets/dialogshell.gif] Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/dialogshell.html and http://purl.org/tcl/home/man/iwidgets3.0/dialogshell.n.html <<categories>> Command | incr Widgets
• DiaNa
  08 Apr 2011 — Perl framework for processing huge amounts of data. Includes an interactive Perl/Tk GUI. Currently at version 0.5c . Updated: 09/2004 Contact: See web site ---- See also [Perl] <<categories>>Mathematics|Graphics
• Dice
  30 Apr 2016 — 2 l 1 5 0 l 1 4 5 u 1 6 0 u 1 \ 0,a 0 r $s1 0,b 0 l $s1 0,c 0 u $s1 1,a
• dict exists
  31 Oct 2012 — puts [dict exists $theDict two y]" (file "dicttest.tcl" line 5) # tclsh dicttest.tcl 0 1 0 0 ====== [DKF]: That'll be a difference between versions due to [https://sourceforge.net/tracker
• dict extensions
  09 Nov 2016 — list namespace eval $ens $script] } extend dict { proc isDict {var} { if { [::catch {::dict size ${var}}] } {::return 0} else {::return 1} } proc get? {tempDict key args} { if {[::dict exists $tempDict $key {*}$args]} { ::return
• dict for
  18 Mar 2018 — above data probably ought to come from a database... # Print out some employee info set i 0 puts "There are [dict size $employeeInfo] employees" dict for {id info} $employeeInfo { puts "Employee #[incr
• dict incr
  28 Aug 2013 — the value of the entire dictionary. Non-existent keys are treated as if they map to 0. It is an error to increment a value for an existing key if that value
• Dict Key Path Commands
  24 Oct 2015 — lindex $keypath 0] {*}$args] } else { upvar $dictname {} dict with {} { dict-plappend [lindex $keypath 0] [lrange $keypath 1 end] {*}$args } return [set {}] } } dict set a b c d m wi 0 dict-plappend
• dict lappend
  16 Dec 2015 — dict key1 ... keyn value proc dictlappendsub {dictName args} { upvar 1 $dictName d set keys [lrange $args 0 end-1] if {[dict exists $d {*}$keys]} { dict set d {*}$keys [linsert [dict get $d
• dict lappend2
  16 Jun 2013 — exists $d {*}[lrange $args 0 end-1]] } { dict set d {*}[lrange $args 0 end-1] [list [lindex $args end]] } else { ::set list [dict get $d {*}[lrange $args 0 end-1]] ::lappend list
• dict map
  16 Aug 2018 — variable names" } # Link to local variables which will be used as iterators. upvar 1 [lindex $keyVarValueVar 0] key [lindex $keyVarValueVar 1] val # Accumulate and return the result. ::set result {} foreach {key val
• dict probe
  24 Jan 2015 — 0] } while {[llength $args] > 1 && [llength $probe] > 0} { # we still have a dict to search and a probe to find foreach {key val} $args { set found 0 set p [lindex $probe 0
• dict tips and tricks
  23 Feb 2016 — the pairs!) [RS] 2008-06-09: In fact, this is no longer true - from 8.5.0, dicts have a "chronological" order - each added element appears at the end. So you can
• dict update
  28 Apr 2018 — lindex [info level 0] 0] dictVarName\ keyPath varName ?keyPath varName ...? body\"" } # Link to caller's dictionary variable. upvar 1 $dictVarName dictVar # Prepare caller variables. foreach {keyPath valVarName} [lrange $args 0 end-1
• Dict VS Array Speed
  04 Jul 2013 — arr(5)} 10000000 0.1506702 microseconds per iteration tclsh8.6 [~]time {dict exists $dict 5} 10000000 0.1621209 microseconds per iteration tclsh8.6 [~]time {info exists arr(4)} 10000000 0.1820209 microseconds
• dict with
  28 Sep 2018 — assert {![info exists c]} ====== https://github.com/samoconnor/oclib.tcl/blob/master/oclib/oc_base-1.0.tm#L81%|%"assign" implementation here%|% ---- [gchung]: Another implementation of "assign" but it also returns a
• dicthash: Yet another lightweight object system
  01 Mar 2014 — similar to the original implementation # start with a hash: set foo { location {x 0 y 0} heading 0 speed 0 step {{} { %this.location.x = [expr { [%this.location.x]+([%this.speed]*cos([%this
• dictionary
  18 Dec 2010 — optional: proc fmtable {table {lines 0}} { set maxs {} foreach item [lindex $table 0] {lappend maxs [string length $item]} foreach row [lrange $table 1 end] { set i 0 foreach item $row max $maxs
• dictn
  26 Sep 2018 — dictn 0.1 %set data [dictn create {slot1 item1} {a 0 b 1} {slot1 item2} {a 100 b 101} {slot2 item1 a} 3] slot2 {item1 {a 3}} slot1 {item1 {a 0 b
• dictree
  07 Apr 2016 — row 0 -column 0 -sticky news grid $w.sby -row 0 -column 1 -sticky ns ;# arrange the scrollbars grid $w.sbx -row 1 -column 0 -sticky ew grid rowconfigure $w 0 -weight
• dictutils
  02 Jul 2018 — set maxLevel 0 while 1 { switch -exact -- [lindex $args 0] { -maxlevel { set maxLevel [lindex $args 1] if {![string is entier $maxLevel] || $maxLevel < 0} { return -code "-maxlevel not numeric or below 0" } } -- { set
• diff
  03 Apr 2015 — a certain tolerance if required). This way you are immune to numbers formatted in different ways: 0.1, +.1, 1.0E-01, +1.00e-001 all spell the same number and you
• diff in Tcl
  28 May 2018 — K $k] for { set i 0 } { $i < $k } {incr i } { lappend seta {} lappend setb {} } while { [lindex $q 0] >= 0 } { incr k -1 lset seta $k [lindex $q 0] lset setb $k [lindex
• Differentiation and steepest-descent
  28 Feb 2005 — calculus::deriv $func $point] if { $gradient < 0.0 } { set gradient -1.0 } else { set gradient 1.0 } set found 0 set substeps 0 while { $found == 0 && $substeps < 3 } { set newpoint [expr {$point
• diffing very similar files
  30 Jul 2011 — open $file2 "r"] set count 0 set result {} while { [gets $infile1 line1] >= 0 } { set rc2 [gets $infile2 line2] # Second file is shorter? Report this if { $rc2 < 0 } { set line2 "=== end-of-file
• Diffs Code Module in progress
  02 Jan 2006 — SavePage" line 57) invoked from within "SavePage $N $C $host $name" Does anyone know a way to fix this? I am currently using Windows XP Pro with Apache 2.0. ---- [Category Wikit]
• DiffUtilTcl
  02 Jul 2012 — in C on top of Tcl's API, thus giving full Unicode and VFS support. Version 0.3 is available in ActiveState's Teapot. The working commands are diffFiles, for line by
• Digital Elevation Model
  18 May 2012 — 0 0 0 } { 1 0 1 } { 0 1 1 } { 0 -1 -1 } { -1 0 -1 } } set hatdata { { 0 0 1 } { 1 0 0 } { 0 1 0 } { 0 -1 0 } { -1 0 0
• Dijkstra's guarded commands
  11 Nov 2014 — y} {1.0 2.0 3.0 7.0 5.0 6.0 7.0 8.0} { puts "x, y: $x, $y" ::Guarded::d-if { {$x < 4.0 && $y > 5.0} {puts
• DimgDemo.tcl
  04 Jun 2002 — milliseconds] for { set j 0 } { $j < 5 } { incr j } { for { set i 0 } { $i < 100 } { incr i} { t fill rgb gray$i update } for { set i 100 } { $i > 0} { incr i -1
• DimgImage.c
  13 Jul 2018 — 0, 0, 0, 0, 0, 0, 255, 0, 0, 255, 0, 0, 0, 255, 255, 0, 255, 0, 0, 0, 255, 0, 255, 0, 255, 255, 0, 0, 255, 255, 255, 0
• DimgMain.c
  04 Jun 2002 — Init(interp); if (status != TCL_OK) { return TCL_ERROR; } vRegisterDimg(); Tcl_EvalFile(interp, "DingDemo.tcl"); return TCL_OK; } int main(int argc, char* argv[]) { Tk_Main(argc, argv, Tcl_AppInit); return 0; }
• DIO
  02 Jan 2014 — reference for version 2.1: [http://tcl.apache.org/rivet/manual2.0/dio_package.html%|%official reference] for version 2.0: [http://svn.apache.org/repos/asf/tcl/rivet/trunk/doc/%|%official
• dir
  10 May 2008 — ifneeded pureTclPackage 1.0 [list source [file join $dir purePkg.tcl]] package ifneeded compiledPackage 1.0 [list load [file join $dir compiledPkg[info sharedlibextension]]] package ifneeded mixedPackage 1.0 "[list source [file
• Directories & Trees
  28 Dec 2013 — Windows 7), and I'm trying to get it to work while using tclkit-8.6.0-win32.exe. It may work if I follow the instructions you've described. It would
• directory notification package in Tcl
  25 Feb 2014 — asp [[Davy's been threatening to put some of this in [winutils].]] Davy did today. [winutils] 0.8. are out. ''That's now a dead link -- MSDN regularly is rearranged such that
• Directory Tree Synchronization
  24 Sep 2018 — do_copy 1 foreach {tof tosize} $to { if {[string equal -nocase $f $tof]} { set do_copy 0 break } } if {$do_copy} { copy.from.to [file join $FROM_DIR $f] [file join $TO
• Disable autorepeat under X11
  21 Aug 2013 — return TCL_ERROR; } int len = 0; char * arg; arg = Tcl_GetString(objv[1]); if ( strcmp(arg, "start") == 0) { ret = toggleDetectableAutorepeat(interp, true); } else if (strcmp(arg, "stop") == 0) { ret = toggleDetectableAutorepeat(interp, false
• Disabling listbox items
  20 Jan 2013 — a b c Head2 d e f} pack [listbox .lb -listvar data -selectmode extended] foreach i {0 4} {listbox'disable .lb $i} bind .lb <<ListboxSelect>> {listbox'disable %W; wm title . [%W curselection
• Discover Hosts on Local Network
  15 Nov 2012 — last) [clock seconds] } } proc emit {} { global MACSPY set firstline [lindex $MACSPY(buf) 0] set hex "\[0-9a-fA-F\]\[0-9a-fA-F\]" if { [regexp "(${hex}:${hex}:${hex}:${hex}:${hex}:${hex}) > (${hex
• Discrete event modelling with coroutines
  22 Nov 2010 — if { [llength $::queue($name)] != 0 } { set hid [lindex $::queue($name) 0] set ::queue($name) [lrange $::queue($name) 1 end] set ::events [linsert $::events 0 [list $hid acquire 0.0]] } puts "Released $amount
• Discuss: wikignomes
  01 Sep 2013 — And to preempt the counter-argument: In theory you could move that content to an 8.0 performance tips section or something similiar, but in practice you're still altering someone else
• disjointlistbox
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/disjointlistbox.html and http://purl.org/tcl/home/man/iwidgets3.0/disjointlistbox.n.html ---- [Category Command], a part of [incr Widgets]
• dislocate
  05 May 2010 — line needs to have your PATH to expect) #!expect puts {Content-type: text/html } log_user 0 # Add expect to PATH, for use by dislocate set env(PATH) "$env(PATH):YOUR_PATH
• Display a graph in a BWidget Tree
  25 Mar 2014 — orient horizontal grid .tree .ysb -sticky nsew grid .xsb -sticky ew grid rowconfig . 0 -weight 1 grid columnconfig . 0 -weight 1 set circuit [struct::graph] foreach node [list i ii iii iv
• Displaying a table of values with Gnocl table, eventBox and label widgets
  20 Aug 2018 — len.0 / $cols] set ::tmp($table) "" set ::tmp($table,bgclr) $bgclr set ::tmp($table,fgclr) $fgclr set k 0 for {set i 0} { $i < $rows} { incr i } { for {set j 0} { $j
• Displaying Apache Rivet Runtime Info
  17 May 2015 — lTV5x07/g/wMuzihEQ7Yt3gAAAABJRU5ErkJggg==" alt="home.png" /></H1> } puts { <H3>Server Configuration</H3> } puts { <p> <table cellspacing=0> </tr> <tr><th>Configuration</th><th>Value</th></tr> } array set http_server_array [ ::rivet
• Displaying tables
  13 Nov 2014 — Tk proc table {w content args} { frame $w -bg black set r 0 foreach row $content { set fields {} set c 0 foreach col $row { lappend fields [label $w.$r/$c -text $col
• Displaying Tree Hierarchy with Incremental Node Numbering
  18 May 2018 — path {separator .}} { foreach n [split [lindex $path 0]] { if { [incr n] < 10 } {set pad 0} append res "$pad$n$separator" } return [string range $res 0 end-1] } #--------------- # Create tree displaying heirarchy based
• Dissecting a scrollbar
  01 Aug 2012 — last [expr {$first +$minsize}] if {$last > 1.0} { set first [expr {1.0 -$minsize}] set last 1.0 if {$first < 0.0} {set first 0.0} } } $sb set $first $last } If you
• Distributed computation
  17 Sep 2018 — is a problem! # ::comm::comm config -local 0 set id $server set channel($id) [::comm::comm connect $server] } } if { [llength $args] > 0 } { if { [lindex $args 0] == "-poolsize" } { SetPoolSize $id [lindex $args 1
• distributed in core database
  10 Jul 2011 — comment' field per file: ====== open_text /tmp/filelist.txt foreach i [split [.tt.t get 0.0 end] \n] { lappend dbvar [list [list file $i] [list comments {} ] ] } ====== In one of my example
• distributed linked bwise
  02 Sep 2015 — 82.0 124.0 122.0 154.0 -activedash {} -activefill {} -activeoutline {} -activeoutlinestipple {} -activestipple {} -activewidth 0.0 -dash {} -dashoffset 0 -disableddash {} -disabledfill {} -disabledoutline {} -disabledoutlinestipple {} -disabledstipple {} -disabledwidth 0 -fill yellow -offset 0,0 -outline
• Division into Parts by Multiple Ratios and eTCL demo example calculator, numerical analysis
  10 Mar 2017 — 0 4.0 0.0 84. 7.0 12.0} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 120.0 1.0 2.0 3.0 0.0 120.0 6.0
• dllfix
  22 Apr 2013 — copied into env(temp) # proc ::dllfix::cleanup {} { variable dlls variable dllpath # remove .. file delete $dllpath # and empty the list set dlls {} } package provide dllfix [lindex {Revision: 0.1} 1] ====== <<categories>>Category Windows
• dlopen extension
  20 Mar 2017 — or Windows systems. It's been tested on Linux, and MS-Windows 95 with VC++ 5.0. The extension is free and available for download at http://www.noucorp.com/Tcl/utilities
• DND support
  13 Dec 2002 — libs/tkstep4.2.html Description: Tk 8.x extension/patches to support tkstep's DND 1.0. Contact also has been looking at XDND. Updated: 11/1998 Contact: mailto:shafferd@ast.lmco
• DNS
  11 May 2016 — upvar 0 $token state # setup the timeout if {$state(-timeout) > 0} { set state(after) [after $state(-timeout) \ [list [namespace origin reset] \ $token timeout\ "operation timed out"]] } if {[llength [package provide ceptcl]] > 0
• DNS Library Revisited
  04 Jul 2011 — set res [catch "exec nslookup 127.0.0.1" lkup] if { $res == 0 } { set l [split $lkup] set nl "" foreach e $l { if { [string length $e] > 0 } { lappend nl $e } } set hostname
• dns_auditer
  29 Jul 2012 — foreach row $items { if {[llength $row] < 2 } { continue } #puts "row:: $row\n" set owner [lindex $row 0] set item [lindex $row 1] set action [lindex $row 2] set result [lindex $row 3
• do...until in Tcl
  20 Jun 2014 — code 1 {Error: do script ?until? expression} } } set ret [catch {uplevel $script} result copts] switch $ret { 0 - 4 {} 3 return default { return -options [dict replace $copts -level 2] $result } } set ret [catch
• do..while
  06 Sep 2016 — aux 0, stkDepth 1, code/src 0.00 Exception ranges 1, depth 1: 0: level 0, loop, pc 2-14, continue 16, break 22 Commands 2: 1: pc 0-23, src 0
• Docking framework
  21 Aug 2018 — side to the cursor set side 1 set rdist 1e6 foreach {x0 y0} {0 0 0 0 $w 0 0 $h} a {w n e s} { set dist [expr abs($x-$x0
• docstring
  28 Sep 2018 — we run out of them for {set i 0} {$i < [llength $_procBody]} {incr i} { set _line [lindex $_procBody $i] if {[regexp {^\s*#.*} $_line] == 0} {break} append _procDoc "$_line\n" } # remove trailing line
• doctools
  27 Jan 2016 — example_begin] set solution [lb]::math::optimize::solveLinearProgram \ { { 1.0 1.0 1.0 } { 2.0 5.0 10.0 } } \ { 3.0 2.0 }[rb] [example_end] Note, that a constraint like
• Documentation and Demos for Tcl/Tk 8.5
  01 Sep 2013 — polishing of the documentation and demos done by the time 8.5 got to 8.5.0. In particular: * Most manual pages now have at least one example (widgets are the exception
• Documenting Tcl's warning/error messages
  09 Mar 2011 — be "{command} {DefaultEncodingDir} sigaction: {posixerror" alarm: {posixerror" warning: sigaction SA_RESTART not support on this platformo "0" "1" XtTest: wrong # arguments: should be "{command} option ... " bad option "{option}": must be done or
• Does Tcl still fit on 16-bit microcontrollers?
  17 Apr 2009 — size, as of spring 2009, appears to be around 80 kB; * Tcl as recent as 8.0 might have supported old Windows [[these are matters of fact that can be researched and
• Doing arithmetic on currency
  17 Nov 2013 — to rewrite the int function so it be completely robust? > > tcl> expr int(8299.46 * 1000.0) > result => 8299459 ---- [beernutmark] 2011-05-02 The reason for this is that computers don't
• Doing things
  07 Jan 2012 — el==""} { rename $name "" set names [info body thing:names] set where [lsearch $names $name] if {$where>0} { proc thing:names {} [lreplace $names $where $where] } } } ====== The list of things is maintained in a
• Doing things in namespaces
  06 Sep 2016 — list properties if {$name==""} {return [::thing::Info $self vars]} switch [llength $args] { 0 {} 1 {::set ::thing::${self}::$name [lindex $args 0]} default {error "Usage: $self set ?name ?value??"} } if [catch {::thing::dispatch
• Domino
  09 Jul 2011 — pattern { 0 {0 0 0 0 0 0 0} 1 {0 0 0 1 0 0 0} 2 {1 0 0 0 0 0 1} 3 {1 0 0 1 0 0
• DoS
  27 Feb 2016 — puts $chan $res set cmd($chan) "" } } set maxnum 100 set maxtim 1000 set next_loop_id 0 set server [socket -server connect 4711] vwait forever close $server exit ====== ---- [VI] 2003-10-22
• Dossy Shiobara
  27 Aug 2012 — a faster implementation: ====== proc _modexp_bignum {m e n} { set p [fromstr 1] set zero [fromstr 0] set one [fromstr 1] set two [fromstr 2] while {[gt $e $zero]} { if {[eq [mod
• Double Buffering
  23 Jul 2012 — for {set i 0} {$i < 100} {incr i} { set dest_x [expr {int (rand()*620)}] set dest_y [expr {int (rand()*420)}] set sprite [expr {int (rand()* 2) == 0 ? $::sprite_1:$::sprite
• doubleclick
  17 Apr 2016 — findClosingBrace # # contents of pkgIndex.tcl: # package ifneeded doubleclick 0.4 [list source [file join $dir doubleclick.tcl]] # package require Tk package provide doubleclick 0.4 bind Text <Double-1> { if {[regexp \\w
• downlevel
  21 Nov 2013 — info level]; # 1 uplevel 1 { lappend a [info level]; # 0 downlevel { lappend a [info level]; # 1 uplevel #0 { lappend a [info level]; # 0 downlevel { lappend a [info level]; # 1 } } } } return $a } deepdown2
• Download Accelerator
  06 Mar 2017 — urlBasename $url]]] if { [llength $resume] > 0 } { set rs 0 foreach i $resume { incr rs [file size $i] } tsv::set dap resumeSize $rs } else { tsv::set dap resumeSize 0 } set nthreads [fixNthreads $url
• Downloading a File over HTTP
  27 Jul 2008 — 5 package require http 2 proc filegrab url { set token [http::geturl $url -validate 1] upvar #0 $token head set cd [dict get $head(meta) Content-Disposition] if {![regexp {^attachment; filename=([^ /]+)} $cd
• Downloading pictures from Flickr
  01 Feb 2016 — Prg(Author) - $Prg(Contact)" Ok set Opt(100x75) 0 set Opt(All_Pages) 0 set Opt(Get_from_Web) 1 ShowOpt ;## set Data(0.Album) "Flickr" pack .scr1 -side right -fill y
• Downloading your utility usage from Pacific Gas and Electric using TCL
  22 Nov 2011 — datadir /usr/backup/power set user USER set pass PASSWORD if {$argc > 0} { set date [clock scan [lindex $argv 0]] } else { set date [clock seconds] } set month [clock format $date -format "%Y
• doxygen+tcl
  27 Feb 2013 — a example using doxygen style comments: ====== ## \file tclexample.tcl # File documentation. #\verbatim # Startup code:\ exec tclsh "$0" "$@" #\endverbatim ## Documented namespace \c ns . # The code is inserted here: #\code namespace eval ns { ## Documented
• dqkit
  15 Sep 2013 — main::[lindex $argv 0] [lrange $argv 1 end]" invoked from within "if {[llength $argv]>0} { main::[lindex $argv 0] [lrange $argv 1 end] exit 0 } else { main::build {} exit 0 }" (file "gen
• Drag
  10 Dec 2015 — 10 10 -anchor nw -text "Hello world!" .c create line {-100 0 100 0} -arrow last .c create line {0 -100 0 100} -arrow last bind .c <ButtonPress-1> {%W scan mark
• Drag and Drop
  06 Jan 2016 — global DAD_content [lindex $args 0] insert end $DAD_content } # Purpose : enables Drag-And-Drop controls of any listbox widget proc place_listbox_controls_DAD {w {cutOrig 0} {procName "place_listbox_proccess
• Drag and Drop with tablelist
  24 Feb 2018 — delete 0 end $dropTable delete 0 end catch { $dragTable deletecolumns 0 end } catch { $dropTable deletecolumns 0 end } # Generate column titles. for { set c 0 } { $c < $numCols } { incr c } { $dragTable insertcolumns end 0
• Drag-N-Drop Example
  02 Sep 2013 — set _dragging 0 } start { set w [lindex $args 0] set _dragging 1 set _lastwidget $w set _dragwidget $w $w configure -cursor gobbler } motion { if {!$_dragging} {return} set x [lindex $args 0] set
• Dragon Curve
  29 Apr 2018 — foreach leg [MakeDragon $n] { set dir $turn($dir,$leg) lappend turns $dir } set x 0 ; set y 0 set coords [list $x $y] foreach leg $turns { if {$leg == "E"} { incr x } elseif
• Drain The Event Queue
  28 May 2012 — break} bind all <Expose> {+ bindtags %W [linsert [bindtags %W] 0 Nascent] after 300 { if {[winfo exists %W]} { bindtags %W [lreplace [bindtags %W] 0 0] } } } ====== ---- See also [tk_getOpenFile], [tk_getSaveFile], and [Bind
• Drake Intelligent Life Equation Slot Calculator Example
  09 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff " .frame.entry7 insert 0
• Draw a table on a canvas
  30 Apr 2016 — item [$canvas create text 0 0 -text "MWijk" -font $table($canvas,-textfont)] set bbox [$canvas bbox $item] set charwidth [expr {([lindex $bbox 2]-[lindex $bbox 0])/5.0}] set rowheight [expr {[lindex
• Drawbacks of Tcl's Regexps
  22 May 2014 — a+)+?)(a+) then the priorities of the `a`s, from left to right, would be 1, 0, and 2 respectively (2 being the highest). Now, this may not be how Tcl treats
• Drawer Example
  13 Dec 2017 — x.p sashpos 0] incr sp $inc if { ($inc < 0 && $sp < $limit) || ($inc > 0 && $sp > $limit) } { set sp $limit .x.p sashpos 0 $sp return } .x.p sashpos 0 $sp after 15
• Drawing a wind rose
  22 Oct 2009 — w,cumulative_radius) 0.0 } set data_series($w,start_angle) [expr {90.0 - 360.0/(4.0*$sectors)}] set data_series($w,d_angle) [expr {360.0/(2.0*$sectors)}] set
• Drawing geometrical objects
  09 May 2011 — point as the centre. # set P1 [point 0 0] set P2 [point 1 1] set P3 [point 1 0.5] set P4 [point 0.1 0.5] set L1 [line $P1 $P2
• Drawing Gradients on a Canvas
  21 Mar 2016 — r2.0 $r1] set gRange [- $g2.0 $g1] set bRange [- $b2.0 $b1] if {$type == "x"} { set rRatio [/ $rRange $width] set gRatio [/ $gRange $width] set bRatio [/ $bRange $width] for {set x 0
• Drawing lines in photo images
  20 Jul 2011 — package require Tk pack [canvas .c] set im [image create photo] $im put white -to 0 0 100 100 .c create image 5 5 -image $im -anchor nw photo'line $im 10
• Drawing rounded rectangles
  08 May 2011 — Rad/2.0)] $T [expr $width-($Rad/2.0)] $height -fill $colour -outline $colour -tag $tag $w create rectangle $L [expr $T + ($Rad/2.0)] $width [expr $height-($Rad/2.0)] -fill
• DRH
  30 Aug 2011 — SQLite], a very popular zero-configuration database system. Articles: * @technology.guardian.co.uk on [SQLite] [http://technology.guardian.co.uk/weekly/story/0,,2107239,00.html?gusrc=rss&feed=20] <<categories>> Person
• Drive Disconnect/Connect Tool
  14 Mar 2018 — wm protocol . WM_DELETE_WINDOW {exit} wm title . "Windows Drives Disconnect/Reconnect Tool" wm resizable . 1 0 button .quickSave -text "Quick Save/Disconnect" -command {QuickSave} button .quickLoad -text "Quick Load/Restore" -command
• Drive OpenOffice Calc with tcluno
  08 Aug 2011 — spreadsheet [$desktop loadComponentFromURL "private:factory/scalc" \ "_blank" 0 $filterSequence ] # erste Seite finden # find the first page set sheets [$spreadsheet getSheets] set sheet [$sheets getByIndex 0] # and set the name to Zufallszahlen (random
• Driving ExifTool from Tcl
  01 Jun 2014 — status [catch { gets $et line } result] if { $status != 0 } { # Error on the channel puts "error reading $et: $result" set ::DONE 2 } elseif { $result >= 0 } { # Successfully read the channel, so tell the user
• Driving tclsh with Expect
  23 Mar 2013 — require Expect proc tclprompt {} { proc [lindex [info level 0] 0] {} { return {\n%\s$} } return {%\s*$} } set timeout -1 set fh [open [lindex $argv 0]] set script [split [read $fh][close $fh] \n
• Dropbox
  20 Sep 2018 — described in the documentation referenced below. *** References *** * https://www.dropbox.com/developers/core/docs Documentation of the Dropbox Core API. * http://tools.ietf.org/html/rfc6749 The OAuth 2.0 Authorization Framework
• Dropdown windows
  26 Sep 2013 — 1 0 0 0} {0 1 0 0}} {{1 0 0 0} {1 0 -1 0}}} } right.vertical { set m {{{0 1 -1 0} {0 1 0 0}} {{0 1 -1 0
• Droplets
  04 Jul 2011 — the file into, say, a console windows. ====== ::if 0 { start wish "%~f0" %* & exit } wm wi . if {$argc > 0} { clipboard clear set f [lindex $argv 0] clipboard append $f after 30000 exit tk
• DruMa
  13 Aug 2018 — Found at https://chiselapp.com/user/stwo/repository/druma [Stu] 2018-08-13 Created page. Version 0.1. A DruMa is an object that augments an AitCS (Array in the Command's
• DSL
  10 Sep 2012 — to at least the following: * [domain-specific language] * Digital Subscriber Line [http://searchnetworking.techtarget.com/sDefinition/0,,sid7_gci213915,00.html] * Damn Small Linux [http://www.damnsmalllinux.org] (a single under-50MB
• dtp
  26 Jan 2016 — trail''' ''n'' The argument ''n'' has to be an integer number greater than '''0'''. The value defaults to 0. If specified the last ''n'' elements of an input path are taken as
• du
  25 Jan 2015 — dir ","] 0] foreach Dir $dirs { set Dir [lindex [split $Dir ","] 0] if { [string match $dir/* $Dir]} { incr ary($dir,bytes) $ary($Dir,bytes) } } } } foreach dir $dirs { set name [lindex [split $dir ","] 0
• Dual or Multiple Monitors
  24 May 2017 — set screenarea 0 while { [eof $scre] == 0 } { set zeile [gets $scre] if {[lsearch $zeile "*x*+*+*"] > -1} { set screenr [lindex $zeile [lsearch $zeile "*x*+*+*"]] set screenx_$i [lindex [split $screenr "x+"] 0] set
• duck typing
  28 Jul 2018 — x = x[0] return x reduce(lambda x, y: x + y, operands) # cannot concatenate 'str' and 'int' objects reduce(lambda x, y: int(collapse(x)) + int(collapse(y)), operands, 0) # 6 reduce
• Duft
  17 Jul 2018 — Tcl interface. [Stu] 2018-07-16 Version 0.4. New -closeonexec option. [Stu] 2015-04-28 Just a mention that Duft is now at 0.3 with various fixes, improvements and features
• dumpcanvas
  06 Jan 2013 — dumpcanvas''' Where: http://www.cs.manchester.ac.uk/~fellowsd/tcl/dumpcanv.tcl Description: A [Tk] 4.0 procedure to dump and restore a [canvas]. Updated: 04/1998 Contact: mailto:donal.k.fellows
• Dumping interpreter state
  20 Sep 2017 — info variable $var]] foreach trace $traces { append tmp "trace add variable [list $var] [list [lindex $trace 0]] [list [lindex $trace 1]]\n" } } append tmp "\}" return $tmp } proc capture_procs {interp {namespace {}}} { set
• dupfind
  23 Mar 2017 — array set f {} set v 0 set d 0 #set chars {\\ | / - } #set charIx -1 set numFiles 0 set exe [info nameofexe] set dirIx 0 set maxDupCount 0 set maxDupFile "" #******************************************************************************* puts {} puts "Ordner
• Duro a relational database library
  21 Nov 2017 — published under the terms of the GNU General Public License. The current release of Duro is 0.12, released 2012-10-31. Some features: * Tuples and tables (relvars). * Relational algebra: RENAME, select
• DustMote
  01 Oct 2017 — port2} { fileevent $socketChannel readable [list readIt $socketChannel] } proc readIt {socketChannel} { global root default fconfigure $socketChannel -blocking 0 set gotLine [gets $socketChannel] if { [fblocked $socketChannel] } then {return} fileevent $socketChannel readable "" set shortName "/" regexp
• DustMote with Snit
  12 Oct 2018 — optionally [tls%|%TclTLS] 1.6.7 or newer for [HTTPS]. | | Updated | 2018-10-12 (v0.15.0) | | License | Public domain (like DustMote itself) | DustMote-Snit is developed as part of [Tclssg]. It
• Dynamic call graph
  15 Mar 2012 — report {} { if [catch {info level -2} res] {set res ""} set ::callgraph([lindex $res 0],[lindex [info level -1] 0]) "" } ====== #--- Testing proc a {} {b; c } proc b args {d; e} proc c {} {b
• Dynamic Debugger
  14 Nov 2016 — debug-0.2.tar.gz] is a Tk interacter for Don Libes' Tcl Debug. * ftp://ftp.tcl.tk/pub/tcl/mirror/ftp2.sco.com/pub/Skunk96/src/Tcl/tdebug-1.0.README
• Dynamic Images For Tk
  06 Feb 2017 — to the ttk widgets. # package require Tk 8.6 package require imgtools 0.3 namespace eval ::dift { variable version 0.2 # # List of all widget creation commands, that we consider variable modWidgets
• Dynamic variable scoping
  06 Nov 2015 — in the caller's body - so it it is the same result as to use upvar 0 for every variable in c scope: ====== proc dynascope args { set here [info level] foreach arg
• Dynamically adding methods to a Snit object
  09 Apr 2015 — snit::type methodenv { variable methods [dict create] method define {name params body} { set params [linsert $params 0 self] set f [list $params $body] dict set methods $name $f return $name } method apply
• Dynix2RSS
  26 Nov 2004 — 1.0\" encoding=\"ISO-8859-1\" standalone=\"yes\"?>" puts -nonewline "<!DOCTYPE rss PUBLIC " puts -nonewline "\"-//Netscape Communications//DTD RSS 0.91//EN\" " puts "\"http://my.netscape.com/publish/formats/rss-0.91
• Dyso object system
  26 Dec 2011 — methods defined in the class # Everything may change at runtime $t class setmethod clean {} { set toasted 0 } $t class delmethod clean ;# delete the method $t class args foobar ;# get arguments of method
• e
  18 May 2012 — Tcl: ====== proc calce {} { list a set b 3301; set c 0; set f 0 for {set e [expr $b-1]} {$e>0} {incr e -1} { lappend a 1 } ;# fill array with 1
• e.g.
  08 Sep 2013 — if {[info exists argv0]&&[file tail [info script]] eq [file tail $argv0]} { set Ntest 0; set Nfail 0 proc e.g. {cmd -> expected} { incr ::Ntest catch {uplevel 1 $cmd} res if {$res
• e4graph
  16 Feb 2017 — 1.0 to the release version with the current API and then immediately abandon it. New development will go into e4Graph 2.0 which will be finished much faster than 1.0
• e: a packaged tiny editor for eTcl
  21 Oct 2008 — m File Eval {eval [$::pocketeditor::g(mainwin).t get 1.0 end]} m+ $m File Clear {$::pocketeditor::g(mainwin).t delete 1.0 end} m+ $m File ok {console eval {raise .; focus
• Eagle
  01 Oct 2018 — object invoke System.Buffer BlockCopy [$s1 ToCharArray] 0 $b1 0 [$b1 Length]} } err; set err #% could not convert method #3 "System.Buffer.BlockCopy" argument #0 "src" with value "q q q { } w
• Eagle: Re-implementing Tcl in C#
  07 Jun 2015 — 0 RTM or higher compiler. Ran a demo eagle console. "#show" special command to show output helpful for debugging % set x [object create -alias System.Int32] System#Int32#216 % $x ToString 0
• EAN-13 checksum
  23 May 2018 — makes it for you: proc checksum {first12digits} { set total 0 for {set i 0} {$i < 12} {incr i} { set multiplicator [expr ($i % 2 == 0) ? 1 : 3] incr total [expr [string index $first12digits
• Easy Ctext Commenting
  08 Jan 2013 — 0\] set ::lineSelected \[$wid.l get \$lineSelected.0 \$lineSelected.end\] if {\$::oLs != \$::lineSelected} { set ::oLs \$::lineSelected if {\[$wid get \$::oLs.0 \$::oLs.1\] != \"\#\"} { $wid insert \$::oLs.0 \# } else { $wid delete \$::oLs.0
• Easy input of Pinyin
  13 Jan 2014 — if [in {a e i o u} [string index $text end-1]] { $w delete 0 end $w insert 0 [string map { a1 \u101 a2 \ue1 a3 \u103 a4 \ue0 e1 \u113 e2
• Easy input of Romanised Sanskrit
  03 Jan 2016 — elements. So the long semi-vowel R would be input as "r <Alt>. <Alt>-". # ------------------------------------------------------------- # skt_input_0.1b.tcl # Written by William J Giddings, 2005 # ------------------------------------------------------------- # Usage: # skt_input <widget> # # Purpose: # -------- # To provide
• Easy User Configurable Menus
  05 Oct 2012 — menu .] 1] set end [llength $list] while {[set list [lreplace $list 0 $num]] != ""} { set num 0 switch -exact -- [lindex $list 0] { command { $menu add command -label [lindex $list 1] -command [lindex $list
• Easyargs -Let proceedure switches set themselves
  17 Dec 2011 — foreach item {up down in out} { puts "$item [set $item]" } } easyargs red green -up 0 -down 1 -in 0 -out 1 ====== [WJG] (16/12/11) I thought that I'd revisit this
• EasySocket
  03 Mar 2015 — requiring that the user know all the details of [socket] and [fileevent] commands. Currently at version 0.2. Peter Tutko (see second Contact) has written [itcl] classes for EasySocket and was working
• EasyTextPrint
  20 Feb 2016 — 7####+### # function chr(c) \ { return sprintf( "%c", c+0 ); # make c numeric by adding 0 } BEGIN { Q1 = "'"; Q2 = "\""; # Quotes A = "\\&"; LineNr = 0; Skip = 0 Title = "EasyTextPrint" Cmd = "Hdr"; H = 1; Prev = "H
• easywin - simplified toplevels
  01 Dec 2015 — GetAttribute option -toolwindow -default 0 -configuremethod ChangeAttribute \ -cgetmethod GetAttribute option -topmost -default 0 -configuremethod ChangeAttribute \ -cgetmethod GetAttribute option -disabled -default 0 -configuremethod ChangeAttribute \ -cgetmethod GetAttribute option -fullscreen -default 0 -configuremethod ChangeAttribute \ -cgetmethod
• Ebay with Tcl
  18 Jan 2008 — is completely free of charge. ''[escargo] 30 Dec 2005'' - This page [http://searchwebservices.techtarget.com/originalContent/0,289142,sid26_gci1059392,00.html?bucket=NEWS] makes it sound like the XML-RPC is
• Echo-free password entry
  25 Mar 2018 — Restore echo mode Or a slightly simpler version using the higher level console API in TWAPI 0.7: puts -nonewline "Enter password: " flush stdout set oldmode [twapi::modify_console_input_mode stdin
• ed2
  18 Jan 2014 — range $s 0 [expr {[string first . $s] - 1}] } proc update.lines w { set start [$w.text index @0,0] set height [winfo height $w.text] $w.lines delete 1.0 end array
• Eddi
  11 Dec 2007 — Tcl, Perl, bash, sh, Matlab, LaTeX, etc.), provides interfaces with make and rcs, etc. Requires Tix with XPM. Currently at version 1.0.1 . Updated: 04/2003 ----- !!!!!! %| [Category Application] | [Category Dev. Tools] |% !!!!!!
• Edit and run a Fortran program
  26 May 2014 — env(PATH) "c:\\mingw\\bin;$env(PATH)" proc runProgram {} { .tout delete 1.0 end set program [.tinp get 1.0 end] set outfile [open "fint.f90" w] puts $outfile $program close $outfile
• edit_val
  31 Jan 2016 — w 0 0 wm title $w "Edit cell" label $w.l -text $string entry $w.e -textvar ::val -width 20 set old $::val button $w.ok -text " OK " -command {set ::done 0
• Editing with different fonts
  05 Oct 2009 — tag add normal insert bind .text <KeyPress> {+insertChar %K} set texttag normal set italic 0 set bold 0 } # insertChar -- # Insert the typed character with the right tag # # Arguments: # char Character to be
• editRecord
  01 Sep 2013 — set oldfocus [focus] set w [toplevel .[clock clicks]] wm resizable $w 1 0 wm title $w $title set n 0 foreach h $headers f $fields { label $w.h$n -text $h -anchor
• editwindow
  07 Dec 2009 — value eq "+" || [string length $value] == 0} { set result 1 } elseif {[string is double $value]} { set result [expr {$value > 0.0 && $value < 30.0}] } else { set result 0 } return $result } set validatecommand {validateMynum
• edprocs
  15 Aug 2013 — for windows is notepad instead of vi set newlines { if {[string compare $::tcl_platform(platform) "windows"] == 0} { set editor [file join $env(SystemRoot) notepad.exe] } else { set editor vi } } # do patch, insert
• Edsger Dijkstra
  27 Aug 2012 — Eulogy [http://developers.slashdot.org/comments.pl?sid=37597&threshold=1&commentsort=0&tid=99&mode=thread&cid=4029518] and [http://www.lwn.net/Articles/6954/] Goto paper [http://www.acm.org
• Efftcl
  06 Oct 2012 — Tcl and Tk] <<br>> <<br>> | What:| Efftcl| | Where:| http://www.awl.com/cseng/titles/0-201-63474-0/efftcl-ex.tar.Z | | Description:| This set of widgets comes from the Effective Tcl
• EFX Content Management System
  13 Mar 2013 — source XML that generated all of the blog pages: ====== <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xml:lang
• Eggdrop
  27 Aug 2017 — AI script to allow them to be better channel members on IRC. Currently at version 0.1.0 . Updated: 07/2008 Contact: See web site What: bnews Where: http://freshmeat.net/projects
• EGR TIGER
  19 Nov 2007 — is a tool for interpretative graphics programming, providing a one to one binding for OpenGL 1.0. Updated: 04/1999 Contact: mailto:info@easterngraphics.com '''The link above is broken. This page
• Eiffel
  01 Jul 2014 — org/archive/bergmeyer/tcl-eiffel.htm Description: A GUI extension to SmallEiffel 0.80. Based on Tcl/Tk 8.0. Works on Linux and on Windows 95 with CygWin32. Updated: 10/1998
• Eigenvalues of a matrix
  01 Sep 2013 — largest eigenvalue is $ev" ====== Result: Eigenvector of {1 1 0} {0 1 2} {1 0 1} is approx 0.557506665977 0.702414383919 0.442493334025, largest eigenvalue is 2.2599210499 Even though the
• Einfach Tcl
  26 Jan 2016 — mit N-1 (N als Laenge der Liste), da String- und Listenindizes ab 0 zaehlen, und endet mit 0. Die entsprechenden Listenelemente werden mit [lindex] geholt und mit [lappend] an die Ergebnisliste
• Electric Cloud, Inc.
  07 Jun 2012 — electric-cloud.com/ See http://www.mayfield.com/our_companies/search.asp?searchwords=electric+cloud&thesector=0 for a brief mention of the company. (In brief: "electric cloud Enterprise-class infrastructure for
• Electronic Failure Rate FITS and eTCL Slot Calculator Demo Example
  07 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• Electronics Burn-in Acceleration and eTCL Slot Calculator Demo Example
  09 Mar 2017 — 150.0 60.0 150.0 0.4 30.0 30.0 150. 2929.} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 200.0 60.0 180.0 0.4 30.0
• Elegance vs. performance
  28 Sep 2018 — width 600 -height 500] -expand 1 .c create line 0 500 0 500 -fill red -tag sum1 .c create line 0 500 0 500 -fill blue -tag sum2 for {set i 1
• Element-wise array operations
  06 Jan 2012 — value" } if { [llength $args] == 1 } { set v [lindex $args 0] } else { set v [eval mkArray $args] } set result {} set i $ndim while { $i > 0 } { lappend result $v incr i -1 } return $result
• ELF
  22 Nov 2016 — commons $name] != -1} { seek $chan -12 current puts -nonewline $chan \0\0\0\0 seek $chan 6 current puts -nonewline $chan \0\0 } } # Close the ELF file. close $chan } # First two arguments
• elisp
  23 Aug 2008 — all have different colors. Also improved Perl support and added VHDL support Currently at version 2.0 . Updated: 05/2002 Contact: mailto:elf@ee.ryerson.ca (Luis Fernandes) What: Tk Emacs widget
• Ellipsis
  29 Nov 2011 — ellipsis where necessary: ====== proc string'limit {str length} { expr {[string length $str]>$length? "[string range $str 0 [incr length -4]]..." : $str} } % string'limit hello 10 hello string'limit "hello long string" 10
• Emacs
  19 Jun 2018 — bin/sh #-*- mode: Tcl;time-stamp-start:"TimeStamp[ ]+\\\\?[\"<]+";-*- # the next line restarts using wish \ exec wish $0 -- $@ set TimeStamp "2005-11-24 18:53:03 poser" ====== Note that the time-stamp must
• emacs mode enhancement
  01 Sep 2013 — eval-region somehow ineffective. set temp {0 0 0 0 0 0 0 0 0 0} => 0 0 0 0 0 0 0 0 0 0 This 2 elisp-functions do eval
• emacs package to insert templated code interactively
  20 Nov 2007 — expectf" . "set ~~{spawn_id} $spawn_id; set bad 0; set done 0; exp_internal 0; \# set to one for extensive debug log_user 0; \# set to one to watch action expect { $>-i
• email pretty printer
  12 Sep 2012 — sh # \ exec tclsh $0 ${1+"$@"} # Fun little mail message formatting tool. # Relies on a2ps. set data [ read stdin ] set output <html> set sig 0 set header 1 set recipients 0 set hpat
• Embedding Glade UI Files into Tcl/Gnocl Scripts
  24 Jan 2013 — next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl #--------------- # Create a simple layout, a widget with a button. #--------------- set gladeBuffer {<?xml version="1.0"?> <glade-interface> <requires-version lib="gtk
• EmberWeb
  06 Feb 2016 — a small example: ====== package require emberweb 1.0 package require Tcl 8.5 proc forward {soc parms} { puts "in Forward" puts $soc "HTTP/1.0 [::emberweb::http_return 200]" puts $soc "Connection
• Embossing an image
  23 Jun 2010 — c:data] [expr {$y + 0}] [expr {$x - 1}]] set c11 [lindex [set $c:data] [expr {$y + 0}] [expr {$x - 0}]] set c12 [lindex [set $c:data] [expr {$y + 0}] [expr {$x + 1
• emoticons
  16 Nov 2012 — glasses :-P :^P :P - smiley with tongue, 2 (: (^: (-: - upside down ;-) ;^) ;) - animated wink :-| :^} :8} :} - blush |O| |o| |0| - gone to eat zz zzz zzZ zZZ ZZZ ZZ - gone to sleep LP |_P - A
• Empty Lines
  24 Aug 2018 — 3}} { if {![string is integer -strict $lines]} { error "lines should be an integer ($lines)" } if {$lines < 0} { error "lines cannot be negaative ($lines)" } puts -nonewline [string repeat \n $lines] } ====== ---- As always: comments
• Emu
  29 May 2008 — and playback and http://libassp.sourceforge.net for signal processing. The newest Version of EMU (2.0) was released in May 2008. [padgraph] and [emu_graph] were developed for Emu but are
• Enabling mousebutton sensitivity to a ctext widget's highlighted texts
  04 Aug 2012 — 1>] ctext::addHighlightClass .t commands orange [list foreach proc if set catch] .t fastinsert end [info body ctext_binding4Tag] .t highlight 1.0 end ctext_binding4Tag .t {bindings commands} ====== <<categories>> Example | Widget
• encoding
  14 Mar 2015 — this example needs to be repaired 1 % encodable [greeklish Aqhnai] 0 % encodable [greeklish Aqhnai] iso8859-7 1 % encodable äöü iso8859-7 0 See also: * Tcl RFE #535705: ''Tcl interface to stop on
• encoding convertto
  02 Oct 2011 — conversions - according to its name - with no desired result. ---- Example of an encoding with "non-null" 0 character: [GSM 03.38 encoding] <<discussion>> ---- **See also** * [encoding] * [encoding convertfrom] * [encoding names] * [encoding system
• Encoding table generator
  20 Aug 2017 — lindex $argv 0] .c create text 30 680 -text "Encoding: $encoding" -anchor w set font {Courier 16 bold} for {set row 0} {$row < 16} {incr row} { for {set col 0} {$col < 16
• Encoding Translations and i18n
  25 Jan 2013 — encoding convertfrom utf-8 $hextetarray] # proc {utf8_to_unicode} {hextetarray {uescape 0}} { set rv {} set string [split $hextetarray {}] for {set x 0} {$x < [llength $hextetarray]} {incr x} { scan [lindex $hextetarray $x] %c
• encryption
  28 Dec 2017 — the second table we ignore the key scheduling phase and only time core data encryption. DES(0.8) DES 3DES AES-128 AES-192 AES-256 Blowfish RC4 2967 505 1039 874
• Encryption and Decryption
  25 Jul 2012 — enc_idx 0} } return $crypt_str } proc {decrypt} {str} { # global enc_string global enc_idx set crypt_str "" set strlen [string length $str] if {$strlen == 0} {return} for {set testx 0} {$testx
• Endorser
  21 Jan 2012 — llength $p0l] > 0) && ([llength $p1al] > 0)} { set idx [expr {int(rand() * $p1alc)}] #set sntc "[join $p0l {, }] [lindex $p1al $idx]" foreach {prefix word} [end_getana [lindex $p0l 0]] break if {($sentence == 0) && ($firstname
• English plurals
  28 Sep 2018 — word 0 end-4]x} {[sc]hes$} - {[soxz]es$} {return [string range $word 0 end-2]} {[bcdfghjklmnprstvwxz]ies$} {return [string range $word 0 end-3]y} {children$} {return [string range $word 0
• Enhanced Expression Syntax
  28 Sep 2018 — expr \{$m\}\]] # puts "DEBUG: set $var \[expr \{$m\}\] <== $value" } return $value } # Sample usages # Pythagoras lassign {0 0 3 4} x0 y0 x1 y1 math { dx = ($x1 - $x0); dy = ($y1 - $y0); len = hypot
• Enhancing BWidget
  15 Sep 2005 — bind $evt {+ ComboBox::_add %W [%W cget -text]} } } chooser { set values [$w cget -values] set width 0 foreach i $values { set sl [string length $i] if {$sl > $width} {set width $sl} } set
• Enhancing Satellite Weather Images
  28 Oct 2012 — 240 #ffffff 254 } # compute new colors for {set y 0} {$y < $height} {incr y} { #puts "row=$y" set row {} for {set x 0} {$x < $width} {incr x} { # save transparency lappend trans $x
• Enigma
  25 Jul 2012 — 0.0 end .output insert 0.0 [enigma::crypt $m [.input get 0.0 end]] set ::posat [enigma::get $m position] enigma::destroy $m if { [.input edit modified] } { .input edit modified 0
• Enlightenment
  20 Sep 2015 — has three components: * Enlightenment 16 (also labelled 0.16, DR 16): a mature window manager for the X11 graphics system * Enlightenment 17 (also labelled 0.17, DR 17): a work in progress
• Ensemble
  13 May 2015 — a command counter, which may set, get or increment a number: ====== namespace eval ::counter { variable counter 0 namespace export get set incr namespace ensemble create } proc ::counter::get {} { variable counter return $counter
• ensemble extend
  20 Oct 2016 — samoc]: Has a similar `[https://github.com/samoconnor/oclib.tcl/blob/master/oclib/oc_ensemble-1.0.tm#L17%|%extend_proc]` command. ** A Word of Warning ** Some examples on this page add
• ensemble with parameters
  23 May 2013 — defined through interp alias {} floatdict {} BinaryTreeAssArray {::apply {{a b} {expr {$a<$b ? -1 : $a>$b ? 1 : 0}} ::}} and so on. This is the pattern for code where you know you'll be
• Entering Unicode characters in a widget
  05 Oct 2013 — variable uc_keys if {![info exists uc_keys($widget)]} { return } upvar 0 uc_keys($widget) keys switch -glob -- [string toupper $key] { {[0-9A-F]} { append keys $key if {[string length $keys] >= 4
• entier
  28 Sep 2018 — 256**$::tcl_platform(wordSize)) 0 % expr entier(256**$::tcl_platform(wordSize)) 18446744073709551616 ====== ***Rounding behaviour*** Note that '''entier''' will truncate the decimal part of a number, effectively 'rounding towards 0': ====== % expr entier(-1
• Entities
  14 Mar 2012 — for me :} In place of the $ signs in the string above, it really has (without spaces) & # 0 3 6 ; resp. & # 3 6 ; I put the entitiy for & in place, that way the
• Entity
  01 Jun 2017 — archive.org/web/20030422121316/http://www.entity.cx/ old website: http://entity.evilplan.org/ latest version: 0.7.2 release time: 2001-03-14 contact: m a j o r d o
• entry
  29 Nov 2013 — expr [string map {/ *1.0/} $e]} res; append e " = $res"} ;# RS ====== The [string map] forces floating-point calculation, so people won't be disappointed that 1/2 returns 0 ... See [A little
• Entry Field Processing
  11 Jun 2011 — args 0 1] } f { set fill [lindex $args 1] set args [lreplace $args 0 1] } s { set strict 1 set args [lreplace $args 0 0] } - { set args [lreplace $args 0 0] break
• Entry widget for numeric data
  13 Nov 2016 — if {$options(-variable)!= {}} { upvar #0 $options(-variable) v trace remove variable v write [mymethod SetVal] set options(-variable) {} } } method SetVar {option varname} { $self untrace if {$varname != {} } { upvar #0 $varname v if {![info
• entryfield
  13 Nov 2014 — iwidgets/entryfield.gif] !!!!!! Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/entryfield.html and http://purl.org/tcl/home/man/iwidgets3.0/entryfield.n.html <<categories>> Command | incr Widgets
• envsave.tcl
  14 Jul 2012 — codeForWidget {{win .}} { set class [winfo class $win] set class [string replace $class 0 0 [string tolower [string index $class 0]]] set cfg [$win configure] set result "" if {"$win"!="."} { set result "$class $win
• eof
  27 Sep 2016 — end of file condition occurred during the most recent input operation on ''channelId'' (such as '''[gets]'''), `0` otherwise. ''ChannelId'' must be an identifier for an open channel such as a [Tcl] standard
• eos
  01 Jan 2013 — 58user 0.01system 0:03.69elapsed 97%CPU eos: 1.30user 0.00system 0:01.40elapsed 93%CPU eos1: 0.94user 0.00system 0:01.04elapsed 90%CPU ufo: 0.74user 0
• eos original
  01 Dec 2013 — cmd [lindex [info level 1] 0] return -code error "wrong # args: should be \"$cmd ?objname?\"" } if {$len == 1} { set name [lindex $args 0] if {[string range $name 0 1] ne "::"} { set ns
• epeg
  22 Apr 2017 — aspect preserved -c, --comment=<comment> put a comment in thumbnail -q, --quality=<quality> set image quality (0-100) How about TCL? [tclepeg] is an initial effort to create a loadable '''epeg''' library
• EpubCreator
  31 Aug 2018 — first' -cover Cover.jpg -images <additional Images> -css stylesheet.css -toc (0/1) -html (0/1) -verbose (0/1) -tk (0/1) -output BookName.epub -data (required) List of data files to
• EpubDump
  14 Mar 2014 — href,"_msr_cvi_r") and starts-with(@media-type,"image/")]}] } if {[llength $guess] > 0} { set href [[lindex $guess 0] getAttribute href] set coverName [file join $opf_dir $href] set value "?? $coverName ??" break
• eq
  16 Sep 2013 — be treated as numerical values, so `1 == 1.0` returns true, but `1 eq 1.0` returns false. Example: ====== % expr {"a" eq "b"} 0 % expr {"a" ne "b"} 1 ====== Also comparing text
• Erasure Tolerant Codes
  13 Sep 2014 — excluding 0) # ############################################################ set max_num [get_two_power_dec $poly] if {$num >= $max_num} {return 0} if {$num == 1} {return 0} incr max_num -1 if {$max_num <= 0} {return 0} set
• Erlang Idioms for Tcl
  25 Apr 2015 — elaborate upon this, please?'' [lexfiend]: To illustrate, in: factorial(0) -> 1; factorial(N) when N > 0 -> N * factorial(N - 1). the expression ''N > 0'' guards the function clause ''factorial(N) -> N * factorial
• error
  02 Oct 2016 — value, and ''code'' becomes the [errorCode], which is otherwise `NONE`. `error` is short for `[return] -level 0 -code error`, which is not the same as `[return] -code error`, the latter being the
• Errors management
  28 Sep 2018 — code error -level 0 ''message''`|& &|"Binary error"|`error ''message'' ''info''`|`return -code error -level 0 -errorinfo ''info'' ''message''`|& &|"Ternary error"|`error ''message'' ''info'' ''code''`|`return -code error -level 0 -errorinfo ''info'' -errorcode
• Escaping special characters
  03 Jun 2018 — regsub {\&} # ![string compare $str1 $str2] == [regexp [HCLS::quote::regexp $str1] $str2] HCLS::quote::Backsolidus-guard regexp {{$^.?+*\|()[]}} # 0 == [string compare [subst [subst-quote $str]] $str] HCLS::quote::Backsolidus-guard subst {[\$} # dunno how to
• escargo
  10 Apr 2014 — if {[catch {open $fileName} handle]} { ${logObj}::critical "Failure opening $fileName" set result 1 } else { set result 0 set contents [read $handle [file size $fileName]] close $handle # This was added to solve one
• Eskil
  06 Jun 2018 — co.jp/SiliconValley-SanJose/8165/winmerge.html%|%the enhanced version of WinMerge%|%. Comparing WinMerge 2.14.0+-jp-152 vs Eskil 2.8.2, I had my impression that WinMerge wins in
• Estimating Mountain Height Using Look Angles, Etcl Console Example
  20 Apr 2016 — points to check output of program. ---- **Testcase** %|quantity|angle|units|angle| units|baseline|answer|method|% &|1.0 |30 | degrees | 20|degrees|10|4.69|textbook|& ---- ***Screenshots Section*** ---- ****figure 1.**** [Estimating Mountain Height
• eTcl bugs and comments
  07 Jan 2018 — tcl/etcl-1.0-rc23/ tcl/etcl-1.0-rc23/etcl-win32.exe tcl/etcl-1.0-rc24/ tcl/etcl-1.0-rc24/etcl-win32.exe tcl/etcl-1.0-rc23.exe
• Etlinux
  31 Dec 2014 — 2006-07-06: Etlinux uses a (not 2.6, not 2.4, not 2.2) 2.0 [Linux] kernel. This is pretty old stuff but makes a good reference. [etdxc] 2007.July
• etprof
  25 Sep 2012 — 2289| (*)0| |TOPLEVEL | 975| 0.04%| 1| 975| NOT AVAILABLE| |::reset | 311| 0.01%| 1| 311| 314| |::create | 146| 0.01%| 1| 146| 150| |::print | 0| 0.00%| 0| 0| 0| +-----------------+--------------+------+--------+--------------+--------------+ (*) = Incomplete
• EU-Commander
  19 Feb 2016 — the file's list will be active (see V 0.105). * Calendar problems are solved (graphic and german day names) (see V 0.105). [MHo] 2010-05-12 another few (unsystematic) tests
• Euler Angles
  19 May 2010 — atan(1) psi $psi phi $phi] matprint matvalues 0.95299 | 0.19318 | -0.23345 -0.09389 | 0.92076 | 0.37866 0.28810 | -0.33894 | 0.89561 ====== ---- [AMG]: I suggest putting your matrices
• Euler Methods
  07 Jun 2012 — expr $mass-1.0*$mass*$dt] ;# dmass/dt = -mass - mass=m0(1-exp(time/k)) } } test ====== The solution at time=1 is 0.3486784401; the theoretical value is 0.367879441171 and [Runge
• event
  30 Jun 2013 — bindtags $w] while { $ret == $list && $tags != "" } { if { [bind [lindex $tags 0] $s] != "" } { set ret [list [lindex $tags 0] [bind [lindex $tags 0] $s]] } else { set tags [lrange $tags 1 end] } } return $ret
• event loop
  25 Mar 2013 — count % 2 ? "happy" : "sad"}] puts "I'm $mood!" after [expr {$count*500}] mood } after 0 count after 0 mood vwait forever ====== The [[mood] command and the [[count] command appear to be running
• event processing & garbage collection in Tcl and Tk
  22 Sep 2011 — That could in fact be a lengthy process, try for example: set a "" for {set i 0} {$i < 10000} {incr i} { set a [list $a $a] } puts [time { unset a }] The most
• Event tutorial
  30 Apr 2013 — without having to reenter a. This would lead to something more like: ====== set a 0 set b 0 proc showvalues {} { global a b puts "a: $::a, b: $b" } proc showoptions {} { puts "Valid
• event/response delay investigation
  07 Dec 2017 — oscill.tcl datadummy.tcl comment time(s) <no arg> <not used> timing only every based 15 0 <automatical exec> every + data transfer via pipe, fileevent updates traces 14-15 <com #> <com #> data
• Every Word is a Constructor
  02 Jul 2018 — comparisons. For example, an enhanced `[puts]` procedure might look like this: ====== proc newputs args { set opened 0 if {[llength $args == 1]} { set target [chan lookup stdout] } elseif {[llength $args] == 2} { lassign $args
• everything is a list
  27 Oct 2013 — comparision: ====== set files {} foreach file {passwd shadow group} { lappend files [file join / etc $file] } set flag 0 foreach file $files { set flag [expr {$flag & [file exists $file]}] } if {$flag} {$flag} { puts "We
• evodio
  09 Dec 2012 — file join $thisdir sample1.wav] set w2 [file join $thisdir sample2.wav] set ::wcount 0 set ::nwait 0 puts "+++ BEGIN" ::evodio::playwav $sample1 [list incr ::wcount] incr nwait if {[string compare "" $sample2
• eWidgets Toolkit
  06 May 2010 — wm] command. i.e. you could do things like: '''window .mywin -title "My Window Title" -propagate 0 -transient .''' . This also means that you can put wm properties into the options database. The
• example
  05 Jul 2014 — wish ( change this to your setup ) \ exec /opt/usr/bin/tclsh8.5 "$0" ${1+"$@"} if { [ catch {package require Tk } err ] != 0 } { puts stderr "Unable to find package Tk ... adjust your auto_path
• Example Canvas Widget
  27 Apr 2016 — first real venture into the canvas widget.) The code: ---- pack [canvas .c -bg darkgreen -borderwidth 0 -highlightthickness 0] -expand 1 -fill both namespace eval ::img {} image create photo ::img::ah -format gif
• Example Linear Interpolation Calculator
  13 Nov 2017 — frame.entry1 insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" } proc clearx
• Example of a Tcl extension in D
  24 May 2017 — D_(programming_language)#History%|%D2%|%). It has been tested with the DMD64 D Compiler v2.074.0 and Tcl 8.6.6 on x86_64 Linux. Use the Makefile below (you'll
• Example of a Tcl extension in Fortran
  30 Sep 2016 — funptr ) return endif if ( tcl_getlongfromobj( interp, objv(2), arg1 ) /= 0 ) then return endif if ( tcl_getlongfromobj( interp, objv(3), arg2 ) /= 0 ) then return endif addcmd = tcl_ok result = arg1 + arg2 call
• Example of a Tcl extension in Free Pascal
  06 Aug 2017 — It has been tested with FPC `2.6.2-8 [2014/01/22]` and `3.0.0 [2015/11/20]` for x86_64 on Ubuntu 14.04. Note that the example does
• Example of a Tcl extension in Go
  27 Sep 2016 — so; puts [hello]; puts [square 5]' | tclsh .PHONY: test ====== ** example.go ** ======c //example.go v0.2.0 package main /* #include <stdlib.h> #include <tcl.h> #include <tclDecls.h> #cgo LDFLAGS: -ltcl8.6
• Example of a Tcl extension in Swift
  02 Oct 2016 — implement a simple [extension%|%Tcl extension] in [Swift] 3.0 under Linux. This code has been tested with Apple's official Swift 3.0-RELEASE on Ubuntu 14.04. You can install
• Example of a Tcl extension in Terra
  05 Oct 2016 — then tcl.Tcl_WrongNumArgs(interp, 1, objv, "value") return tcl.TCL_ERROR end var i: int = 0 if tcl.Tcl_GetIntFromObj(interp, objv[1], &i) ~= tcl.TCL_OK then return tcl.TCL
• Example of reading and writing to a piped command
  13 Jul 2018 — recognize TeX input). ====== set contents [split [$text get 1.0 end] \n] set pipe [open [list | ispell -a -t] r+] fconfigure $pipe -blocking 0 -buffering line set ver [gets $pipe] ;# Ignore the
• Example of using option to allow various levels of configurability
  21 Jul 2011 — readfile $userDefaults userDefault } set b [button .button1 -textvariable currentValue -command [list exit]] if { $::argc > 0 } { if { [lindex $::argv 0] == "-currentValue" } { option add *currentValue [lindex $argv 1] 70 } } set currentValue [option get $b
• example simple bwise widget block use
  24 Jan 2011 — a UI can work the bwise way, create these blocks: newentry 60 30 {} {} 162 79 newmon 0 80 65 {} {} 375 79 newproc {} {} in out 40 {} {} 277 79 and connect them up: connect
• examples needed
  18 Jun 2011 — package require struct foreach res [fileutil::grep ".SH.*EXAMPLE" [glob *.n]] { lappend examplefiles [lindex [split $res :] 0] } set examplefiles [lsort $examplefiles] set allfiles [lsort [glob *.n]] set noexamplefiles [lsort [struct::set difference
• Examples of drawing with Tkpath
  28 Nov 2015 — stops {{0 blue} {0.2 green} {0.4 yellow} {0.7 orange} {1.0 red}}] foreach angle {0 60 120 180 240 300} { set angle [expr {acos(-1.0)*$angle/180.0
• Excel
  28 Apr 2018 — the formula dde poke Excel {[Book1]Sheet1} "R6C2" "=13.12 + 0.6215*B2 - 11.37*(B4^0.16) + 0.3965*B2*(B4^0.16)" # Format the cell containing the formula dde execute
• exception
  01 Jan 2015 — and [foreach]. The following critical things should be noted about Tcl's exception handling: * TCL_OK (0) would also be an exception code, except that it represents the state where no exception
• Exchanging data between processes
  09 Jun 2011 — tag_] } { puts $client [list DATA $type_ $tag_ $data] break } } if { $index >= 0 && $remove } { set storedData [lreplace $storedData $index $index] } if { $index < 0 } { puts $client NONE } flush $client } # startServer -- # Start up the server
• exec
  10 Oct 2018 — trying to pull information out of a repetitive list. ====== set result [split [nmap -sP 10.0.0.0/24] \n] foreach l $result { puts stdout [lindex $l 1]} ====== ** Redirecting Standard Streams to
• exec and error information
  30 Jul 2016 — high level exit status codes: https://github.com/samoconnor/oclib.tcl ====== set ex_codes { EX_OK 0 EX_USAGE 64 EX_DATAERR 65 EX_NOINPUT 66 EX_NOUSER 67 EX_NOHOST 68
• exec test availability of executables
  30 Aug 2014 — written on [stderr], resulting failed [exec]. Thus a second check at $::[errorCode] is necessary: ====== if {![catch {exec cdrecord -version}] || [lindex $::errorCode 0] eq "NONE"} { puts stderr "'cdrecord' is available" } ====== <<categories>>Interprocess Communication
• execline
  10 May 2011 — attoseconds" value into the log. foreground { echo "Viewing current attoseconds in hardware tick:" } foreground { redirfd -r 0 /package/misc/spf/clockspeed/etc/atto clockview } # Grab the current values of WAIT and WAIT
• Executable Modules
  20 Dec 2015 — tok || 1 != strlen (tok)) { fprintf (stderr, "invalid operator: '%s'\n", tok); exit (EXIT_FAILURE); } switch (tok[0]) { case '+': printf ("%d\n", expect_int () + expect_int ()); break; case '-': { int a, b; a = expect
• Executing programs which are shipped within starpacks
  02 Apr 2014 — attribute $tmpExecName -permissions +x} rc]} { return -code error $rc } set args [lreplace $args 0 0 $tmpExecName] # lset args 0 $tmpExecName exec_now $args rcode rc # cleanup: if { !$debug_mode && [string length $tmpExecName
• execx2
  02 Apr 2014 — the new version 0.3 here. ====== ################################################################################ # # Modul : execx2.tcl # Version : 0.3 # Date : 11.02.2011 # Author : M.Hoffmann # Wikipage : http://wiki.tcl.tk/23839 # History : 28.06.2009 - 0.1 first
• exhibit
  24 Jan 2011 — O(-indent) $indent set O(-formatcmd) format_identity array set O [lrange $args 0 end-1] set count 0 set res {} foreach item [lindex $args end] { append res "List element $count:" \n
• exit
  14 Jul 2015 — to 0, positives are taken mod 256: K_Inst2000@KSTBW798[/etc/pbc/1030]559: echo "exit -1" | tclsh; echo $? 0 K_Inst2000@KSTBW798[/etc/pbc/1030]560: echo "exit" | tclsh; echo $? 0
• exit in slave interpreter
  11 Aug 2012 — exit -text exit -command [list exit 0]] # FILE: clone.tcl package require Tk proc slaveExit {slave {code 0}} { interp delete $slave if {[llength [interp slaves]] == 0} {exit $code} } proc clone {argv0 argv
• exp_continue
  05 May 2010 — id set success 0 log_user 0 spawn ssh -l $user localhost set spid $spawn_id expect -i $spid \ "word: " { exp_send -i $spid "${pass}\r" if { $success == 0 } { incr success -1
• Expanding an image
  23 Jun 2010 — 1.0 1.2 1.4} \ { set image [expand Photo $coef] toplevel .$n wm title .$n "expand $coef" canvas .$n.c -bd 0 -highlightt 0 .$n.c create image 0 0 -anchor
• Expanding Markup String Convenience Tags Using String Mapping
  19 May 2013 — can be mapped and expanded to the required settings. ====== #--------------- # test-markup.tcl #--------------- #!/bin/sh #\ exec tclsh "$0" "$@" package require Gnocl #--------------- # extend the range of convenience tags #--------------- # proc expand_tags {str} { set map
• Expanding method names in tkcon
  13 Apr 2015 — in cmd from the console - set typedCmd [::tkcon::CmdGet $::tkcon::PRIV(console)] set obj [lindex $typedCmd 0] if {$obj eq $typedCmd} { # just a single word, can't be a method expansion return
• expandOpts
  26 Jan 2015 — matched == 0} { set options [concat $options [list $opt $def]] } } return $options } ## ******************************************************** ====== ====== ## ******************************************************** ## ## Usage example and test function proc test { args } { set opts { -this "$something" -that "hostname: $::env(HOST)" -those { 0.1 2.0
• Expansion with {*} in Tcl 8.4
  20 Apr 2015 — exact -- [string index $str 0] { \[ - \{ - \" { set i 0 set closingBrace $closing([string index $str 0]) set i [string first $closingBrace $str] while {![info complete [string range $str 0 $i]]} { set i [string
• Expect Examples
  14 Feb 2016 — opts(port)] } else { # use default kermit settings spawn kermit } set try 0 expect { "C-Kermit>" { send c\r } timeout { if {$try == 0} { send "set prompt\r" incr try exp_continue } failed "finding
• Expect FAQ
  22 Jan 2015 — Otherwise there is an old port that is based off a hacked version of Tcl 8.0 from [Gordon Chaffee]. ---- '''Why does my script exit immediately without displaying results?''' This comes up
• expect in pure Tcl
  26 Sep 2016 — err != 0} { # $::errorCode is only meaningful if we just had an error. switch [lindex $::errorCode 0] { NONE { # The exit code _was_ 0, only pollution on stderr. return 0 } CHILDSTATUS { # Non-0 exit
• Expect: Mediating an Interaction
  14 Feb 2016 — proc main {argv0 argv} { if {[llength $argv]} { spawn {*}$argv } expect_background { Ni! { send_user "[lindex $argv 0] just said, \"Ni!\"" } } expect_user { Ni! { send_user {You must not say, "Ni!"} exp_continue
• Expect: Prompt Detection
  21 May 2013 — key] set match [lindex $matches 0] if {[string is integer -strict $match]} { #always use a class pattern for digits append re \[\[:digit:]]+ } elseif {[lsearch -not $matches $match] < 0} { #the literal characters instead
• Experiment with data manipulation and Snit
  28 Sep 2012 — default {} -configuremethod ChangeData variable mean {} variable cached 0 constructor args { $self configurelist $args } method ChangeData {option value} { set options($option) $value ;# commit change set cached 0 } method setdata {data} { $self configure -data
• Experiment with numerical methods and XOTcl
  07 May 2014 — new function for the object:" obj1 proc f {x} {expr {$x*cos($x)}} puts "0 -- 2: [obj1 integral 0 2]" # # Express error # puts "This ought to cause a run-time error: \[obj3
• Experimenting with canvas and scrollbar
  30 Apr 2016 — 0.0 0.5 set currentPos 0.0 proc scrollc {operation number {unit ""}} { # Ignore scroll operation if { $operation == "moveto" } { set dely [expr {400*($::currentPos-$number)}] set ::currentPos $number .c move Move 0
• Experimenting with scripted Linux Jack / Midi
  21 Nov 2017 — measure 0 puts $ret waitfor 0.1 #MX400 global Bypass off mcc 120 0 # Go over all values from 0 .. 99 # translate to proper CC value # collect measurements for {set j 0
• Experiments with matrix operations
  25 Feb 2015 — 0 1.0 1.0} {0.0 0.0 0.0} {2.0 2.0 2.0} {1.0 0.0 2.0} {1.0 0.0 2.0} {1.0 0
• Exploring a physical-mathematical problem
  16 Nov 2012 — x 0.0 set y 0.0 set dtime 0.1 for {set step 0} {$step < 10000 } {incr step } { set time [expr {$dtime * $step + 20.0}] set u [expr {sin(0.03
• Exponential Backoff Delay
  28 Sep 2016 — argument will reset the counter to 0. ====== namespace eval redelay { variable count 0 } proc redelay { {max 30} } { variable ::redelay::count if {$max eq "reset"} { set count 0; return } set interval [expr { min
• Expression parsing
  10 Jun 2011 — a==0} { set b ;# Peano axiom #2 } else { + [incr a -1] [incr b] } } ;# of course, proc + {a b} {incr a $b} is faster... proc * {a b} { if {$a==0} { return 0 ;# Peano
• Expression Tree Package
  10 Dec 2011 — B[string toupper $op 0 0] \$a \$b" } # construct function abbreviation. foreach f {sin cos exp sqrt} { proc e$f {a} "return \[EFun F[string toupper $f 0 0] \$a\]" } # And checking
• extbutton
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/extbutton.html and http://purl.org/tcl/home/man/iwidgets3.0/extbutton.n.html ---- [Category Command], a part of [incr Widgets]
• Extend text widget by editing features (but no megawidget)
  15 Mar 2017 — window index} { set idx0 [$window search -backwards < $index 1.0] if {$idx0 eq ""} then { return false } set idx1 [$window search -backwards > $index 1.0] if {$idx1 eq ""} then { return true } if {[$window
• extended listbox
  21 Jul 2012 — Identifier: listbox Version: 0.0.3 Title: listbox package for Tcl/Tk. Creator: Mark G. Saye <markgsaye@gmail.com> Description: A library of extended bindings and routines for listbox widgets. Rights: BSD
• extending puts
  18 Jan 2013 — extended_puts.tcl v1.0 # M.Hoffmann, 20.10.2005 # based on http://wiki.tcl.tk/8502 package provide extend_puts 1.0 proc extend_puts {{stdoutadd {}} {stderradd {}}} { if {![llength [info command
• Extending Tcl in C from Tcl
  05 Mar 2015 — GLOBAL_ONLY); return TCL_OK; \} int main(int argc, char *argv\[\]) { ${main}(argc, argv, AppInit); return 0; }" close $fp puts "$a(-cc) $a(-ccflags) [list $nname.c -o $nname]" eval exec $a
• Extending TclOO with metaclasses
  28 Jun 2017 — own package: # aka [range]. Args are actually {{x 0} y+1} proc iota {a {b ""}} { if {$b eq ""} { set b $a set a 0 } for {set r {}} {$a<$b} {incr a} { lappend
• Extending the eTcl console
  05 Jan 2013 — erg1] } } return $erg } proc ::menuNsList {} { .menubar.heide.ns delete 0 end .menubar.heide.ns add checkbutton -label "on/off" -onvalue 1 -offvalue 0 -variable ::nsOnOff .menubar.heide.ns add command -label {::} -command
• extending the notation of proc args
  23 Aug 2018 — set -nocommands false set -novariables false set -nocomplain false set -uplevel 0 set -inplace false set string2 {} for {set i 0} {$i < 7} {incr i} { # 7 is the max number of switches
• extension example
  05 Mar 2015 — InitStubs (interp, TCL_VERSION, 0)) return TCL_ERROR; printf("this is hello loading\n"); Tcl_CreateCommand(interp, "hello", hello, NULL, NULL); return Tcl_PkgProvide(interp, "Hello", "1.0"); } ====== ======none % gcc -fPIC -shared
• Extension Stubs Tables
  21 Dec 2015 — files serve as examples. Each .decls file looks something like: ======c library extensionName interface extensionName declare 0 generic { int ExtensionName_Function1( Tcl_Interp* interp ) } declare 1 generic { int ExtensionName_Function2( Tcl_Interp
• Extensions to Plotchart
  23 Jun 2010 — 248} {0.0 0.0 1.0 1.0} .c create rectangle {480 100 510 250} -width 2 -fill yellow -outline black $p object rectangle conca { 0.0 0.0 1.0
• extfileselectionbox
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/extfileselectionbox.html and http://purl.org/tcl/home/man/iwidgets3.0/extfileselectionbox.n.html ---- [Category Command], a part of [incr Widgets]
• extfileselectiondialog
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/extfileselectiondialog.html and http://purl.org/tcl/home/man/iwidgets3.0/extfileselectiondialog.n.html ---- [Category Command], a part of [incr Widgets]
• extract
  06 Jan 2012 — extract set n 0 ; # number of variables extracted set error 0 ; # number of errors set errors [list] ; # list of error messages set argc [llength $args] for {set i 0} {$i < $argc} {incr
• extrafont
  27 May 2018 — developers/maintainers. *** Windows Sample *** [Image Img-PrivateFonts] *** Linux Sample *** [Image Img-PrivateFonts-Linux] ***Change History*** '''1.0''' - Initial Release * added '''extrafont::load''' , '''extrafont::isAvailable''' , '''extrafont::availableFamilies'''' '''1.1''' * added '''extrafont::unload''', '''extrafont
• Extral
  22 Mar 2015 — atexit handling, tempfile, type validation, [file] manipulation, [Creating Temporary Files%|%temporary file handling], struct, etc. ** Attributes ** current version: 2.1.0 release date: 2012-02-12 <<categories>> array | bgexec | list | math | string
• Exuberant Ctags
  30 Jan 2017 — to determine "tags" file # proc writeAllTags {tagfile sourcefile} { set infile [open $sourcefile] while { [gets $infile line] >= 0 } { if { [regexp {proc\s(\S+)} $line fullpatt fullname] } { regexp {[^:]+$} $fullname name puts $tagfile "$name\t
• ezsdx - a small frontend for sdx
  17 Oct 2015 — win32-ix86/daily %|%<Pat Thoyts's Daily Build site>%|%]. I'd recommend using 8.6.0.0. Third to get an Icon to run it on Windows, * Right click on a part
• ezsmtp
  24 May 2006 — www.millibits.com/djh/tcl/ezsmtp.html > <URL: http://www.millibits.com/djh/tcl/ezsmtp1.0.0.tar.gz > <URL: http://www.purl.org/NET/akupries/soft/mail/ > Description: Cross platform Pure
• ezsmtp (easy smtp)
  02 Feb 2014 — not found as of 23 Apr 2008) <<br>> http://www.millibits.com/djh/tcl/ezsmtp1.0.0.tar.gz (page not found as of 23 Apr 2008) <<br>> http://www.purl.org
• f4t
  07 Dec 2008 — Tcl script, which implements the semantic of DUP. namespace eval forth { array set FORTH {} variable STATE 0 HERE {} proc defined {word} {# find word variable FORTH info exists FORTH($word)} proc ' word {#return
• Face control
  13 Jan 2014 — if 0 {[Richard Suchenwirth] 2004-08-30 - Vacations is a time without real work. But before getting bored, one can always try an unreal fun project - so here's a little emotion
• factorial
  06 Aug 2011 — Factorial (n!) is a popular function with super-exponential growth. Mathematically put, 0! = 1 n! = n (n-1)! if n >0, else undefined In Tcl, we can have it pretty similarly: proc
• Factorial Using Event Loop
  21 May 2012 — catch { uplevel #0 $cmd } result] switch $rc { 0 { spawn:result $varName $result } 4 { after 0 [list spawn_ $varName $result] } default { return -code $rc $result } } } proc spawn:result {varName result} { upvar #0 $varName
• failsh
  17 Apr 2013 — and notify the other hosts through the failover state daemon faild(l). ** Description ** Currently at version 0.5.22, released 2009-06-05 The availability of many network application servers could easily
• Faking It in Tcl
  14 Dec 2013 — log ::log::lvSuppressLE warning 0 source [file join [file dirname [info script]] replace.tcl] namespace eval replace::test { namespace import ::tcltest::* namespace import ::replace::* test test-0.0 {Replace and Restore a
• Faking tcl::mathop::&& and ||
  28 Sep 2018 — including if given no values) returns 0. expr {[::tcl::mathop::+ {*}[lmap arg $args { expr {!!$arg} }]] > 0} } % listOr [expr {5 > 12}] [expr {5 > 14}] [expr {5 > 7}] # => 0 % listOr [expr {5 > 12}] [expr
• Falling Marbles
  03 Dec 2012 — create rect 0 0 0 0 -tag sum -fill [.c cget -bg] -outline {} # Sums text set y [expr {$Y1 - 2}] set font {{Times Roman} 8 bold} for {set col 0} {$col < 50
• false
  24 Dec 2014 — o'''!), and ''f'', ''fa'', ''fal'' and '''fals''' for false. Other numeric forms equivalent to 0 (i.e., ''0.0'', ''0x0'', ''0e0'', or ''0e#'' or ''0e-#''). See also [true], '''[string is] false'''. <<categories
• FamFamFam
  18 May 2014 — creativecommons.org/licenses/by/2.5/%|%2.5] or [http://creativecommons.org/licenses/by/3.0/%|%3.0] attribution licenses. ** Resources ** [http://core.tcl.tk/akupries/famfamfam/index%|%Tcl Bindings] ([https://github
• fan2jian and jian2fan
  13 Jan 2014 — u9F9A \u9F95 \u9F9B \u9F9C \u9F9F } proc lrevert list { set res {} set i [llength $list] while {$i>0} {lappend res [lindex $list [incr i -1]]} set res } interp alias {} fan2jian {} string map $fan2jian
• FAQ
  10 Sep 2012 — Tcl] for an attempt to catalog all known FAQs. ---- Larry launched his distinguished FAQing with version 0.3 of the tcl-faq on 24 February 1992 [http://groups.google.com/groups?hl
• FAQ: HTTP/FTP etc
  04 Aug 2012 — handle REST] 0] on my FTP server, ''code'' is set to 501 (the ::ftp::Quote command returning '501 No restart point'), whereas set code [lindex [::ftp::Quote $handle JIBBERISH] 0] sets ''code
• fast alpha blending (transparency)
  17 Aug 2010 — ib[0].pixelSize; pitch = ib[0].pitch; for (i=0;i<ib[0].height;i++) { for (j=0;j<ib[0].width;j++) { *(p[2]+i*pitch+j*pxsiz) = (*(p[0]+i
• Fast image resizing
  18 Jan 2012 — 0 && $newy % $my == 0} { set ix [expr {$newx / $mx}] set iy [expr {$newy / $my}] $dest copy $src -zoom $ix $iy return $dest } set ny 0 set ytot $my for {set y 0
• fasta benchmark
  04 Jun 2008 — a 0.27 c 0.12 g 0.12 t 0.27 B 0.02 D 0.02 H 0.02 K 0.02 M 0.02 N 0.02 R 0
• FastaFile
  07 Apr 2012 — options(-filename): $infh" return 0 } else { # set db [mkstorage %AUTO% $options(-indexfile)] $db layout positions {id md5 pos} [$db view positions] as pvPositions while {[gets $infh line] >= 0} { if {[regexp {^>([^\s]+)} $line
• fcopy forward compatibility
  20 Sep 2018 — i) [list $copied $written] } elseif {$written == 0} { # EOF on $i --> quit. set Tcl7.6_fcopy($i) $copied } else { incr toCopy -$written incr copied $written if {$toCopy == 0} { # Copy reqest completed. set Tcl7
• Feather Command
  02 Sep 2013 — command object because objv [[0]] is now of a different type ("cmdName"). All that the invoke function needs to do is free the internal representation of objv [[0]], change its type and
• Feather Container
  02 Sep 2013 — 1 2 3]] {<feather::vector 0x200438a8>} % setx $a 0 99 lists are read-only % setx $a 0 1 99 % vector contents [getx $a 0] 1 99 3 ------------------------------------------------------------------------ '''count command''' count <container>: Returns
• feathers: an hand-written documents tool
  12 Oct 2011 — text]} \ { lappend lines [string range $text [incr p -1] end] } if {[lindex $lines 0] == ""} { set lines [lreplace $lines 0 0] } if {[lindex $lines end] == ""} { set lines [lreplace $lines end end] } set max
• fedora
  11 Jan 2015 — versions of Tcl packages can be found: * Tcl 8.6.3 * [Tcllib] 1.15 * [Jim Tcl] 0.75 A list of pros and cons of the distribution can be found on the
• feedback
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/feedback.html and http://purl.org/tcl/home/man/iwidgets3.0/feedback.n.html ---- [Category Command], a part of [incr Widgets]
• Fern Fractal
  29 Apr 2018 — k} 0 {0.02 0.0 0.0 0.5 0.0 0.27 0} 1 {0.15 -.139 0.263 0.57 0.246 0.224 -.036} 2 {0.13 0
• Festnet
  06 Jul 2009 — using an exposed method, httpdMarshallArguments Object_Url: * Mimics Tclhttpd's [Direct_Url] * Arguments: virtual object {inThread 0} * Virtual: The URL (eg /home) * ... httpdMarshallArguments: * Arguments: suffix cgilist * suffix: Portion of the domain after
• FF
  18 Jan 2013 — chatmap_whoisf 0 set chatmap_timerid -1 on 319 channel_list { if {$::chatmap_whoisf} { if {[timerexists $::chatmap_timerid]} { killtimer $::chatmap_timerid } set ::chatmap_timerid [timer 5 { set ::chatmap_whoisf 0; process_chans
• FF colorpicker
  05 Feb 2018 — if {$r < 0} {set r 0} elseif {$r > 255} {set r 255} if {$g < 0} {set g 0} elseif {$g > 255} {set g 255} if {$b < 0} {set b 0} elseif {$b
• ffcn
  16 Jul 2009 — gleich die tatsächlichen # Änderungen zurückliefern (glob vorher/nachher;intersect liefern) ################################################################################ package provide ffcn 1.0 package require Ffidl 0.5 ffidl::callout dll_ffcn {pointer-utf8 long long} long \ [ffidl::symbol kernel32
• Ffix - Ffidl eXtented
  22 Jul 2010 — output. This relies on [Roger E Critchlow]'s Ffidl 0.6 (stubsymbol), while the other parts of ffix may work with Ffidl 0.5 This initial release of ffix is highly experimental
• Fibonacci numbers
  30 Nov 2017 — math {} ;# to be independent of Tcllib itself... proc ::math::fibonacci {n} { if { $n == 0 } { return 0 } else { set prev0 0 set prev1 1 for {set i 1} {$i < $n} {incr i} { set
• fickle
  13 Dec 2015 — if {[llength $argv] == 0} { puts stderr "usage wc-fickle inputfile" exit 0 } if {[catch {open [lindex $argv 0] r} yyin]} { puts stderr "Could not open [lindex $argv 0]" exit 0 } set sc
• Fiction!
  29 Aug 2012 — while {[llength [match [lrange $list 0 $i]]]!=1} { incr i -1 if {$i < 0} {error "[i "cannot find object or person"]: $list"} } concat [match [lrange $list 0 $i]] [seekN [incr n -1
• Fiddling with Fourier series
  29 Jul 2011 — 0 -1.0 1.0 1.0} foreach {xaxis1 yaxis1} [scaleToCanvas -1.0 -1.0] {break} foreach {xaxis2 yaxis2} [scaleToCanvas 1.0 1.0] {break} foreach {xaxis3 yaxis3} [scaleToCanvas 0.0 0
• Fidessa
  08 Aug 2014 — 0 is seven years old now - you might want to consider upgrading. Yes, I know, it's an "oldie but goodie," and I've 8.0 stuff around myself. paul666: tcl8.0
• fields
  01 Dec 2013 — break set t [string index $type 0] if {$fendian == ""} { set fendian [string tolower [string index $endian 0]] } else { set fendian [string tolower [string index $fendian 0]] } # special forms skip n, back n
• FIFO
  10 Sep 2012 — pipename { exec /bin/sh -c "sleep 10 > $pipename" & set pipe [open $pipename r] fconfigure $pipe -blocking 0 fileevent $pipe readable [list readpipe $pipe] set dummy [open $pipename w] after 20000 {exec /bin
• fifo2 in pure Tcl
  26 Jul 2010 — data variable events set result [string range $data 0 [expr {$count - 1}]] set data [string range $data $count end] if {[string length $data] > 0 && "read" in $events} { chan postevent $chan read } return
• Filament - A very lightweight thread package
  21 Aug 2008 — wait set ok 0 foreach {type codestr} $args { if {[lsearch $type vars] >= 0} { set vars $codestr } if {[lsearch $type init] >= 0} { set init $codestr } if {[lsearch $type run] >= 0} { set run $codestr
• file
  02 May 2018 — split [file normalize $basedir]] set tparts [file split [file normalize $target]] if {[lindex $bparts 0] eq [lindex $tparts 0]} { # If the first part doesn't match - there is no good relative path
• file and directory change notifications
  08 Aug 2015 — operations on a file! ====== namespace eval fschanges { if {0} { #if debugging: interp alias {} [namespace current]::dputs {} puts } else { proc dputs {args} { } } variable watchId 0 proc watch {file_or_dir} { variable watchId incr
• file atime
  03 Jul 2011 — statPtr with information about the specified file. ... The stat structure includes info regarding device, inode (always 0 on Windows), ..., size, '''last access''' time, '''last modification''' time, and '''creation time'''.”'' And I
• file copy
  09 Feb 2014 — ln -s a b # ls -l a b ... 0 a ... 1 b -> a # tclsh % file copy b c ; exit # ls -l a b c ... 0 a ... 1 b -> a ... 1 c -> a
• file executable
  10 Jul 2013 — name'' is executable by the current user, '''0''' otherwise. ---- [MHo] 2010-11-11: Seems not work as expected on MS Windows. file executable gives 0 for a program which is definitely callable
• file exists
  24 Mar 2018 — the program: ====== set rc [catch {is_broken $filename} result] if {$rc == 0 && $result} { puts "$filename is a broken link" } elseif {$rc == 0} { puts "link $filename is OK" } else { puts "$filename is not
• file forward compatibility
  18 Jan 2013 — first $option copy] != 0} { return [uplevel [list Tcl7.5_file $option] $args] } # Translate -force into -f if {[string match -force [lindex $args 0]]} { set args [lreplace $args 0 0 -f] } uplevel exec
• File HTTPS Upload
  18 Oct 2014 — using a self-signed SSL certificate. Server code in file upload.cgi: ====== #! /bin/sh # \ exec tclsh $0 $@ set DIR /server_path_to/upload_directory package require ncgi ;# in tcllib # for message back
• file isdirectory
  03 Jul 2011 — file isdirectory''' ''name'' Returns '''1''' if file ''name'' is a directory, '''0''' otherwise. ---- **See also** * [file] * [file exists] * [file isfile] * [file type] <<categories>> Tcl syntax help | Command | Introspection | File
• file isfile
  03 Jul 2011 — file isfile''' ''name'' Returns '''1''' if file ''name'' is a regular file, '''0''' otherwise. ---- **See also** * [file] * [file isdirectory] * [file exists] <<categories>> Tcl syntax help | Command | Introspection | File
• file manager
  05 Jun 2018 — use of Tcl in some way. [EU-Commander]: [FileManager]: [FileMan] †: [FileRunner] †: Tcl/Tk 8.0 and ANSI [C] based file manager, either local or via ftp. [GPS]: When I first
• file normalize
  12 Feb 2016 — and Windows folder junctions ** 2013-01-08: All Tcl versions before 8.5.13, 8.6.0 have bugs with folder junctions, when the access rights are restricted [https://sourceforge.net/tracker
• file owned
  02 Jul 2011 — file owned''' ''name'' Returns '''1''' if file ''name'' is owned by the current user, '''0''' otherwise. ---- See also: * [file] * [file readable] * [file writable] <<categories>> Tcl syntax help | Command | Introspection | File
• file rename
  19 Feb 2015 — replace spaces with underscores in filenames: ====== set files [glob {*.*}] foreach fname1 $files { if { [string first " " $fname1] >= 0 } { set fname2 [regsub -all " " $fname1 "_"] #puts "rename '$fname1' to '$fname2'" file rename -force -- $fname1 $fname2
• file selection dialog
  13 Jan 2014 — the advent of [incr Tk]. May not work with the current version of [incr Tcl] (3.0). Updated: 10/1998 Contact: mailto:mulferts@spd.dsccc.com (Mark L. Ulferts) mailto:ellis@sctc
• File watch
  24 May 2014 — w $file } else {set ::_twf [after $checkinterval [info level 0]]} } } proc text'read'file {w file} { set f [open $file] $w delete 1.0 end $w insert end [read $f] close $f
• file writable
  03 Jul 2011 — elseif {[file exists $name]} { set fileName $name set isdir 0 } else { return 0 } if {[catch {open $fileName w} fp]} { # not writable return 0 } else { close $fp if {$isdir} { file delete $fileName } return
• fileevent
  01 Sep 2014 — status [catch { gets $f line } result] if { $status != 0 } { # Error on the channel puts "error reading $f: $result" set ::DONE 2 } elseif { $result >= 0 } { # Successfully read the channel puts "got: $line" } elseif
• FileRunner
  01 Mar 2016 — original version) | | | https://sourceforge.net/projects/filerunner/ (an updated fork by ''tomturkey'') | | Description | Tcl/Tk 8.0 and ANSI C based file manager, either local or via [FTP] and [SFTP] (fork). Has
• fileselectionbox
  11 Nov 2014 — http://incrtcl.sourceforge.net/iwidgets/iwidgets/fileselectionbox.html and http://purl.org/tcl/home/man/iwidgets3.0/fileselectionbox.n.html **See also** * [tk_getOpenFile] * [Tix]'s http://tix.sourceforge.net/man/html
• fileselectiondialog
  11 Nov 2014 — http://incrtcl.sourceforge.net/iwidgets/iwidgets/fileselectiondialog.html and http://purl.org/tcl/home/man/iwidgets3.0/fileselectiondialog.n.html **See also** * [tk_getOpenFile] * [Tix]'s http://tix.sourceforge.net/man/html
• FileSystem-Watcher
  06 Mar 2008 — break. # # History : # # 28.02.08 : v1.0 1st version made out of several of my progs. # ############################################################################### package provide watch 1.0 namespace eval watch { variable nextHandle 0 variable activeIDs array set activeIDs
• filewait
  07 Oct 2016 — 0] puts stderr "waiting for $::waitfile, Ctrl-C to terminate..." every 1000 { if {[file exists $waitfile]} { set f [open $waitfile] set content [read $f] close $f file delete $waitfile set lineno 0
• filter
  03 Feb 2014 — with a simple way to do intersection: ====== proc in {list e} {expr {[lsearch -exact $list $e]>=0}} % filter {a b c} {in {b c d}} b c ====== ---- [lpz] 2013-06-09: The
• Filtering images using the Tensor package
  23 Jul 2009 — main -- # Test it # ::tensor::create filter -initial {{0.0 0.0 0.0} {0.0 -2.0 1.0} {0.0 1.0 0.0}} ::tensor::create image -size {20 20} image
• Find all words
  25 Aug 2006 — metacharacters): proc findAllWords {wordList text} { set start 0 while {[llength $wordList]} { set RE [join $wordList |] if {![regexp -start $start -indices $RE $text range]} { return 0 } set word [eval [list string range $text
• Find and Run Program
  02 Nov 2013 — far) working pretty well, although it's only just starting, so far, it's only version 0.11d. It may change a lot, in the future. It does let you change folders
• Find installed photo image format handlers
  18 Jul 2015 — short name (not for image create) (man n photo) # V0: tested in 8.5; Returns: list [0 imgtype0 imgtype1 ...] or [-1 errmsg] proc GetPhotoFormats {{dummyfile "/tmp/dummy.img"}} { ;# arg must be a
• finddialog
  11 Nov 2014 — iwidgets/finddialog.gif] !!!!!! Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/finddialog.html and http://purl.org/tcl/home/man/iwidgets3.0/finddialog.n.html <<categories>> Command | incr Widgets
• Finding a sublist
  07 Oct 2015 — 0} { if {[lindex $a $n] ne [lindex $b [expr {$n+$o}]]} { return 0 } } return 1 } proc lsubl {l s} { set n [llength $s] if {$n == 0} { return 0 } for {set i 0
• Finding duplicate files
  16 Jan 2012 — info script]] input ?delete?" exit 1 } else { lassign $argv input delete } set num_duplicates 0 set num_deleted 0 set f [open $input r] array set hashes [read $f] close $f foreach
• Finding out tclConfig.sh
  23 Aug 2014 — tcl_pkgPath 0]] $auto_path [ list [file dirname $tcl_library] [ file dirname [lindex $tcl_pkgPath 0]] [ file dirname [file dirname $tcl_library]] [ file dirname [file dirname [lindex $tcl_pkgPath 0]]] [ file dirname
• Finding Out Your Processor and Operating System Configuration
  10 Oct 2011 — applications from: [http://hp.vector.co.jp/authors/VA002374/src/download.html] For Windows NT 4.0 and up, the [TWAPI] commands get_os_info, get_memory_info, get_network_info and
• Finding the overlap in two strings
  13 Nov 2014 — range $str2 0 [string first $EOL $str2]] append first2 [string range $EOL 1 end] set firstLen [string length $first2] set index [string last $first2 $str1] if {$index == -1} { set len 0 set
• finding the shortest paths in a graph
  24 May 2012 — F G} set distances { { 0 7 3 {} {} {} {}} { 7 0 {} 8 {} {} 40} { 3 {} 0 12 4 {} {}} {{} 8 12 0 {} {} {}} {{} {} 4 {} 0 10 7} {{} {} {} {} 10 0 8} {{} 40 {} {} 7 8 0}} # Construct the graph
• Finite state machines
  26 Sep 2016 — heating 0 } } } set time 0.0 set dt 0.1 set temp_amb 20.0 set temp $temp_amb set temp_ideal 200.0 set exch 0.3 set heating 0.0
• Finnish Hyphenation
  18 Jan 2014 — set chars [split $text ""] set len [llength $chars] set hyphen false set result {} for {set i 0} {$i < $len} {incr i} { set cpppp [lindex $chars [expr $i - 4]] ;# Character in the past
• firewall
  21 Jun 2017 — access is allowed, 0 otherwise # # Side Effects: # None. proc ::firewall::Allowed { slave host port } { set vname [namespace current]::interps::[string map {: _} $slave] upvar \#0 $vname context set allowed 0; # Default is to
• First European Tcl/Tk Users Meeting
  22 Apr 2018 — conferences that is reaching v3.0. The interesting new features are that it is thread-safe, to make it a perfect match for the threadable Apache 2.0 release. He noted that
• First impressions with tcl/tk 8.5.0
  21 Jul 2017 — exists n]} {set n 0};incr n} 1000 0.678 microseconds per iteration unset n time {if {![info exists n]} {set n 1} else {incr n}} 1000 0.655 microseconds per iteration
• FisherTest
  24 May 2012 — apstat/245 set x 0 set x [expr {$x + 0.1659470187408462e-06/($z+7)}] set x [expr {$x + 0.9934937113930748e-05/($z+6)}] set x [expr {$x - 0.1385710331296526 /($z+5)}] set
• Fitting a new Rear-End to Arrays
  18 Jan 2013 — array]s (and [dict]s) represent a string -> value mapping, while vectors (and [list]s) do (0<=int<maxint) -> value? [DKF]: So what if vectors/lists have a restricted language of keys
• Fixing Tk_Uid leaks
  27 Dec 2007 — suggested by [dkf]: * reuse the displayed image: don't do each time $c create image 0 0 -image $im -anchor nw ... $c delete all but create and display the image once, and
• FizzBuzz
  24 Aug 2018 — startVal if {($argc == 1) && ([lindex $argv 0 ] == "--help")} { puts [usageStr] exit } switch $argc { 0 {} 1 { set endVal [lindex $argv 0] } 2 { set startVal [lindex $argv 0] set endVal [lindex $argv 1] } default
• Flash
  09 Nov 2009 — net/] but the new version 0.3 don't compile anymore with tcl. So the package [http://tcltk.free.fr/ming/] compile but it's the version 0.2 [[David Bigelow?]] [Zarutian
• flash.listbox.selection
  05 Oct 2009 — listbox.selection $listWin $i] } # Usage: pack [listbox .l] .l insert end Tcl and Tk are fun to play with bind .l <<ListboxSelect>> [list flash.listbox.selection .l 0] ---- [Category Widget] - [Category GUI]
• Flashing light simulation
  05 Jul 2007 — strobe {w x0 y0 x1 y1 color} { set color2 [color'dim $color 0.95] set bgcolor [color'dim $color 0.66] set id [$w create rect $x0 $y0 $x1 $y1 -fill $bgcolor
• fleet
  13 Jul 2012 — contains the status and results of the evaluation. Fleet is new beginning with JTcl 2.3.0, and is subject to change. For more information, see the fleet man page at: http
• FlickerFreeTransparentDigitalClock
  25 Dec 2013 — incr 0 } proc drawTransDigit {rootname x y number} { set ret [list] if {[string is integer -strict $number] && [string length $number] == 1} { set segmentList { a 02356789 10 0 40 10 b 045689 0
• Flip Flop
  23 Jan 2011 — the nands are in stable state as 1-0 or 0-1, until one of the inputs shortly is made to carry a 0 instead of both 1, which forces either global
• Flipping a canvas
  13 Jan 2014 — require Img # create an image image create photo _image_ for {set x 0} {$x < 128} {incr x} \ { for {set y 0} {$y < 128} {incr y} \ { set r [expr {$x * 2}] set g
• Floating Palette
  29 Jan 2013 — pathname ;# keep the original widget command proc $pathname {cmd args} { set self [lindex [info level 0] 0] ;# get name I was called with switch -- $cmd { title {eval Palette::title $self $args} getframe
• Floating-point formatting
  17 Jul 2014 — various formats for floating-point numbers # foreach value {1.0 -1.0 1.01 -1.01 0.00001 -0.00001 1000000.0 -1000000.0} { set result {} foreach form {%g %-g %6g %6
• flock
  20 Sep 2015 — cannot be obtained. With this option, the command returns 1 if the lock is obtained and 0 if it is not. See your system's `fcntl` system call documentation for full details
• Flog
  10 Mar 2013 — LOG files matching prefix, outputting contents of newest as updated" exit } proc newest prefix { set lt 0 set lf {} foreach f [glob -nocomplain -types {f r} -- $prefix*] { if {[catch {file mtime $f
• floor
  25 May 2012 — is not greater than the argument. ====== % expr floor(1.0) 1.0 % expr floor(1.5) 1.0 % expr floor(-0.5) -1.0 ====== **See also** * [ceil] * [int] * [round] <<categories>> Function | Mathematics
• flow-based programming
  03 Mar 2017 — set infile [open $input_name r] set outfile [open $output_name w] while {[readline $infile line] >= 0} { set filtered_line [nocomments $line] outputline $filtered_line $outfile } close $infile close $outfile ====== Well, this
• Flowers
  28 Mar 2014 — i $::list { .0 itemconf $i -state hidden } .0 itemconf $n -state normal # show its name .name config -text $::names($n) # set background color set color $::colors($n) foreach w {. .name .0} { $w
• Fltk Tcl binding
  02 Feb 2014 — at version 1.0| | Updated:| 01/2008| | Contact:| mailto:customclients@videotron.ca | ---- The Fltk toolkit itself is at http://freshmeat.net/projects/fltk/ http://www.fltk.org/ ---- Version 1.0 of the
• fmail
  07 Jul 2011 — purl.org/NET/akupries/soft/fmail/ http://www.purl.org/NET/akupries/soft/fmail/download/fmail1.0.tar.gz Description: A script library for writing simple rule-based applications. The provided standard
• focus on 'what' rather than on 'when'
  08 Nov 2011 — lappend chosenModes $m} break } if {[info exists chosenModes]} { if {$theMode in $chosenModes} { set cmd [lrange $args 0 [expr {$c - 1}]] if {[llength $cmd] == 1} {set cmd [join $cmd]} uplevel 1 $cmd } } else
• fold
  21 May 2011 — 0 def product = foldl * 1 def diff = foldl1 - def div = foldl1 / def expt = foldr ** 1 def and = foldl && 1 ;# 1 == true def or = foldl || 0 ;# 0 == false def length = foldl count 0
• Fold in functional programming
  12 May 2016 — the left: foldl + 0 (1 2 3) ((0 + 1) + 2) + 3 (1 + 2) + 3 3 + 3 6 Fold-right works from the opposite end: foldr + 0 (1 2 3) ((0 + 3) + 2
• Following Redirects
  18 May 2015 — 30[1237] { if {[catch {array set OPTS $args}]==0} { if { [info exists OPTS(-channel)] } { seek $OPTS(-channel) 0 start } } } default { return $token } } upvar #0 $token state array set meta [set ${token}(meta
• font
  02 May 2018 — l -textvariable typeThis -width 30 pack .l button .go -command "go" -text "Go!" -width 6 -underline 0 bind . <Return> {go} bind . <Alt-g> {go} pack .go proc go {} { global typeThis fontOver bind
• Font Choosers
  07 Mar 2018 — 0 came out. ---- But now, I have a new favorite, namely http://www.tcl.tk/man/tcl8.6/TkCmd/fontchooser.htm%|%fontchooser%|%, which is built-in to [ActiveState]'s 8.6.0
• Font families workaround
  29 Jun 2007 — if 0 {[Richard Suchenwirth] 2002-02-25 - The Tk 8.4a2 port for [Windows/CE] e.g. on the [iPAQ] has the bug that the [font] families command does look up the
• font measure
  16 May 2018 — w.label-$i]} {incr i} {} set l $w.label-$i label $l -bd 0 -padx 0 -pady 0 -highlightthickness 0 \ -font $font \ -text $text set width [winfo reqwidth $l] set height [winfo
• font metrics
  07 Oct 2013 — where each normal character is the the same width as all the other characters, or is "'''0'''" if this is a proportionally-spaced font, where individual characters have different widths. The widths
• font resize
  28 Apr 2013 — value is used to avoid reversing effect on negative size values. ====== proc fontresize {i} { if {$i>0} { foreach f [font names] { set fs [font configure $f -size] if {[expr {$fs>20}]} { return
• font scaling
  11 Nov 2014 — is much more sensible. I've just been trying it out under Tcl/Tk 8.5.0, and it seems that the 'tk scaling' value is ignored when creating/configuring named fonts
• for
  26 Jan 2016 — is to `[incr]` it by `0`, like so: ====== set size [getresult from operation] incr size 0 for {set i 0} {$i<$size} {incr i} { set workingarray($i) 0 } ====== <<categories>> Arts and Crafts
• for in
  15 Feb 2016 — bananas kiwis pears] set current 0 proc next {} { variable items variable current if {$current < [llength $items]} { return [lindex $items [expr {[incr current]-1}]] } rename [info level 0] {} } } set result [list] for fruit
• For-mat
  04 Jan 2013 — System32) 71 % lindex $PL 0 list element in braces followed by "three" instead of space (System32) 72 % set PL [split $PS ,] \{one two \}three (System32) 73 % lindex $PL 0 {one ====== ---- '''See also
• for_file
  15 Aug 2013 — file {varName filename body} { upvar 1 $varName var set fp [open $filename] while {[gets $fp var]>=0} { uplevel 1 $body } close $fp } ;# ====== [break] and [continue] support would need some extra action, compare
• foreach
  21 Jan 2017 — is never evaluated: ====== % unset -nocomplain a b c % foreach {a b c} {} {break;} % info exists a 0 ====== The documentation could be interpreted as implying that the corresponding variables would receive empty values
• foreach async
  04 Apr 2016 — map [list %BODY $body] { %BODY if {[llength $args] > 0} { after idle [list after 0 [linsert $args 0 async-body]] } }] after idle [linsert $list 0 async-body] } ====== And a usage example: ====== async-foreach
• fori
  04 Sep 2012 — 5s %-14s result == %8d, in %7d microseconds} \ $name "(1 .. $limit):" $result [lindex $time 0]] } proc builtin {limit} { set sum 0 for {set i 1} {$i <= $limit} {incr i} { incr sum $i } return
• foriter - a loop command
  30 Oct 2013 — values of the loop range */ int start = 0; int end; int increment = 1; int sign = 1; int isSharedObjCounter = 0; char errorInfo[64]; memset(errorInfo,'\0',sizeof(errorInfo)); if (objc<4 || objc>6
• fork
  02 Feb 2017 — from the '''fork''' call (0 in the copy, but the [pid] of the copy in the parent). [Expect] includes a fork. So does [TclX]. Example: ====== for {set i 0} {$i < 100} {incr
• fork bomb
  11 Oct 2012 — it then you have problems... One way of doing it in sh is: #!/bin/sh $0 & exec $0 Another way in C is: ======c #include <stdlib.h> #include <sys/types.h> #include
• Formatting durations
  03 Jan 2017 — 0$d" end-1 end] set h [expr {($secs%86400)/3600}] ; set H [string range "0$h" end-1 end] set m [expr {(($secs%86400)%3600)/60}] ; set M [string range "0
• Formatting file information in CSV
  18 Jun 2011 — entry similar to the following is output: # YOURFILTER,0,-1,-1,n---------,0,0,Dec,31,1969,no_file,0,0,0,0,0, # ############################################################################## #simple sample, produces a series of comma seperated
• Formatting ls information in XML
  14 Nov 2012 — set debug 0 # If this script was executed, and not just "source"'d, handle argv if { [string compare [info script] $argv0] == 0} { while {[llength $argv] > 0 } { set flag [lindex $argv 0] putsdebug
• Formatting SQLite Query Output
  29 Mar 2017 — lreplace \ [split "[string repeat " x" [columns]] " x] \ 0 0 {}] end end {}] set templ_tc [lreplace [lreplace \ [split "[string repeat " x=x" [columns]] " x] \ 0 0 {}] end end {}] data set $templ_d topdata
• Formatting SQLite query results with struct::matrix
  22 Nov 2017 — lreplace \ [split "[string repeat " x" [columns]] " x] \ 0 0 {}] end end {}] set templ_tc [lreplace [lreplace \ [split "[string repeat " x=x" [columns]] " x] \ 0 0 {}] end end {}] data set $templ_d topdata
• formkit
  01 Dec 2005 — nicolas boretos '''pkgIndex.tcl''' package ifneeded formkit 0.1 [list source [file join $dir formkit.tcl]] '''end of pkgIndex.tcl''' '''formkit.tcl''' package provide formkit 0.1 #Boretos, 2002 namespace eval formkit
• FORTRAN via open pipe
  04 Oct 2002 — runExe 1.0 [list source [file join $dir runExe.tcl]]; ---- Here the package runExe code: uplevel #0 { global auto_path env; if {[lsearch -exact $auto_path [file dirname [info script]]] < 0} { lappend
• Forward-compatible lsort
  16 Aug 2018 — must be a multiple\ of the stride length" } elseif {![info exists index]} { set index 0 } elseif {$index < 0 || $index > $stride} { throw {TCL OPERATION LSORT BADINDEX} "when used with \"-stride\",\ the leading \"-index
• Forward-compatible tcl::prefix
  16 Aug 2018 — set i 0} {$i < [string length $common] && $i < [string length $entry]} {incr i} { if {[string index $common $i] ne [string index $entry $i]} { break } } set common [string range $common 0 [expr {$i
• Forward-compatible try and throw
  17 Aug 2018 — f\n\r\t\v]*$} $code] || [set newCode [lsearch -exact\ {ok error return break continue} $code]] < 0} { throw {TCL RESULT ILLEGAL_CODE} "bad completion code\ \"$code\": must be ok, error, return, break
• Fox Board Tcl
  11 Jan 2012 — this script in /usr/html/local/cgi-bin/t.cgi : #!/bin/sh # \ exec /tmp/tclsh8.4 "$0" "$@" puts stdout "Content-type: text/html\n" puts stdout "<HTML>" # puts stdout "[expr $env(QUERY
• Fox Board Tcl: a audio mixer application
  31 Jan 2016 — e {a} {} proc updatevol {v w} { set d [expr $v-$w] ; if {$d < 0} {set d -1} { if {$d == 0} {return done} {set d 1} } ; return $d } proc doupdatevol {} { set w [.s
• Fraction visualization
  20 Apr 2015 — r2 == $n} break set r1 $r2 } .c raise arc } wm geometry . +100+1 wm resizable . 0 0 wm title . "Fraction Visualization" set H 400 pack [canvas .c -width $H -height $H -bg
• frame
  31 Oct 2016 — Configure>> event on .f would fire. Now with propagation off: ====== % pack [frame .f] % pack propagate .f 0 % winfo reqheight .f 1 % pack [entry .f.e] % winfo reqheight .f 1 ====== An eventual <<Configure
• framesets
  02 Aug 2015 — if {[uplevel \#0 "member $$fname\($fname,slots) $sname"] == 0} { uplevel \#0 "lappend $fname\($fname,slots) $sname" uplevel \#0 "set $fname\($sname,facets) {}" return 1 } else { return 0 } } else { return 0 } } # # fremoves - remove
• fredderic's dict
  07 Nov 2012 — dictionary key ?...? varName" } ::set varName [lindex $args end] ::set args [lrange $args 0 end-1] if { [llength [lindex $args 0]] % 2 == 1 } { return -level 1 -code error \ "missing value to go with
• fredderic's gems
  01 Sep 2010 — 0 ? 1 : $v < 0 ? -1 : 0}} ====== Also there's my version of the [lshift] command. ---- [AMG]: Here's [rmax]'s clever version of sgn: ====== proc ::tcl::mathfunc::sgn {v} {expr {($v > 0
• FreeBSD
  19 Sep 2012 — my /etc/make.conf), wish8.4 constantly core dumps on the recent (2004-04-24) 5.0-CURRENT. I tried Tcl 8.4.11 on both ports (tcl84 and tcl84-threads). I
• Freecell
  25 Jul 2013 — the way the undo feature works... When did you write this game ? === > Total: > Played: 5 > Won: 0 > Lost: 5 > Current Streak: 1 loss === I thought that would mean my current streak was
• FreeDB Access
  11 Jun 2009 — 1.0&proto=1"] upvar #0 $token state set data $state(body) if {$data==""} {tk_messageBox -message "Try again - no data"; return} # 210 is code for found CD if {[lindex $data 0
• FreeHand Formula Entry System
  19 Apr 2009 — that time, a number of others have contributed to and changed FFES. In the new release (0.4, August 2007) a new operation has been added to import symbols from images, a
• FreeSurfer
  14 Mar 2013 — the distribution. [http://www.freesurfer.net/images/splash.jpg] [http://brainybehavior.com/neuroimaging/wp-content/uploads/2010/06/rawavg.nii_.gz-aseg2raw.nii_.gz-ITK-SNAP-2.0.0.png] <<categories>>Visualization
• freetypeext
  18 Jan 2013 — website) Usage (assuming the user runs the install target): ======none $ tclsh8.5 % package require freetypeext 1.0 % freetype wrong # args: should be "freetype font size text RGBA-color widthvar heightvar ?char-width
• Frequency calculation
  12 Apr 2015 — LANGUAGE" - 0.178571428571 -A 0.0357142857143 -I 0.0357142857143 -L 0.0357142857143 -S 0.0357142857143 -T 0.0357142857143 A 0.107142857143 A- 0.0357142857143 AG 0.0357142857143 AN 0.0357142857143 C 0
• Freshmeat Newsletter Filter
  28 Nov 2011 — FreshmeatMailFilter.tcl > converted.txt ====== #!/bin/sh #\ exec tclsh8.4 "$0" "$@" ################################################################################ ################################################################################ # # Written by Marty Backe # # Freshmeat newsletter filter. # # Rev Date Changed By Comments # ----- ----------- ---------- ----------------------------------------------- # 1.0 30 Dec 2003 M Backe Initial release. # ################################################################################ ################################################################################ # # Load
• from ut8 to ascii (from french to us)
  11 Jun 2012 — if {[regsub -all "ç" $result "c" match]} { set result $match } return $result } set inputfile [lindex $argv 0] set fin [open $inputfile "r"] set fout [open $inputfile.ascii "w"] fconfigure $fin -encoding utf
• fruho
  04 Oct 2018 — Description | An open-source zero-configuration [VPN] manager for [Linux] written in Tcl. |& &| Updated | 2018-07-30 (version 0.0.26) |& &| License | GPL-2.0 |& ** Screenshot ** [img_fruho] ** Discussion ** <<categories>> Application | Internet
• frusta - Manipulating 3d printer data in Tcl
  03 Nov 2013 — hosted it at chisel (http://chiselapp.com/user/seadevil/repository/frusta/index) As of version 0.0 it can read ASCII STL, and ASCII gcode and draw those objects in a canvas3d
• fsub: in-place substitution
  12 Dec 2007 — if 0 {[Richard Suchenwirth] 2003-10-23 - I needed this tiny code to do regular expression substitution in files "in place" - the alternative would have been to fumble with Perl :(. The code
• Fuel Cost Estimate Log Slot Calculator Example
  05 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff " .frame.entry7 insert 0
• Full program trace onwards
  21 Sep 2017 — 1 if the procedure should be traced, 0 otherwise. # # Side Effects: # None. proc ::proctrace::Tracable { name } { # Traverse -allow(ance) list to allow procedure. set allow 0 foreach ptn ${vars::-allowed} { if { [string
• full view wrapped text
  28 Apr 2013 — set y 0} {$y < 21} {incr y} { .t insert end [format "%s%d.%02d" $first $x $y] set first " " } .t insert end \n } } proc adapt {{maxloop 100}} { .t see 1.0 update
• Full-adders
  01 Jan 2015 — q 0 0 0 0 0 0 0 1 0 1 0 1 0 0 1 0 1 1 1 0 1 0 0 0 1 1 0 1 1 0 1
• FullyTransparentDigitalClock
  26 Sep 2016 — of 0: ====== set segmentList { a 02356789 0 0 60 10 b 045689 0 0 10 60 c 0234789 50 0 10 60 d 2345689 0 50 60 10 e 0268 0 50
• Fun with Chinese Characters
  02 Dec 2009 — 0> 'I'.length => 1 irb(main):002:0> '我'.length => 3 irb(main):003:0> quit ; python Python 2.6.4 (r264:75706, Nov 24 2009, 21:34:34) [GCC 4.0
• Fun with logicl set operations
  27 Jan 2005 — 0 in: A 0 B 0 C 0 D 0 E 1 F 1 G 0 # 1 in: A 0 B 0 C 0 D 0 E 1 F 1 G 0
• Fun with TclOO, coroutines and apply
  14 Mar 2013 — 1 { lappend result [my generate] } return $result } method take {n {suffix ""}} { set result {} for {set i 0} {$i < $n} {incr i} { lappend result [my generate] } while {$suffix ne ""} { my generate lappend result
• func
  25 Jan 2006 — as well: func atomar list {[lindex $list 0] eq $list} func empty list {[llength $list] == 0} func in {list element} {[lsearch -exact $list $element] >= 0} func limit {x min max} {$x<$min
• Functional composition
  25 Mar 2014 — args { set name [info level 0] set closing [string repeat {]} [expr [llength $args]-1]] set body "[join $args { [}] \$x $closing" proc $name x $body set name } if 0 {Now testing... both use
• Functional programming (Backus 1977)
  25 Mar 2014 — puts [abs -42],[abs 0],[abs 42] Def sgn = {cond {< 0} {K 1} {> 0} {K -1} {K 0}} proc K {a b} {set a} puts [sgn 42]/[sgn 0]/[sgn -42] #--Another
• Functions As Values
  17 Jun 2015 — funcval {set counter 0} rename unknown funcval::unknown proc unknown args { set e [catch [list uplevel ::funcval::unknown $args] retval] if {!$e} { return $retval } set func [lindex $args 0] set funcargs [lrange
• Funky Tcl extensibility
  16 Oct 2013 — must still be according to Tcl rules): ====== proc selfextract {what} { set caller [lindex [info level -1] 0] set res {} foreach line [lrange [split [info body $caller] \n] 2 end] { if {-1 != [string
• Further Discussion
  28 Jan 2013 — Plugin'''? Does [WebWiseTclTk] work with it? I read that [WebWiseTclTk] would work with plugins version 2.0 or higher, but that was back in 2003. Any info on this? Could the ideas
• fuse
  18 Jan 2012 — SEH] 20080819 -- Version 1.0 of the tcl-fuse extension has been released [http://sourceforge.net/projects/tcl-fuse/] as a product of the 2008 Google Summer of Code. This package makes
• future
  20 Mar 2015 — c package provide future 1.0 critcl::ccode { #include <tcl.h> #include <stdio.h> static void futureFreeIntRep(Tcl_Obj *objPtr); static void futureDupIntRep(Tcl_Obj *srcPtr, Tcl_Obj *dupPtr); static void futureUpdateString
• Fuzzy Logic
  20 Jan 2013 — and B is A*B, let's say P(a) = 0.5 and P(b) = 0.5, the combined probability is 0.25. Sort of OK, but it means we must assume
• Fuzzy string search
  18 Jan 2012 — set g 0 set i1 0 set i2 0 set len1 [llength $l1] set len2 [llength $l2] set t1 [lindex $l1 $i1] set t2 [lindex $l2 $i2] set l 0 while {$i1
• Gadgets
  25 Nov 2013 — array size self]==0} names {array names self} {} {array get self} } gadget type List { = {eval set self $args} += {lappend self $args} @ {lindex $self $args} empty {expr [llength $self]==0} sort {lsort $self
• game controller
  08 Apr 2015 — button number" trace add variable ::jbuttons(0.0) write {type <Tab>} trace add variable ::jbuttons(0.3) write {type <Shift-Tab>} trace add variable ::jbuttons(0.1) write {typelist {<Key-T> <Key
• Game of Life
  29 Apr 2018 — off {-1 0 1} { foreach y_off {-1 0 1} { if { ! ($x_off == 0 && $y_off == 0)} { set i [expr {$x + $x_off}] set j [expr {$y + $y_off}] if {(0 <= $i
• Gamma Distributions
  16 May 2012 — 0.25}]] # Total trials (5000) * step (0.25) * average value set distval [expr {int(5000 * 0.25 * 0.5 * ($distvallow + $distvalhigh))}] lappend distcounts $distval } # Assume none are left lappend distcounts 0.0
• gammaButton
  03 Apr 2011 — width $image] set height [image height $image] for {set y 0} {$y < $height} {incr y} { set row [list] for {set x 0} {$x < $width} {incr x} { set trbit [$image transparency get $x
• Garbage Collection and Strong/Weak References
  08 Jul 2015 — release of OS X 10.5 in 2007 Apple introduced garbage collection for Objective-C 2.0, using an in-house developed runtime collector. However, with the 2012 release of OS X
• GarTcl
  27 Dec 2007 — 7 Oratcl 4.1 tDOM 0.7.8 tclreadline 2.1.0 tls 1.4.1 snack 2.2 tablelist 3.0 Updated: 07/10/2003 (Version 0.7 released. Update to
• Garuda
  31 Jul 2018 — package require Garuda garuda clrappdomainid; # returns "1" garuda clrversion; # returns "v2.0.50727" or "v4.0.30319" garuda clrrunning; # returns "0" or "1" # # NOTE: In the following command output the zeros should
• GASP
  27 Sep 2017 — gzip and tar | | | as well as multimedia protocols for jpeg, gif, and png. | | | Currently at version 1.0 | &| Updated | 08/2002 |& &| Contact | mailto:laurent.riesterer@free.fr?subject=GASP |& <<categories>>Application | Protocol
• Gathering packages' ifneeded scripts
  27 Sep 2012 — using tclsh \ exec tclsh8.4 "$0" "$@" ### Code: ## allow more directories to be added to the search path foreach dir $argv { if { [ lsearch -exact $::auto_path $dir ] < 0 } { lappend ::auto_path $dir } } ## obtain
• Gaussian Distribution
  11 Mar 2015 — 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
• Gdbm
  21 Nov 2017 — size_t keyCap = 0, valueCap = 0; /* Determine the subcommand. */ if (argc < 2) { ERR("wrong # args: should be \"%s subcommand ?arg ...?\"", fileTail(argv[0])); return EXIT_FAILURE; } for (i = 0; subcommandNames[i]; ++i
• GE ICE Tcl compiler
  26 Jan 2012 — ice.html --> BROKEN on 08 Mar 2004 ftp://ftp.dnai.com/users/i/icemcfd/tclc/ice2.0/ --> BROKEN on 08-03-2004 Purpose: discuss this product * What is the GE ICE Tcl
• Geany
  30 Sep 2017 — make/execute ---- [witek] - 2009-06-29: I recently submitted a patch so geany - up from version 0.18 - should be able to parse Tcl8.6 classes, methods and namespaces. It still displays
• General Tianji' Horse Race Strategy from China and eTCL demo example calculator, numerical analysis
  12 Mar 2017 — b,0.72403450297379612, 0.86678423540051297, 0.13588783151278638 , 0.86678423540051297 , 0.042644376420716001 , 0.042644376420716001 3 ,0.87722261151169545 ,horse_c,2,0.66666666666666663,horse_a,horse_b,0.87722261151169545, 0.84789148059109765, 0.84789148059109765 , 0
• Generating a color image
  20 Jan 2013 — compute colors set pixels {} set k [expr {128.0 / $size}] for {set i 0} {$i < $size} {incr i} \ { set row {} for {set j 0} {$j < $size} {incr j} \ { set R [expr {int
• Generating a generic platform name
  17 Jul 2016 — way. Here's a start: ====== proc platform {} { global tcl_platform set plat [lindex $tcl_platform(os) 0] set mach $tcl_platform(machine) switch -glob -- $mach { sun4* { set mach sparc } intel - i*86
• Generating Accessible HTML
  27 Dec 2014 — something like [xmlgen] and doing it as shown in this basic example: ====== package provide htmlable 1.0 package require xmlgen namespace import ::xmlgen::* namespace eval htmlable { namespace export * } proc htmlable::widget {type
• Generating HTML with commands styled after Tk
  09 Jul 2012 — and defaults) set tpl { 1 "" -background: "" -bg: "" -font: "" -foreground: "" -fg: "" -justify: "left" -show 0 -state: "normal" -text: "" -width: 0 -maxlength: "" } array set a [sparx $tpl $args] # --- do neccessary translations from pseudo-Tk
• Generating musical notes on windows
  03 Jan 2012 — Tcl_InitStubs(interp, "8.4", 0) == NULL) { return TCL_ERROR; } if (Tcl_PkgRequire(interp, "Tcl", "8.4", 0) == NULL) { return TCL_ERROR; } if (Tcl_PkgProvide(interp, "beep", "0.7.5") == TCL_ERROR
• Generating random strings
  27 Dec 2014 — list min $A] [list max $z]] { set range [expr {$max-$min}] set txt "" for {set i 0} {$i < $length} {incr i} { set ch [expr {$min+int(rand()*$range)}] append txt [binary format
• Generating random tests
  07 Feb 2013 — 0 100.0] precond { $x > 0 } precond { $y > 0 } # # Make sure the variable result has a value ... TODO set result {} run { set result [addlog $x $y] } postcond { $x <= 0.0 || $y <= 0
• Generating The Wake On Lan Magic Packet
  20 May 2014 — source [auto_execok udp.kit] package require udp 1.0.8 # Select the ipaddress and the port number. set ipaddress [lindex $argv 0] set port 32767 # Create a broadcast sending udp socket
• Generic Lock Server
  03 Jul 2011 — res)] != 0} { puts [lindex $lock($res) 0] "LOCKED $res" } return 1 } set idx [lsearch -exact $lock($res) $chan] if {$idx != -1} { set lock($res) [lreplace $lock($res) $idx $idx] } return 0 } # You
• Generic operations
  02 Feb 2012 — x} rat {make(compl) [expr 1.0*[num(rat) $x]/[den(rat) $x]] 0} "" {make(compl) $x 0} } } proc lower(compl) x { expr {[im(compl) $x]==0? [real(compl) $x]: $x} } ====== In
• Genetic Algorithms
  28 Sep 2016 — 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
• Geneva Drive
  21 Jun 2015 — V(-sides) if {$n == 0} { ;# 0 sides => circle set n [expr {round(($rx+$ry)*0.5)}] if {$n <= 2} {set n 4} } set dir [expr {$V(-extent) < 0 ? -1 : 1}] ;# Extent can
• Gentoo
  17 Jul 2016 — HOMEPAGE="http://tktreectrl.sourceforge.net/" SRC_URI="mirror://sourceforge/tktreectrl/${P}.tar.gz" LICENSE="BSD" SLOT="0" IUSE="" KEYWORDS="~x86" DEPEND=">=dev-lang/tcl-8.3.1" src_unpack() { unpack ${A} } src
• geodesy
  07 Jul 2011 — pt1 pt2} { set K11 111.13209 set K12 0.56605 set K13 0.0012 set K21 111.41513 set K22 0.09455 set K23 0.00012 set dlat [expr {[lat $pt1] - [lat
• Geographic World Maps
  17 Jan 2013 — lindex $fields 2] \"],[lindex $fields 0] set contour {} } 2 {lappend contour [lindex $fields 0] [expr {-[lindex $fields 1]}]} } } } proc canvas'scale {w factor} { $w scale all 0 0 $factor $factor $w config
• Geometrical constructions
  30 Nov 2012 — 0.0 0.0 mode "polar" colour "black" draw circle 5.0 colour "red" moveto 5.0 90 draw disc 0.1 draw arc 5.0 -90 -20 draw linerel 5.0
• Geometry
  23 Sep 2012 — 0 0.0 0.0 $x] \ [list 0.0 1.0 0.0 $y] \ [list 0.0 0.0 1.0 $z]] } } # main -- # A small test # set p0 [list POINT 0.0
• Geometry Managers
  20 Dec 2013 — f.bot]}] .f configure -width $w1 -height $h place .f.top -x 0 -y 0 place .f.bot -x 0 -y [winfo reqheight .f.top] -relwidth 1 ====== Did you know that you
• George Marsaglia's PRNG
  25 Jul 2011 — set p [::Plotchart::createXYPlot .c {0 1 0.2} {0 1 0.2}] set x [::PRNG::marsaglia] $p dataconfig series -type symbol -symbol dot for {set i 0} {$i < 1000} {incr i
• German income tax
  09 Oct 2017 — tmp*($tmp*0.0000022376+0.2397) + 939.57] } elseif {$e > 8820} { #zone 2 set tmp [expr $e-8820] set res [expr $tmp*($tmp*0.0000100727+0.14)] } else {set res 0.00
• Get browser information (path and version)
  13 Oct 2016 — keys $pattern_of_last_key] if {[llength $list_of_subkeys] != 0} { set key_name "$subpath_of_keys\\[lindex $list_of_subkeys 0]" } else { continue } } else { set key_name $subpath_of_keys } try
• Get the color of the pixel under the pointer
  27 Dec 2014 — mouse-pointer. Right now, this works only for an image placed on the canvas at 0,0 : ---- ====== package require Img proc int x { expr int($x) } proc ShowPixel {x y i} { set
• getfiles cached
  12 Jul 2016 — 1 } { set is_valid_dir 0 break } } if {$is_valid_dir == 1} { # recusive call ... set subdir_list [GetFiles $dir_name $pattern $searchcmd] if { [llength $subdir_list] > 0 } { foreach fname $subdir_list { lappend
• getopt
  14 Oct 2017 — the flag was found, else 0. ====== proc getopt {_argv name {_var ""} {default ""}} { upvar 1 $_argv argv $_var var set pos [lsearch -regexp $argv ^$name] if {$pos>=0} { set to $pos if {$_var
• GetProcName/GetScriptName
  24 Aug 2018 — of the script. For this I wrote the following procs: ====== proc getProcName {} { set currentProc [info level 0] set callingProc [info level 1] # When not called from a proc, callingProc is the same
• getputs
  18 Jan 2013 — args end] set arg1 [lindex $args 0] set nonew [string equal $arg1 -nonewline] switch -glob [llength $args],$nonew { 1,* {set chan stdout; append str \n} 2,0 {set chan $arg1; append str
• gets
  07 Jun 2016 — when you reach the end of the file, use the following structure: ====== while {[gets $filestream line] >= 0} { # do what you like here } ====== When structuring your code this way ''(and if your channel
• gets workaround
  09 Dec 2012 — ne ""} { set v $res; string length $v } else {set res} } else { uplevel 1 tcl::[info level 0] } } ====== ---- [RS] 2005-02-09: As today's breakfast fun project, here's a variant that
• getsBG
  14 Nov 2002 — and does not conflict with other eventReads set i 0 while {[info exists ReadableStatus($chan,$i)]} { incr i } set ReadableStatus($chan,$i) 0 set oldScript [fileevent $chan readable] fileevent $chan readable [list
• Getting a value or a default value
  28 Sep 2018 — yyy ====== A variant of this is to define the unwanted value as any logically false value (`0`, `false`, or `no` in Tcl): this works like the ''or'' operator (however it is written
• Getting Cleaned Up Output from a Command
  24 Aug 2018 — Created by [CecilWesterhof]. Sometimes I need the output from a command. But not all commands return 0 on success. For example when you ask the status of a systemd service that is
• Getting stock quotes over the internet
  01 Sep 2012 — token]] "\r\n"] { if {$res != ""} { set res [split $res ,] lappend actual [lreplace $res 0 0 [string trim [lindex $res 0] {{}""}]] } } return $actual } proc portfolio::dumpData {data} { foreach result $data { set items [split
• Getting the Canvas View Area in Pixels
  07 Jan 2012 — lindex $yview 0] * $totalYArea)}] set yend [expr {int([lindex $yview 1] * $totalYArea)}] return [list $xstart $xend $ystart $yend] } #Just some simple demonstration code proc main {} { pack [canvas .c -scrollregion {0 0 5000
• Getting the Tcl object type
  04 Aug 2013 — may work with 8.0, but we are using strictly stubs here, * which requires 8.1. */ if (Tcl_InitStubs(interp, "8.1", 0) == NULL || Tcl_PkgProvide(interp, "typeof", "0.1.1") != TCL
• gidrw
  30 Nov 2012 — proc ::gidrw::run {} { .c delete all .c configure -background white uplevel #0 [.t get 1.0 end] } proc ::gidrw::save {{new 0}} { set types { {{gidrw format} {.gid}} {{all files} {*}} } if {$::gidrw::filename
• GIF
  05 Dec 2017 — create photo fooble -width 100 -height 100 fooble blank for { set x 0 } { $x < 100 } { incr x } { for { set y 0 } { $y < 100 } { incr y } { if { $x >= 38 && $x <= 62 && $y >= 12
• gifblock
  02 Sep 2013 — 0} } {Graphic Control} { # ........................ Graphic Control Extension gif.ValidateBlock block {} { { reserved 0} {{disposal method} 0} {{user input?} 0} {{delay time} 0} {{transparent color index} -1} } set istransidx [expr {${block(transparent color index)} >= 0
• Giggle
  22 Oct 2015 — via a series of templates. | | License | BSD (according to `DESCRIPTION.txt`) | | Updated | 2003-05-01 (version 0.2) | Giggle [http://www.ics.mq.edu.au/~cassidy/giggle/] is a [weblog] application written
• Gimp
  13 Nov 2014 — pygimp/ * .. and yes! the Gimp-[Tcl] used to exist, but the latest version, for Gimp 1.0, seems to be from 1998 :-( <<br>> http://cvs.gnome.org/lxr/source/gimp-plugins-unstable
• GIN
  26 Jan 2011 — 0 listen info } variable config variable aliases variable aliaslist { info 224.1.0.0:7770 data 224.1.0.0:7771 cmd 224.1.0.0:7772 log 224.1.0.0
• Git
  16 Apr 2018 — tree specifying the current state of one's working directory, kind of like: ====== proc commit {} { upvar #0 $::current_branch current set current [list commit $::current_tree $current] } ====== (Rather than referencing things with
• git timestamps
  01 Dec 2013 — git add .git_mtimes } save_mtimes exit 0 ====== ****post-checkout**** ====== #!/usr/bin/tclsh # post-checkout arguments: # ref prev. HEAD; ref new HEAD; branch(1)/file(0) checkout # Restore all mtimes of files
• gles2
  19 Oct 2013 — user/apw/repository/GLES2/home%|%gles2%|% is a [Tcl] wrapper package for the [OpenGL ES] 2.0 library. It includes a [Tcl] wrapper for building bitmap images from [FreeType] font texts, which
• glob forwards compatibility
  23 Aug 2014 — lindex $a 0] set a [lreplace $a 0 0] } else { set numargs [expr {[lindex $the_arg 1] -1}] $set o($arg) [lrange $a 0 $numargs] set a [lreplace $a 0 $numargs] } } } } } rename
• global
  10 Oct 2018 — kanga.org): ====== proc globalpat {args} { foreach pattern $args { set varnames [info globals $pattern] if {[llength $varnames] != 0} { uplevel 1 global $varnames } } } proc foo {} { globalpat *tcl* puts $tcl_patchLevel } foo ====== Result: ====== 8.2
• GLSL
  06 Jun 2010 — documentation/glsl/] for more information. [Tcl3D] wraps the GLSL library as part of OpenGL version 2.0. It also has some demonstration programs [http://www.tcl3d.org/cgi-bin/democont.tcl?../demos
• Gmail Filters
  06 May 2015 — argc == 0} { set gmailFilter ~/Downloads/mailFilters.xml set argv $gmailFilter return } if {[llength $argv] != 1} { puts stderr "usage: gmailFilter gmail_exported_filter_file" exit 1 } set csv [ParseFilterFile [lindex $argv 0]] puts
• GmlProject
  03 Jan 2016 — ComputerScienceDpt/Software/GmlProject1.0a.tar.gz ** Description ** Based on Tcl 7.4/Tk 4.0 but 1.0 version will run on Tcl 7.5/Tk 4.1 at least. Contains a
• Gnocl Desklets -PhotoAlbum
  24 Mar 2011 — next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl #--------------- # initialize the album #--------------- proc init {} { set ::dt 3000 set ::size {200 150} set ::i 0 set ::first 1 # create a list
• Gnocl EntryIcons
  09 Apr 2011 — set d 0.05 for {set i 0} {$i < 20} {incr i} { $ent progress [expr $i * $d] gnocl::update after 100 } $ent progress 0.0 } if {1} { for {set i 0} {$i
• Gnocl JukeBox
  18 Mar 2011 — So, here it is. ====== #--------------- # playOGG.tcl #--------------- #!/bin/sh #\ exec tclsh "$0" "$@" package require Gnocl set box [gnocl::box -orientation vertical] set i 0 foreach track [lsort [glob *.ogg]] { set b($i) [gnocl
• GNocl Megawidget - gnocl::listPicker
  01 Sep 2016 — items -headersVisible 0] set bt [gnocl::button -text "Get Selected Options" -onClicked { puts [$lp get]}] $box add $lp -fill {1 1} -expand 1 $box add $bt -fill {0 0} -expand 0 -align
• Gnocl Megawidget Creation Template
  01 Sep 2016 — widget_::configure ${wid}_ $args" # widget command proc $wid { cmd args } { set wid [lindex [::info level 0] 0] eval "gnocl::_widget_::cmd ${wid}_ $cmd $args" } return $wid } #=============== # DEMO #=============== proc demo {} { set wid(1
• Gnocl Megawidget Creation using TclOO
  03 Sep 2016 — eval [set [lindex $args 0]] [lindex $args 1] [lrange $args 2 end] } method configure { args } { my variable parts foreach var $parts { my variable $var } eval [set [lindex $args 0]] configure [lrange $args
• Gnocl Simple Stock Item Viewer
  16 Apr 2011 — 0tfeojHILvM/s800/Screenshot-stockItems.tcl.png] ====== #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl set stockItems [lsort [gnocl::info allStockItems] ] set lst [gnocl::list \ -titles {"icon
• Gnocl Widget Tree -Revisited
  09 Feb 2014 — J Giddings # 15-Dec-2009 #--------------- # Description: #--------------- #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl #--------------- # Overload the gnocl widget. # http://wiki.tcl.tk/1146 #--------------- proc gnocl::widgetTree
• gnocl::abiwidget
  09 Feb 2014 — s800/abiwidget.png] And sample script.. ====== #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl package require GnoclAbiWidget set aw1 [gnocl::abiwidget] # pack into a toplevel window
• gnocl::assistant
  08 Aug 2012 — header & sidebar images # define proceedure associate with the page #--------------- #--------------- # page 0 #--------------- set page(0) [gnocl::image -image "%/WarnerBros.jpg" ] proc action(0) {args} { puts "$args" } #--------------- # page 1 #--------------- set page(1) [gnocl::label
• gnocl::calendar
  05 Jul 2009 — J Giddings # Date: 07/05/09 #--------------- #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" #--------------- package require Gnocl set cal [gnocl::calendar] gnocl::window -child $cal -title gnocl::calendar gnocl
• gnocl::curve
  05 Jul 2009 — J Giddings # Date: 07/05/09 #--------------- #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" #--------------- package require Gnocl set curv [gnocl::curve] gnocl::window -child $curv -widthRequest 200 -heightRequest 200
• gnocl::dial
  18 Mar 2018 — 0" "$@" package require Gnocl set val1 50 gnocl::dial -name dial1 -variable val1 -value 75.0 -digits 2 -tooltip "gnocl::dial" -description Oranges gnocl::dial -name dial2 -variable val1 -value 75.0
• gnocl::fixed
  09 Feb 2014 — fixed.tcl.png] And here's the script: ====== # basic Tcl/Gnocl Script #!/bin/sh \ exec tclsh "$0" "$@" package require Gnocl set but(1) 10 set but(2) 30 set but(3) 50
• gnocl::gCurve
  05 Jul 2009 — WJG] (22/0/09) Another [GIMP] legacy [widget], the [gnocl]::gCurve is the implementation of the [Gtk] gamma curve editing widget used to explicitly set the contrast range of graphic image in
• gnocl::iconView
  05 Jul 2009 — J Giddings # Date: 07/05/09 #--------------- #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" #--------------- package require Gnocl set iv [gnocl::iconView \ -icons [list wjg.png gnocl.png wjg.png
• gnocl::OpenGL
  25 Jun 2012 — J Giddings # Date: 15/05/09 #--------------- #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" #--------------- package require Gnocl package require GnoclOpenGL set ogl1 [gnocl::OpenGL] set box [gnocl::box] $box
• gnocl::ruler
  05 Jul 2009 — bar push "%x %y"} ] set tab [gnocl::table -homogeneous 0] $tab addRow [list "" $Hrul] -expand {1 0} $tab addRow [list $Vrul ] -expand { 0 1} $tab add $can 1 1 set box [gnocl
• gnocl::sourceView -Tcl bindings for the GtkSourceView Code Editing Widget
  06 Jul 2009 — the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl package require GnoclSourceView set sourceView [gnocl::sourceView \ -showLineNumbers 1 \ -highlightCurrentLine 1 \ -insertSpace 0 \ -showLineMarks 1 \ -rightMargin 25 \ -showRightMargin 1 \ -tabWidth
• gnocl::textBuffer
  09 Feb 2014 — low, lean low, As long ago. my love, how long ago.} set tbuf(0) [gnocl::textBuffer -text $verse(0)] set tbuf(1) [gnocl::textBuffer -text $verse(1)] set tbuf(2) [gnocl::textBuffer
• gnocl::tree
  09 Dec 2009 — 1 \ ] # add some rows $tree add {} {Mamals Birds Bugs} # add branches to entry 0, ie mammals $tree add 0 {{Cat 4} {Dog 4} {Human 2}} # add a couple of branches to entry
• gnocl::vte
  05 Jul 2009 — the script to launch the terminal: #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl package require GnoclVTE gnocl::window -title VTE -child [gnocl::box -children [gnocl
• gnocl::webKit
  13 Jun 2015 — string compare -length 7 "http://" $page] != 0 } { set page "http://$page" } [set $viewer] load $page return $page } set browser [gnocl::browser] gnocl::window \ -child $browser \ -setSize 0.75 \ -title "Gnocl WebKit Demo
• GNOME
  06 Mar 2010 — Tcl extension (package) that implements gtk+/gnome, not to be a direct mapping from gtk 2.0, but to provide easy-to-use commands to build quickly gnome-compliant user interfaces (including
• gnome-tcl
  14 Jan 2012 — 7Eszekeres/gnome-tcl/ (link not working 2004-Jan-15) Description: Tcl binding for GTk+. Version 0.0.1 is for Tcl 8.2 and supports only some GTk+ bindings. Updated: 09/2000
• GnoWS - Gnocl Workspaces
  30 Mar 2011 — open $fn w] puts $fd [$ws(ws) get {0 0} end] close $fd $ws(sbar) push "Workspace saved to $fn." } set ws(mod) 0 } proc saveFileAs {wname} { upvar $wname ws set fn
• gnuerr
  20 Aug 2006 — string equal "-exit" [ lindex $args 0 ] ] } { set exit 0 } elseif { [ llength $args ] < 2 } { error "expected argument after \"-exit\"" } elseif { [ set exit [ lindex $args 1 ] catch { incr exit 0 } ] } { error "expected integer but
• gnuJ lraC
  11 Dec 2007 — 0 for {set i 0} {$i < ([llength $points] / 2)} {incr i} { set start [lrange $points $offset [expr {$offset + 1}]] set rest [lrange $points [expr {$offset + 2}] end] set x1 [lindex $start 0
• gnuplot
  07 Apr 2018 — args } { global gnuplot gnuplot_rx set cmdline "" set argc [llength $args] set tryDaq 0 if { $argc >= 2 && [lindex $args 0] == "plot" } { set tryDaq 1 } #----------------------------------------------------------------- # try to interpret arg as a filename #----------------------------------------------------------------- set
• Going Loopy with Coroutines
  20 Apr 2010 — via iteration proc fst pair { lindex $pair 0 } proc nextFib prev { list [fst $prev] [expr [join $prev +]] } proc fibs {} { generator map fst [generator iterate nextFib {0 1}] } ====== <<categories>> Control Structure | Data Structure
• Google
  20 Jan 2013 — global tcl_platform set ua "Mozilla/4.0 ([string totitle $tcl_platform(platform)];\ $tcl_platform(os)) http/[package provide http]" if {[string length $app] > 0} { append ua " " $app } else { append ua " Tcl
• Google AJAX search API
  24 Jan 2008 — append url [::http::formatQuery callback GwebSearch.RawCompletion context 0 lstkp 0 rsz large hl en sig $api_key q $query key internal v 1.0 nocache 7] set t [http::geturl $url
• Google Chart API Wrapper
  06 Jul 2009 — chart_array(width) $wid set chart_array(height) $hgt set chart_array(low) 0 set chart_array(high) 0 } proc GChartSize {chart_hnd wid hgt} { upvar $chart_hnd chart_array set chart
• Google Translate ajax API
  31 Mar 2010 — t] == 200 } { set d [http::data $t] set idx 0 while { $idx >= 0 } { set idx [string first {responseData} $d $idx] if { $idx >= 0 } { set jd [json::json2dict [string range $d [expr {$idx
• Google Translation via http Module
  12 Feb 2015 — Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.12) Gecko/20070508 Firefox/1.5.0.12}; proc progress {token total count} { if {$total == 0} { set
• Googling with SOAP
  16 Sep 2012 — 0]] } c* { set url [lindex $args 0] set d [GoogleSearchService::doGetCachedPage $Key $url] set r [base64::decode $d] } default { usage } } return $r } proc googleQuery {args} { global Key array set opts {start 0
• gotcha
  11 Oct 2018 — expr-essions]! Another example: ====== expr {{} < 0} ;# -> 1 expr {{} > 0} ;# -> 0 expr {{} == 0} ;# -> 0 ====== For the `<` and `>` operators, `{}` is interpreted as an integer, `0`. For the `==` operator, 0 is interpreted as a string
• Goto in Tcl
  06 Feb 2017 — id} {uplevel set goto $id; return -code continue} uplevel set goto [lindex $body 0] set tmp [lindex $body 0] foreach {cmd label} [lrange $body 1 end] { if {$label==""} {set label default} lappend
• GPL
  23 Oct 2017 — gpl-1.0.html%|%GPL v1 (1989) license text]: [http://www.gnu.org/licenses/gpl-2.0.html%|%GPL v2 (1991) license text]: [http://www.gnu.org/licenses/gpl-3.0.html
• GPS RPN
  15 May 2012 — 0] = 6 > dup > stack [0] = 6 [1] = 6 > * > stack [0] = 36 > : say 'Hello' emit . > : George 'George' emit . > : joined say George . > joined Hello George >5 6 < > stack [0] = 36 [1] = 1 > - > stack [0
• GPSFeed
  15 Oct 2012 — 3-2005) for aesthetic reasons. ---- [dzach] 11-3-2005: A number of changes (now in version 0.52) besides the aesthetic name change from GPSFeed+ to gpsfeed+: * Configuration panel has now 10
• grab
  22 Feb 2016 — hacks/finfo?name=modules/tkImprover-0.tm%|%tkImprover%|%): ====== # FIXME: this assumes the parent is normally -disabled 0. rename grab _grab proc grab {args} { switch -glob -- [lindex $args 0] { set - .* - -* { set win [lindex
• grabchat
  19 Jan 2006 — Authorization" \ [concat "Basic" \ [base64::encode $login:$passwd]] return $headers } set proxy [lindex $argv 0] proxyset [lindex [split $proxy :] 0] [lindex [split $proxy :] 1] set headers [list "Pragma" "no-cache"] if {$argc > 1
• Gradient Header Panel
  15 Oct 2015 — we better use only # bg0 as background if {[lindex [ winfo rgb $self #010000 ] 0] != 257 } { $win create rectangle 0 0 $width $height -tags gradient -fill [ $self cget -bg0 ] } else { foreach {r1 g1
• Gradients Color Transitions
  05 Jul 2011 — 255 / 65535}].0 } #puts "c1: $r1 $g1 $b1" #puts "c2: $r2 $g2 $b2" if {$n == 1} { set r_step 0.0 ; set g_step 0.0 ; set b_step 0.0 } else
• grammar::fa demo
  07 Apr 2014 — what scale all 0 0 1.25 1.25 } proc C_zoomout {what} { set ::G_scale [expr {$::G_scale*0.8}] $what scale all 0 0 0.8 0.8 } proc MakeGui
• Graph An Image
  07 Jun 2012 — xs [lindex $sp 0] set ys [lindex $sp 1] set xe [lindex $endp 0] set ye [lindex $endp 1] set dist [expr {hypot($xe-$xs,$ye-$ys)}] if {$dist>0} { set dx
• Graph editors
  25 Apr 2018 — since 2014-04. [https://projects.coin-or.org/SYMPHONY/browser/trunk/SYMPHONY/src/DrawGraph/IGD_1.0?order=name%|%IGD (Interactive Graph Drawing)]: A graphical application and library of Tcl/Tk functions
• Graph theory in Tcl
  23 Mar 2016 — g { foreach node [nodes $g] {if {[degree $node $g]<2} {return 0}} foreach edge [edges $g] {if [isBridge $edge $g] {return 0}} return 1 } ====== '''Disclaimer:''' These conditions are not enough, they will
• Graphics with Tcl
  08 Feb 2017 — reality display program https://web.archive.org/web/20081201234530/www-unix.mcs.anl.gov/~mickelso/CAVE2.0.html%|%Cave5D%|%. [http://www.ssec.wisc.edu/~billh/ecmwf.gif] * http://www.cs.cornell.edu
• Graphlet
  03 Jan 2016 — dist { { URL http://www.fim.uni-passau.de/fileadmin/files/lehrstuhl/brandenburg/projekte/graphlet/graphlet-5.0.1-lgpl.tar.gz sha256sum f84c6dde860f2f38ca9f462270ab0bb4b0470af6db1b546a98c4f260d6ad0a53 } { URL http://www.fim.uni-passau.de/fileadmin/files
• Gravatar
  20 Oct 2010 — size 0} {default ""} {rating ""}} { set url [::gravatar::get_url $mail $size $default $rating] return https://secure.[string range $url 11 end] } package provide gravatar 1.0 ====== **Usage** ====== package require gravatar 1.0
• Gray code
  15 Dec 2011 — 0 # G1 = < # \ 1 # # /0 . Gn-1 # Gn = < # \ 1 . reverse(Gn-1) # # where the . operator denotes concatenation, and the reverse function is # simply denotes the Gray code in revers (i.e. G1 = (0
• Gregor: A DSL for building semester calendars
  06 Jul 2009 — semcal.tcl namespace import ::semcal::* displayDays [list Tuesday Thursday] set st [clock scan "Jan 16 0:0"] set et [clock scan "April 27 23:59"] event "Jan 16" "Chapter 1" event "Jan
• grep
  05 Sep 2017 — 0 while {[gets stdin line] >= 0} { incr lnum if {[regexp $pattern $line]} { puts "${lnum}:${line}" } } } else { foreach filename $args { set file [open $filename r] set lnum 0 while {[gets $file line] >= 0
• greptail
  26 Aug 2003 — Contributed by [glennj] Works like "'''tail -f aFile | grep aPattern'''" should work. ---- #!/bin/sh #\ exec tclsh "$0" ${1+"$@"} proc main {argv0 argc argv} { if {$argc != 2} { puts "$argv0 <regex> <file>" exit } foreach
• Greylisting
  12 Feb 2015 — 0 #here are some initial messages while {$run < 5} { puts [clock format [clock seconds] -format %T] puts " [grey_test 192.168.0.1 test@junk.com me@domain.com] 192.168.0
• grid
  30 Aug 2013 — groups.google.com/forum/#!topic/comp.lang.tcl/hlkANaEDDHE%|%Tcl/Tk 8.5 vs iwidget 4.0.2] , [comp.lang.tcl] ,2008-08-18 , describes how a change between Tk 8.4
• grid columnconfigure
  24 Dec 2014 — t grid [frame .t.f -bg yellow] -sticky news grid columnconfigure .t {0 1} -weight 2 grid rowconfigure .t {0 1} -weight 2 ====== Remark, that the special column specification `all` do not
• grid configure
  31 Oct 2016 — nsew # These are just to make things more obvious grid columnconfigure . {0 1 2 3} -uniform 1 -weight 1 grid rowconfigure . {0 1 2 3} -uniform 1 -weight 1 ====== ---- **Change parent window
• Grid Debugger
  17 Jul 2016 — dx,$dy)}]] set row2 [expr {$rows/2.0}] set col2 [expr {$cols/2.0}] for {set row 0} {$row < $rows} {incr row} { for {set col 0} {$col < $cols} {incr col} { set x0
• grid forget
  11 Nov 2014 — returning `0 0`: ====== % frame .f % grid size .f 0 0 % grid rowconfigure .f 1 -weight 1 % grid size .f 0 2 % grid rowconfigure .f 1 -weight 0 % grid size .f 0 0
• grid forward compatibility
  01 Sep 2012 — myName [lindex [info level 0] 0] if {[string match .* $option]} { # Supply optional subcommand 'configure' and re-call return [uplevel [list $myName configure $option] $args] } if {[llength $args] == 0} { return -code error "wrong
• grid propagate
  13 Nov 2014 — of these cases an empty string is returned. If ''boolean'' is omitted then the command returns '''0''' or '''1''' to indicate whether propagation is currently enabled for ''master''. Propagation is enabled by
• grid rowconfigure
  08 May 2014 — grid [label .3 -bg blue] [label .4 -bg yellow] -sticky news grid rowconfig . 0 -weight 1 grid columnconfig . 0 -weight 1 ====== ---- '''See also:''' * [grid] * [grid columnconfigure] for remarks on rows without widgets
• gridDemo-BigGrid
  20 May 2015 — cramped # option add *Button.height 2 ## button .b_11 -text "11" -command { ButtonProc "11" } set nB 0 set maxCol 40 # set maxRow 20 # for {set r 1} {$r<=$maxRow} {incr r} { foreach
• GridLines
  10 Sep 2013 — 0 } } ################################################################ # # Demo code # set cells { 0,0,1,1,blue 0,1,1,1,red 0,2,1,1,green 0,3,1,1,cyan 0,4,1,1,navy 1,0
• GroovX
  20 Jan 2013 — Included are tools for making it relatively trivial to write new Tcl commands in C++.| || Currently at version 0.0 .| |Updated:| 1/2007| |Contact:| See web site| ---- See also [C++]. <<categories>> Package
• Group theory and permutations
  20 Nov 2015 — 2 0} {0 2 1}] puts "Subgroup of S4:" puts [group {1 0 2 3} {0 2 1 3}] puts "S4 complete:" puts [group {1 0 2 3} {1 2 3 0
• Grubby Little OO
  12 Aug 2011 — code return $instname } } } eval [set VAULT::GLOO_CODE] } # Create a class gloo::new Toaster { variable crumbs 0 proc toast {nslices} { puts -nonewline "[namespace current] is toasting $nslices slices" variable crumbs if {$crumbs
• gsm
  03 Oct 2018 — as it comes in like with the +CNMI=1,2,0,0,0 command? When I enter +CNMI=1,2,0,0,0 the library pops an error and stops responding to
• GSM 03.38 encoding
  15 Jul 2011 — Version which supports [encoding convertto] and [encoding convertfrom] (Tcl 8.1 or above) '''The non-null 0 character "@"''' In the GSM 03.38 character set, the character "@" is encoded as 0x00. [encoding
• GSoC Idea: ePubKit, an eReader built upon TkHtml3
  18 Aug 2012 — instance, being an in-page recipe converter for applying a ratio such as .75 or 2.0 to the quantities called for within cookbooks. **Partial/Tentative "RoadMap"** * Address TkHtml3 min-width issue
• GSoC Idea: Parse TrueType/OpenType font data
  18 Mar 2011 — 0 /scriptsizepos sub 650.0 699.0 0.0 -140.0 /scriptsizepos super 650.0 699.0 0.0 479.0 /Panose 2 0 5 3 0 0 0 0 0 0
• GSoC Idea: Parsing mathematical expressions
  11 Mar 2011 — like: set diffusion [expr {$diff*(2.0*$conck - $conckm1 - $conckp1)/$deltx**2}] the prefix notation is cumbersome: set diffusion [vecmult $diff [vecdiv [vecsub [vecmult 2.0 $conck] $conckm1 $conckp1] [expr {$deltx**2
• GSoC Idea: SCORM Compliant Run-Time Environment for OpenACS
  22 Aug 2011 — DotLRN, XOTcl. '''Benefits for the student''' Gaining experience with e-learning standards, object oriented web 2.0 development frameworks and systems integration. '''Benefits for the community''' Users of the community framework OpenACS
• GSoC Idea: Tk Backend for the Wayland Display Protocol
  11 Jan 2017 — ported to run on top of Wayland. (Googling indicates that experimental support is in SDL 2.0.2, but I don't know what that implies…) [chw] 2017-01-11: The trunk
• GTK
  10 Sep 2012 — 0.7.5 . Updated: 07/2002 Contact: See web site * What: [gnocl] * [gnome-tcl] Where: http://cyberspace.mht.bme.hu/%7Eszekeres/gnome-tcl/ Description: Tcl binding for GTk+/Gnome. Version 0.0
• gtklook.tcl
  20 Jan 2013 — activeBorderWidth 0 option add *Menu.highlightThickness 0 option add *Menu.borderWidth 2 option add *MenuButton.activeBackground #4a6984 option add *MenuButton.activeForeground white option add *MenuButton.activeBorderWidth 0 option add *MenuButton.highlightThickness 0
• Guarded proc
  17 Jun 2011 — when". We can mimick this in Tcl easily enough: ====== proc | args { if {[uplevel 1 [lrange $args 0 end-2]]} { return -code return [uplevel 1 [list expr [lindex $args end]]] } } proc otherwise {} { return
• GUI for editing a Tcl array
  21 Feb 2015 — ii 1 set tag [$c create window 0 0 -anchor nw -window $f] foreach var [lsort [array names __copy_of_array__]] { set __aux_array__($var) 0 checkbutton $f.cb$ii -text "" -variable
• gui.tcl for Wikit on PocketPC
  09 Sep 2003 — padx 2 > pack $top.n.f0 -side top -padx 0 -pady 0 -expand 1 -fill x > pack $top.n.f2 -side bottom -padx 0 -expand 1 -fill x 366,368c367,368 < set
• GUI4Cli
  30 Jul 2016 — title use tv #this tv1 tv cd $dirname // take treeview also to that dir.. XTREEVIEW 0 0 180 472 "#disks" tvdir attr ID tv1 attr frame sunk attr resize 0002 attr style
• GUIBuilder
  08 Jun 2016 — tcl/mirror/ftp.procplace.com/sorted/packages-7.6/devel/graphics/GuiBuilder1.0.tar.gz| | Description:| A Tk 4.0 based GUI Builder, called GuiBuilder (or tclGui). You get to choose place
• Guilloche Pattern
  28 Mar 2013 — 0}] $p plot data$phase $y [expr {$x * 180.0 / $pi}] } } } pack [canvas .c -width 500 -height 500] guilloche .c 4.0 8.0 30.0 4.7 1.8 1.0
• GWImage
  22 Apr 2017 — What | GWImage |& &| Where | http://www.xmission.com/~georgeps/implementation/software/GWImage/GWImage-1.0.tgz |& | Description | Tk image widget that currently supports JPEG, but was | | | designed to extend to other image formats
• gwyple
  13 Nov 2012 — org/gwyple/ Backends are available for: * ClearDDTS * Debian Description Translation Project (DDTP) * Debian Bugtracking System * [Bugzilla] Gwyple is currently at version 2.3.0. (June 03, 2003). <<categories>> Dev. Tools | GUI | Application
• gzip
  11 Nov 2014 — string range $cdata end-7 end] ii CRC32 ISIZE set data [zlib inflate [string range $cdata 0 end-8]] if { $CRC32 != [zlib crc32 $data] } { error "gunzip Checksum mismatch." } if { $outfile == "" } { set outfile
• Hack-O-Matic
  28 Sep 2018 — main window .menu add cascade -menu .menu.file -label "File" -underline 0 .menu add cascade -menu .menu.help -label "Help" -underline 0 menu .menu.file menu .menu.help .menu.file add command
• Hack-O-Matic - Optimisation
  27 Aug 2012 — main window .menu add cascade -menu .menu.file -label "File" -underline 0 .menu add cascade -menu .menu.help -label "Help" -underline 0 menu .menu.file menu .menu.help .menu.file add command
• Hacker News
  22 Jan 2015 — in the same directory. You can download treeselect with [wiki-reaper]: `wiki-reaper 41023 0 8 > treeselect-0.3.1.tm`. Note: This is just a demonstration. You can use the [https
• Hacking on The Core
  06 Oct 2018 — where you can't use the Tcl I/O or command return mechanisms. The `do ... while (0)` trick is not necessary when the macro is just a single function call. Arguments to
• HaJo Gurt
  08 Apr 2018 — A small calculator] - Extended function of buttons "C/CE" and "+/-". * [A small editor in 8.5.0] - Added an "About"-command. * [Animated cyclist] - Added a slider to adjust the speed. * [Bitmap Editor
• half-lambda
  24 Oct 2007 — proc call {form args} { set i 0 foreach arg $args {set [incr i] $arg} eval $form } set square {expr {$1*$1}} % call $square 5 25 if 0 {Alternatively, if you have an
• Halting Problem
  08 Jan 2013 — which says whether that script terminates. The following are obviously true: ====== [willHalt {}] == 1 [willHalt {while {1} {}}] == 0 ====== Now we build the following procedure: ====== proc nothalt {script} { if {[willHalt $script]} { while {1} {} } } ====== Thus
• Handling command line options with dict
  28 Sep 2018 — after each flag, if it occurs in $args set index [lsearch -exact $args $flag] if {$index >= 0} { set args [lreplace $args $index $index $flag 1] } } # now dict can handle all options, because
• Handling WMI events using TWAPI
  29 Jul 2011 — bdone 0 set count 0 proc change_handler {wmi_event args} { switch $wmi_event { OnObjectReady { # Create a TWAPI COM object out of the IDispatch interface (first arg) set ifc [lindex $args 0
• Hanglish
  04 Jul 2011 — l $v $t]<0} {return $hanglish} set uc [expr $l*21*28 + $v*28 + $t + 0xAC00] return [format %c $uc] } proc hanglish {args} { # tolerant converter: makes Unicode 2.0 Hangul where possible
• Hanoi Towers
  04 May 2015 — to $from } proc drawStacks {{flashed 0}} { foreach i {1 2 3} { if {$i==$flashed} { DrawStack $i 1 } else { DrawStack $i } } update after 350 } proc DrawStack {stackIndex {flashed 0}} { # remove all existing discs
• Hard Archiving Strategy using Tcl as master control
  09 Nov 2011 — pwd]] Time this script was executed: [clock seconds] [clock format [clock seconds]] Epoch time ([clock format 0]) Legend: \"Filename\" \[ModifyTime\] \[FileSize\] \"File Type\" Please refer to documentation for information regarding file types
• Harmonic color wheel
  16 Aug 2004 — 6.0}] } elseif {$green == $max} { set hue [expr {(2 + $rc - $bc)/6.0}] } else { set hue [expr {(4 + $gc - $rc)/6.0}] } if {$hue < 0.0} { set hue [expr {$hue + 1.0
• Harmonic_oscillator_tcltk
  12 Apr 2013 — set GB(c) 0.0 set GB(start) 0 set GB(omg) 0.0 set GB(frq) 0.0 set GB(prd) 0.0 set GB(ckr) 0.0 set GB(np
• Harpy
  01 Dec 2017 — an example: ====== proc helloWorld {} { puts stdout [appendArgs "Hello World - " [info script]] } helloWorld # <<CERTIFICATE-1.0>> # <?xml version="1.0" encoding="utf-8"?> # <!-- # Eagle Enterprise Edition Script Certificate # # The format of this file
• HashLife
  22 Sep 2018 — 0 0 0 0 0} {1 0 1 0 0 0 0 0} {0 0 0 0 0 0 0 0} {0 0 0 0 0 0 0 0} {0 0 0
• HE
  04 Sep 2018 — NoteBook - changing placement of arrowbutton] * [First impressions with tcl/tk 8.5.0] * [A small editor in 8.5.0] * [tk_textCopy/tk_textCut without elided text] * [Another diff in tcl] * [ttk
• HellerTclODBC
  06 Sep 2013 — interface layer for Tcl. At this time it is not known whether this package is complete or functional. ** Attributes ** latest version: 0.0 release time: 2006-09 contact: [Robert Heller] <<categories>> ODBC
• Hello World as a C extension
  28 Nov 2017 — as: $ mkdir /usr/local/lib/hello1.0 $ cp pkgIndex.tcl libhello.so /usr/local/lib/hello1.0/ $ tclsh8.4 % package require Hello 1.0 1.0 % hello Hello, World! Use "hello::hello
• Hello, Widgets! (a rock-bottom basic tutorial in Tcl and Tk)
  10 Feb 2018 — set dispname [.dispname get] set offname [.offname get] .prog configure -text $dispname .dispname delete 0 end .offname delete 0 end focus .dispname } ====== This tells the interpreter that, whenever <Key-Return> is pressed
• Here document
  08 Aug 2015 — lines [split $source \n] set result {} set label {} set on 0 foreach line $lines { if {$on} { if {$line eq $label} { set on 0 lappend result "\[join [list $acc] \\n\]" } else { lappend acc
• Heronian triangles
  16 Feb 2017 — args { while {$arg != 0} { set t $arg let arg = $gcd % $arg set gcd $t if {$gcd == 1} {return true} } } return false } } namespace eval Hero { # Integer square root: returns 0 if n is
• Herring
  08 Sep 2012 — variable HookUserInfoDialog 0 variable InfoRaw 0 variable TwigAction [list {} 0] variable cfg set cfg(version) 0.2 set cfg(verdate) "October 2008" set cfg(author) "Stuart Cassoff" set cfg(twigversion) 0.2
• Heuristic Searches
  30 Aug 2012 — are roads between them, with the distance as the cost of the edge: ====== package require digraph 0.6 set map [digraph create] foreach {source -> dests} { Arad -> {Zerind 75 Timisoara 118 Sibiu 140
• HexEdit - an hexadecimal editor
  17 Oct 2012 — vs get] 0]]} if {$n != 3} {uplevel 1 [list .tb yview moveto [lindex [.vs get] 0]]} } proc yview {args} { uplevel 1 [linsert $args 0 .ta yview] uplevel 1 [linsert $args 0 .t
• hgedit
  07 Aug 2012 — in the for me at the time well known Tcl/Tk (I guess long before 8.0), and wrote an editor, with web page generator possibility. Later on I also did experiments
• hidden cursor
  13 May 2011 — cur: #define none_width 1 #define none_height 1 #define none_x_hot 0 #define none_y_hot 0 static unsigned char none_bits[] = { 0x00}; Then use: ====== proc show_cursor {} { .c conf
• hierarchy
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/hierarchy.html and http://purl.org/tcl/home/man/iwidgets3.0/hierarchy.n.html ---- [Category Command], a part of [incr Widgets]
• High-level wrapper for pdf4tcl
  21 Jun 2017 — set yHeader 0 set yFooter [expr {$pageHeight - $lineHeight}] set page_number 1 } method chapter {title} { $self startPage 0 $pdf setFont 24 Helvetica-Bold set yCoord [$pdf getFontMetric ascend] $pdf setTextPosition 0 $yCoord
• HiLo
  31 Jan 2016 — user, accept only numbers set ok 0 while {$ok==0} { puts -nonewline $prompt set n [gets stdin] set ok [string is integer -strict $n] if {$ok==0} { puts "'$n' is invalid !\a
• HiLo-international
  31 Jan 2016 — nGuess 0 #set ::Secret 13 set ::Secret [expr {[random $::Max] +1 }] .f2a config -bg grey .f2b config -bg green .inp1 config -state normal .res1 delete 0.0 end .res2 delete 0.0
• HiLo2
  31 Jan 2016 — config -bg grey .f2b config -bg limegreen .inp1 config -state normal .res1 delete 0.0 end .res2 delete 0.0 end Disp .res1 " Guess my number:\n" Hi Disp .res2 " (1 .. $::Max
• Hipp miscellaneous widgets
  08 May 2003 — the Tcl 8.x Stub library, as well as a shared library for RedHat Linux 6.0. Support continues to improve - support for table, script and applet tags recently added. Note that
• histlist
  27 Jul 2011 — hist content ""] if { [string is integer -strict [lindex $args 0]] && [lindex $args 0] > 0 } { uplevel 1 [list dict set $hist size [lvarpop args 0]] # (Here we modified args, so that the remaining
• Historical Kelvin Earth Cooling and eTCL Slot Calculator Demo Example , numerical analysis edit
  09 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• history
  06 Mar 2016 — catch {regsub -all -- $old $newcmd $new newcmd} } if {[info exists newcmd]} { tclLog $newcmd history change $newcmd 0 uplevel 1 [list ::catch $newcmd ::tcl::UnknownResult ::tcl::UnknownOptions] dict incr ::tcl::UnknownOptions -level return
• History of Tcl and Tk
  22 Jul 2018 — it as their own thing). We dropped Alpha 1.1 (we had secretly released Alpha 1.0 in February) on March 23rd. Kim sent out a press release to some folks. (not
• History of TCL_EVAL_INVOKE
  08 Apr 2014 — resolves cmd in #0, runs unknown and traces in caller's, runs cmd in #0 '''1.75.2.1 (2003-04-25)''' * TCL_EVAL_GLOBAL: resolves cmd in #0, runs unknown and
• History of Tk
  29 Aug 2012 — of Tcl. ---- [[Explain the Great Re-Unification of version numbers.]] [DKF] 19-Feb-2008: From 8.0 onwards, it was decided (by [JO]/[Scriptics]) to make the version number of Tcl and
• hkassem
  26 Jun 2018 — fforeach_file_path r] fconfigure $fforeach_fid -encoding utf-8 while {[gets $fforeach_fid fforeach_line] >= 0} { # ------- FOREACH BODY ------------< uplevel $fforeach_body # ------END FOREACH BODY-----------> } close $fforeach_fid } ====== usage: ====== fforeach aLine "./mybigfile
• hoco an homogeneous coordinates package
  25 Sep 2011 — 0.0 0.0 0.0 0.0 0.0 0.0 } \ -transform uwp_hoco_homogeneous_parameters_to_transform uwp_hoco_transform_declare workspace \ -names { psi phi } -deg2rad { yes yes } -defaults { 0
• Home, End and other formatting problems
  28 Jan 2012 — dlineinfo 1.0]} { return [$widget index insert] } set bbox [$widget bbox insert] if {[string equal $bbox ""]} { set x 0 } elseif {[$widget get insert] == "\n"} { set x [expr {[lindex $bbox 0] + [lindex $bbox
• HOMEPATH
  04 Jan 2018 — if we're using windows if { [expr [string compare "$::tcl_platform(platform)" "windows" ] == 0] } { package require registry 1.0 set env_home [registry get {HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer
• Hopfield Networks
  20 Feb 2012 — animation speed edit the ''delay'' entry. '''Download''' Get it from http://tcl.jtang.org/hopfield/hopfield-0.1.tar.gz. Included in the tarball is a loadable network ('''hopfield.net''') that has
• HoppingSlider
  04 Jun 2014 — set res $options(-resolution) set hopval [expr {$res * floor(double($val) / $res + 0.5)}] if { $options(-variable) ne {} } { upvar #0 $options(-variable) var set var $hopval } # run callback as in standard scale
• horoscope pie plotter
  13 Jun 2014 — bg bisque -width 200 -height 200 pack .c -fill both proc pie {} { set begin 0 set beginx { 0 60 120 180 240 300 360 362 } set command [list] foreach colorx {black red
• hosts
  22 Sep 2018 — Tcl 8.6+ or Tcl 8.5 with the package [try]. Tcllib to run the tests. | | Updated | 2018-09-22 (v0.6.0) | | License | MIT | <<categories>> Package | Networking | System Administration | Unix | Windows
• Hot curry
  21 Aug 2012 — linsert [lrange $args $len end] 0 \ [eval [linsert [lrange $args 0 $L_1] 0 ${name}_impl]]] } elseif {$nArgs < $len} { linsert $args 0 $name } else { eval [linsert $args 0 ${name}_impl] } } proc _curry
• HotKey
  19 Sep 2017 — a 0.8 release, so I don't know what happened to 0.7) [http://prdownloads.sf.net/tomasoft/winutils-0.6.zip?download]. Note that the release of HotKeys in 0
• HOTP and TOTP
  24 Jul 2015 — left as an exercise for the reader! ====== package require Tcl 8.5 package require sha1 2.0 # hotp secret movingFactor ?length? -- # # Computes a HOTP for the given parameters: # - secret - the hex-encoded
• How can I do this awk like operation in Tcl
  01 Sep 2015 — spaced file BEGIN { sw = 0 ; cnt = 0 } NF == 0 { cnt++ if (sw == 1) { print $0 sw = 0 } else { sw = 1 } continue } NF != 0 { cnt++ print $0 sw = 0 } END { printf "Number of
• How can I make effective use of the BWidgets toolset
  25 Mar 2014 — Paste not active"}} } "&Interval" all event 0 { {command "&New" {} "Begin new interval" {} -command interval_new} {command "&Edit" {} "Edit selected interval" {} -command interval_edit} } "&Report" all report 0 { {command "&Mon-Sun Timecard" {} "Prepare
• How can I run data through an external filter?
  13 Feb 2016 — switch [llength $args] { 2 { if { [lindex $args 0] ne "-nonewline" \ && [fconfigure [lindex $args 0] -blocking] == 0 } { yield } } 3 { if { [fconfigure [lindex $args 1] -blocking] == 0 } { yield } } } } rename gets _gets proc gets { args
• How did you discover TCL/TK
  27 Oct 2017 — a Tcl/Tk believer! ---- Yves Guerin, In 1998 I move from W$ to Linux (Redhat 5.0) and I wanted to do some programming under X-windows and shell. After searching the
• how do i do $$var - double dereferencing a variable
  08 Aug 2017 — Proc1.in} state.bfunc: set state.out ${state.in} Mon1.bfunc: .mw.c.mon1 del 0.0 end ;.mw.c.mon1 insert end "${Mon1.in} \n" ; .mw.c.mon1 see end The
• How do I execute 'grep' on a remote machine and receive the result?
  09 Sep 2013 — single right answer. Here are several small essays on the question: ---- ====== package require Expect log_user 0 spawn ssh $account@phaseit.net expect {assword: } send $password\r expect $prompt send "grep $pattern
• How do I get the result of a remote command when I have to pass through a third host?
  17 Jan 2013 — s silly; next time just "spawn ssh ..." directly. spawn $env(SHELL) match_max 100000 log_user 0 expect $prompt0 send -- "ssh $user1@$host1\r" expect -glob "Enter passphrase for key '*': " send -- $passphrase1
• How do I give my application a color icon
  02 Nov 2015 — require Tk if { $argc != 1 } { puts stderr "$argv0 gif_pathname" exit } set icon_pathname [lindex $argv 0] set i [image create photo .i1 -format gif -file $icon_pathname ] set b [button .b1
• How do I manage lock files in a cross platform manner in Tcl
  11 May 2015 — detection mechanism if { [catch {socket -server dummy_accept $PORT} SOCKET] } { puts "Could not acquire lock" return 0 } set LOCK_SOCKET("$LOCKID") "$SOCKET" return 1 } ====== Release a lock (assumes you actually hold the
• How do I read and write files in Tcl
  18 Dec 2017 — while {$0 <= [string length $data] && $index != $num} { set 3 [string index $data $0] if {[string index $data [expr [expr $0] +1]] == " " && $3 != " "} { incr index } ; set 2 [incr 0] } if {$num != 0} { set
• How do I remove one line from a file?
  18 Nov 2011 — open filename.dat] set output [open filename.tmp w] while {[gets $input line] >= 0} { if {[lsearch $line $to_remove] < 0} { puts $output $line } } close $input close $output file rename -force filename.tmp
• how do people produce the PocketPC screenshots
  26 Jan 2012 — be taken (beeps a couple of times) after 1000 ## get picture set fnd_name {} set count 0 foreach name [split [exec cedir.exe .] \n] { if {[file extension $name] == ".BMP"} { set fnd_name
• How do you make two windows act as one?
  29 Apr 2013 — I had package provide app-bindb 1.0 # zipguy - routine added for puts with date %Y-%m-%d and time proc puts_log {message {code 0}} { set time [clock format [clock seconds
• How does one change the font in the wish widgets
  03 Jan 2013 — offered this sage counsel in the midst of a c.l.t thread: "... -font {-size 10.0} Try: ... -font {-size -10} We've had the same kind of problems on a cross
• How Expect can capture the exit code from a remote command
  01 Feb 2013 — exit with result code : $result" Here is the output result $ cd /tmp $ echo $? 0 $ command exit with result code : 0 echo $? is a shell command that will print the exit status of
• How Expect sees function keys
  06 Aug 2008 — will be written to $outfile Type here: " set showheader 1 set seqsize 0 puts $prompt expect { ? { set result $expect_out(0,string) if {![string equal \n $result]} { if {[catch {eof $fd}]} { set
• How fast can we sort 5 elements
  30 Jul 2016 — 4]] 0] if {[string compare $x0 $x1] <= 0 } { if {[string compare $x2 $x3] <= 0 } { if {[string compare $x1 $x3] <= 0 } { if {[string compare $x4 $x1] < 0 } { if {[string compare $x4 $x0] < 0
• How many lines in a text widget?
  26 Dec 2013 — proc text.vlines text { set begin [lindex [split [$text index @0,0] .] 0] set end [lindex [split [$text index @65535,65535] .] 0] set vlines $end incr vlines -$begin incr vlines return $vlines
• HOW TO - Remove C style comments
  01 Nov 2010 — to be careful if you try to use this on actual comments in C code. if 0 { removeComments {printf ("/* %s */\n", "Comment to print"); /* Prints a comment to stdout */} returns: printf (" \n
• How To Build FriBiDi As A Shared Library And Load It And Use It Inside Tcl Commands On Debian Linux (Updated And Working Solution)
  09 Jun 2014 — most len characters */ FriBidiChar *frstr = ckalloc(sizeof(FriBidiChar)*len); int len_res = len, ind = 0; while (len_res >0) { Tcl_UniChar ch; int nbytes = Tcl_UtfToUniChar(str, &ch); str += nbytes; len_res
• How to build good packages
  24 Jan 2017 — tcl8.3/fschanges-0.1/ . The version was included in the directory name so that as things in the extension change, you create a sibling directory called, perhaps, ''''fschanges-0.2''', to
• How to combine vectcl with Plotchart
  28 Jul 2015 — pack [canvas .t.c -width 700 -height 400] set p [::Plotchart::createXYPlot .t.c {0 10 2} {0 10 2}] proc ::Plotchart::Plot {label x y} { $::p plot $label $x $y } proc
• How to compile a TCL script into an EXE program
  28 Sep 2018 — source C:/Tcl/bin/planetGraffer2.exe/lib/app-planetGraffer2/planetGraffer2.tcl" ("package ifneeded app-planetGraffer2 1.0" script) invoked from within "package require app-planetGraffer2" (file "C:/Tcl/bin/planetGraffer2.exe/main
• How to create mingw32 libraries from DLLs
  28 Sep 2018 — set dll [lindex $argv 0] if {$dll == ""} { puts "creates an MinGW conform lib*.a static library from a dll" puts "usage: tclsh makedll.tcl <path/to/dll>" exit 0 } set dllroot [file
• How to discover my active MAC Addresses?
  23 Mar 2015 — section] > 0 } { set mac_ptn {([0-9a-fA-F][0-9a-fA-F][\-:]){5}[0-9a-fA-F][0-9a-fA-F]} set mac "" set ip4 "" set iface "" set lno 0 foreach
• How to display the result of an external command in a widget
  25 Jan 2012 — Simplest Form** ====== pack [text .text] set result [exec my_command] .text insert 1.0 $result ====== ---- Can someone show us what is needed to do things like add scrollbars that get displayed if
• How to edit Wikit pages with Emacs
  17 May 2006 — always correct, but for now it works: {.+<textarea .+>(.*)</textarea>} ----- #!/usr/bin/tclsh package require http 1.0 proc getpage {wikiurl N} { set s [http_data [http_get $wikiurl/${N}@]] if {[regexp "\n
• How to generate a Recent Changes RSS Feed
  28 Oct 2009 — xml version=\"1.0\"?>" puts "<!DOCTYPE rss PUBLIC \"-//Netscape Communications//DTD RSS 0.91//EN\" \"http://my.netscape.com/publish/formats/rss-0.91.dtd\">" puts "" puts "<rss version=\"0.91\">" puts
• How to get Menu Accelerators to work under Windows
  09 Dec 2011 — File -menu [menu .m.1 -tearoff 0] .m.1 add command -label Exit -command exit .m add cascade -label Options -menu [menu .m.2 -tearoff 0] .m.2 add command -label Foo
• How to make a Tcl application - part three
  08 Apr 2011 — the result: 0.0 0.0 0.01 0.0 0.02 0.0 0.03 0.0 0.04 0.0 0.05 0.0 0.06 0.0 0.07
• How to Measure Performance
  30 May 2014 — 2} for {set i 0} {$i < $iters} {incr i} { set result [uplevel [list time $script $groupsize]] lappend times [lindex $result 0] } set average 0.0 set s2 0.0 foreach time $times
• How to mimic event generation without TK
  03 Apr 2016 — Page maintainer: [Marco Maggi] ** Changes ** [pyk] 2016-04-03: Changed `[after] 0` to use the `after 0 ... after idle` idiom, which I think would result in more orderly event processing in this
• How to read the serial port, and display in hexadecimal
  02 Dec 2013 — 0,0 "hallo:\"$serialIPinHex\"\n" } proc open_com {} { global com global baudrate global parity global databits global stopbits set com [open com1: r+] fconfigure $com -mode $baudrate,$parity,$databits,$stopbits \ -blocking 0
• How to run external script from Tk and make it throw output to the console?
  25 Nov 2017 — syntax accepted for command pipelines. [Estet]: 2) What is the difference between "-blocking 0" and "-blocking 1" ? [AMG]: "-blocking 0" puts the channel in non-blocking mode, which means that [[[read]]] and
• How to synthesize a query
  13 Dec 2005 — 0} {$i < [llength $List]} {incr i} { set First [lindex $List $i] set j [expr $i+1] set max 0 while {[lindex $First 0] eq [lindex $List $j 0]} { for {set k 0
• How to totally handle listbox selection
  07 Jul 2011 — g. ====== # select the first row in a listbox $lb $lb select set 0 # delete the first row $lb delete 0 ====== '''NO''' <<ListboxSelect>> event is generated. In these cases it is the programmer
• How to use new fonts without installing'em
  17 Jul 2017 — Load the new font and check for errors .. set res [dll_AddFontResourceEx $fontFile 0x10 0] if { $res == 0 } { puts "ERROR loading $fontFile" } # Finally, show something with the new font ! # The new font
• How to write tcltest result values
  04 Apr 2015 — user for the improved result-matching flexibility found in tcltest version 2.x. Tcl 8.4.0 comes with tcltest 2.2. I advise you upgrade. By the way, although tcltest 2
• How was I invoked?
  08 Sep 2012 — sourceCode $c proc ::obj::class::curve::_root-object_ {{method ::return} args} { $method [lindex [::info level 0] 0] {*}$args } % [Lars H]: An alternative solution for this kind of thing is to make the
• Howto export Microsoft Outlook contacts to XML using tcom and tDom
  09 Jun 2011 — OlInspectorClose} { upvar #0 ${olb}::$varname $varname } foreach varname {MailingAddress Gender Sensitivity Importance} { switch -- $varname { Importance { set pos 12 } default { set pos 2 } } upvar #0 ${olb}::Ol$varname source upvar #0 $varname destination
• Howto find com object enums for tcom using registry
  07 Jan 2012 — OlMeetingRecipientType ::Outlook::OlOutlookBarViewType Contents of array ::Outlook::OlFormRegistry: parray ::Outlook::OlFormRegistry Will output: ::Outlook::OlFormRegistry(olDefaultRegistry) = 0 ::Outlook::OlFormRegistry(olFolderRegistry) = 3 ::Outlook::OlFormRegistry(olOrganizationRegistry) = 4 ::Outlook::OlFormRegistry(olPersonalRegistry) = 2 <<categories>> Example | Package
• Howto open PDF with Adobe Acrobat or Reader using DDE
  03 Jul 2011 — acrobat\\shell\\open\\command {}} acrobat]} { puts stderr "registry: $acrobat" exit 1 } set acrobat [string range $acrobat 0 [string first " /u" $acrobat]] if {[catch {registry get HKEY_CLASSES_ROOT\\acrobat\\shell\\open\\ddeexec
• HOWTO: Make a Tcl Extension Thread-Safe
  01 Jun 2005 — Argument objects. */ { ThreadSpecificData *tsdPtr = (ThreadSpecificData *) Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); ... [ declaration of variables ] ... if (tsdPtr->initialized == 0) { tsdPtr->initialized = 1; tsdPtr->thrHashTbl = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable)); Tcl_InitHashTable(tsdPtr->thrHashTbl
• HP-UX
  08 Sep 2012 — s (including my own): &|-Ae|ANSI-[C] compatibility|& &|+DAportable|Result runs on PA1.1 and PA2.0 (32bit; parisc builds only)|& &|+DD64|Result is for 64bit architecture|& &|-O|Switch on optimization|& &|(+Osize
• hrbytesize
  18 Jan 2013 — basic usage a 10000000 integer, representing a size in bytes is converted into the string "10.0 MB" with the reduce method. ====== set size1 [hrbytesize create %AUTO%] $size1 configure -size 10000000 $size1
• HSV and RGB
  17 Nov 2013 — r [expr {max(0.0, min(1.0, double($r)))}] set g [expr {max(0.0, min(1.0, double($g)))}] set b [expr {max(0.0, min(1.0, double($b
• htext2.tcl
  06 Feb 2011 — w.e $w.e select range 0 end bind $w.e <Return> "htext::dosearch $w" button $w.b -text Search! -command "htext::dosearch $w" -pady 0 $w window create end -window $w
• htext3
  12 Nov 2006 — w.e $w.e select range 0 end bind $w.e <Return> "htext::dosearch $w" button $w.b -text Search! -command "htext::dosearch $w" -pady 0 $w window create end -window $w
• HTML display
  13 Jun 2015 — misc/html_library-0.3.tar.gz | || http://www.msen.com/%7Eclif/RP_Updates.html | |Description:|htmllib is a simple HTML parsing and display library. Supports all HTML/2.0 features, including
• html form generator
  16 Apr 2015 — a little script to generate html forms from tcl lists - [CMcC] 20060117 ---- ====== package provide Form 1.0 namespace eval Form { variable inherit { -type -maxlength -size -inline -disabled -readonly -template -class -onfocus -onblur
• HTML generator
  26 Sep 2012 — string match <*> [lindex $args 0]]} { set tag [string trim [lindex $args 0] "<>"] ::proc ::<$tag> {args} [string map [list @T $tag] { set result {} foreach {n v} [lrange $args 0 end-1] { lappend result
• HTML to DOM via http/htmlparse/struct::tree packages
  14 Jan 2015 — node] { [lindex [info level 0] 0] $tree $node $childNode $dom $domNode; } return; } proc converturl {url} { http::config -accept "text/html, text/xhtml, application/xhtml+xml"; set ncode 0; while {$ncode < 200 || $ncode
• HTML widgets
  13 Jun 2015 — which is a decade older.|& &|[HTML display]|04/1999|HTML 2.0|No|Yes|Yes|No|1067|Supports all HTML/2.0 features, including forms. By 2000, one year after its original
• HTML2text
  19 Oct 2005 — HTML with an option to ignore specific tags: proc strip-html-ignore {text {ignore {}}} { set c 0 foreach i $ignore {if {[regexp $i $text]} {return $text}} return "" } proc strip-html {html {ignore
• HTMLize an image
  12 Jul 2011 — create photo -file $image_file] puts -nonewline $page {<html><head></head><body><table border=0 cellspacing=0 cellpadding=0>} foreach row [$source data] { puts -nonewline $page {<tr>} foreach color $row { puts -nonewline
• httcld
  19 Mar 2009 — led to the embedded .htcl format. httcld requires 2 external libraries: http://www.gnu.org/software/libmicrohttpd Version 0.4.0pre1 and http://www.tcl.tk Tcl Version 8.5 ---- !!!!!! %| [Category Webserver] |% !!!!!!
• http
  03 Oct 2018 — for querying whether a site is alive. ====== if {$argc == 0} { set site http://purl.org/thecliff/tcl/wiki/ } else { set site [lindex $argv 0] } package require http 2.3 # this proc contributed
• http authentication
  17 Mar 2016 — the # server's response. package require http 2.0; # tcl core package require md5 2.0; # tcllib namespace eval digest { variable version 1.0 variable rcsid { $Id: 6087,v 1.13 2006
• http in Jacl
  26 Oct 2009 — byteArray [java::new {byte[]} $bufSize] while { [set len [$contentInputStream read $byteArray]] >= 0 } { append contentData [[java::new {String byte[] int int} $byteArray 0 $len] toString] } $contentInputStream close return [list $contentType $contentLength $contentEncoding $contentData
• HTTP/2
  03 Oct 2018 — the Apache MPM (Multi-Processing Module) prefork no longer supports HTTP/2. Apache [Rivet] 3.0.0 support threaded MPMs such as mod_mpm_worker and mod_mpm_event. So you can
• http::geturl
  03 Oct 2018 — channel for output. A workaround for your current broken version will be to add ''-protocol 1.0'' to disable the HTTP/1.1 feature negotiation. [AM] Ah, I was not sure if
• httpd (Tcllib)
  19 Sep 2018 — build on top of Httpd: [Toadhttpd]. ====== # Example of how to use httpd package require httpd 4.0 httpd::server create HTTPD port 8015 # Open our port HTTPD start # Add in a dict
• httpd.tcl
  08 Jun 2012 — run when the server shuts down. '''sockblock''': Blocking mode value for sockets (normally this should be 0). '''timeout1''': Time before the server closes a kept-alive socket (msecs). '''timeout2''': Time before the
• hubs
  06 Apr 2011 — seems to have a bit of similarity to Python's [http://docs.fabfile.org/en/1.0.1/index.html%|%fabric]. Although that is, AFAIK, only SSH based, using a pure-python
• hubs remote interp
  01 Apr 2011 — if {[catch { puts $outF "[ encoding convertto utf-8 [lrange $queue 0 0] ]\xC0\x8D" } res] == 0} then { set queue [lreplace $queue 0 0] return } set infoD [list -errorcode $::errorCode] eval [linsert $Callback
• huddle
  21 Aug 2018 — huddle get $folding 0 bb HUDDLE {D {a {s b} c {s d}}} % huddle gets $folding 0 bb a b c d # overwrite a node % huddle set folding 0 bb c kkk
• Humble beginnings of a data analysis tool
  29 Sep 2009 — Z 1.0 1.0 2.0 2.0 1.0 10.0 2.1 1.0 3.0 4.1 3.0 3.0 10.0 -1.0 3.0 ====== It
• Hunspelltcl
  02 Feb 2008 — What: Hunspelltcl Where: http://www.esperantilo.org/xotclhunspell1.0.tar.gz Author: [Artur Trzewik] Licence: LGPL (compatible with Hunspell) Description: It is XOTcl binary extension to hunspell spellchecker (http://hunspell.sourceforge.net
• Hunt for Tcl Extensional Equivalents
  23 Dec 2014 — var [list 1 2 3] ====== ** global varname ~~ ::varname ** '''`[upvar] #0 varname varname ~~ ::varname`''' Example: ====== set abc $::env(HOME) ====== or ====== global env upvar #0 env env2 set abc $env(HOME) set abc2 $env2
• hv3
  06 Sep 2012 — 2 test - in this case it does a much better rendering than my Firefox 2.0.0 browser!'' It does pass the acid2 test. If you know of a reason why this
• Hyde
  11 Jul 2012 — is an example of using '''hyde::jproc''': ====== ::hyde::jproc int fibHyde {int n} { if (n <= 0) {return 0;} if (n == 1) {return 1;} return (fibHyde(n-1) + fibHyde(n-2)); } puts "computing
• hyperhelp
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/hyperhelp.html and http://purl.org/tcl/home/man/iwidgets3.0/hyperhelp.n.html ---- [Category Command], a part of [incr Widgets]
• hypot
  19 Sep 2013 — to integer coordinates, a line from (0,0) to (5,0) is rendered using six pixels and is five pixels in length. A line from (0,0) to (5,5) is also
• I Know Nothing
  13 Dec 2013 — m ::o]] # ok 0 next iteration # error 1 return 2 throw exception # break 3 quit this proc # continue 4 next iteration just like ok 0 # switch -exact -- $c { 0 {} 3 { return } 4
• I need a tcl/tk developer to develop a small app for us
  14 Apr 2011 — And there is a good chance that I completely missinterpreted the task... ====== set srcFolder [lindex $argv 0]; # Argument Nr. 1 gives the name of the folder to process # (1) # Loop over all
• I want for huge Unicode font file not to occupy main memory for WinCE
  27 Jan 2011 — int AddFontResource(LPCTSTR lpszFilename); AddFontResource(L"\\Storage Card\\fonts\\ARIALUNI.TTF"); SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); } [VK] [ABU] See also [How to use new fonts without installing'em] <<categories>>Windows
• I/O paradigms in a multi-processing environment - event/datagram v. stream
  14 Oct 2013 — server naive run-to-completion will possibly work include strict original HTTP 1.0 ... (others?) because although HTTP 1.0 servers expect to serve multiple clients, each client's requests per connection
• i2p
  12 Jan 2010 — public domain. package require Tcl 8.5 package provide i2p/sam2 0.2 # 0.1 was refactored into 0.2 # 0.2 isnt spec implementation finished namespace eval i2p {} namespace eval i2p
• i18n
  01 Oct 2016 — Also, he provides an algorithmlet to produce such abbreviations: proc n2n s { return [string index $s 0][string length [string range $s 1 end-1]][string index $s end] } % n2n internationalization i18n
• i18n tester
  20 May 2015 — also do not see u03ac, u03ce,(RS: Greek vowels with accent), u3ca2, u3498 (RS: Unicode 1.0 Hangul codes. Cyberbit still had them, but Arial Unicode MS has dropped their support) [LV
• IA-32/x86 assembler in Tcl
  13 Jul 2011 — compares to 0 and if the comparison is true it jumps to the position of otherwise. During the compilation of then/otherwise, "then" appends some code for the pop and 0 comparison
• Iain B. Findleton
  27 Aug 2012 — provided as a console command version. Currently at version 1.0. '''What: Image''' ''Description: '' Stubs based Windows extension for Tcl 8.2.0 and later, providing a range of image processing functions
• ical OO
  13 Nov 2014 — method {class selector arglist body} { upvar #0 [set class]_ops ops set ops($selector) $class proc $class.$selector [linsert $arglist 0 selfclass self] [format { upvar #0 $self slot %s } $body] } # effects - Rename
• iCalendar
  26 Aug 2012 — form of a iCalendar file (see the above referenced RFC for description): BEGIN:VCALENDAR VERSION:2.0 BEGIN:VEVENT SUMMARY:Watch Re-run of Trigun DESCRIPTION:I really should not spend time
• ICCCM
  12 Nov 2014 — this does not follow proper list structure. It's better to use: ====== wm command . [linsert $argv 0 $argv0] ====== ---- For compatibility with xsm session manager (comes with X.org X server) and smproxy
• ico
  13 Oct 2017 — ico" set old [list foo.ico bar.ico baz.ico] set i 0 foreach x $old { ico::copyIcon $x 0 $newico $i incr i } and I had a single file, new.ico
• icomaker - tcl only ppm to tclkit.ico converter
  13 Apr 2012 — x 0} {$x < $nw} {incr x} { lappend row {} } for {set y 0} {$y < $nh} {incr y} { lappend new $row } for { set y 0 } { $y < $nw } { incr y } { for { set x 0 } { $x
• Icon Programming Language
  30 Nov 2013 — matching is a normal extension of expression evaluation * Backtracking built into the language * Expressions can yield 0 or more values (not necessarily all at once) * [Generator]s and co-expressions (co-routines
• iConnect4
  09 Dec 2017 — getScore {b row col who} { upvar $b board set sum 0 foreach {dx dy ex ey} {-1 0 1 0 0 -1 0 1 1 -1 -1 1 -1 -1 1 1
• ICONS
  03 Jul 2013 — an icon viewing application.<<br>>Currently at version 2.0.| |Updated:|07/2013| |Contact:|See web site| ---- [adavis] (3rd July 2013): ICONS 2.0 has been released and is available from:- http
• Icons and Menus
  18 Jun 2013 — wm minsize . 300 0 menu .menu -tearoff 0 # add the "file" menu set m .menu.file menu $m -tearoff 0 .menu add cascade -label "File" -menu $m -underline 0 $m add command
• iconview as eTcl plugin
  12 Jun 2007 — row 0 -column 0 -padx 4 grid $t.2 -row 0 -column 1 grid $t.3 -row 0 -column 2 -padx 4 -pady 2 -sticky ew frame $t.f -borderwidth 0 set
• icoview
  25 Aug 2012 — if {$fn eq ""} return $w delete 1.1 end $w insert end " $fn\n" set i 0 while 1 { if [catch { image create photo -file $fn -format "ico -index $i" } img] break
• icoview2
  20 Jan 2013 — and a Select (...) [button] which brings up a file selector: ====== package require Tk package require ico 0.3 pack [frame .f] -fill x pack [button .f.b -text ... -command select] -side right
• IDE: from cathedral to patchwork bazaar
  09 Jun 2008 — into errors in a remote other. Years ago I boldly started out to make a 2.0 version, and it has stalled since long, because to change from one complex system to
• Ideas for Wikit enhancements
  26 Oct 2010 — RFCs means "access a file on the local computer". It would be like "http://127.0.0.1/file". What I really want is accessing a file that is remote and by
• Identifying duplicate photographs
  25 Nov 2015 — progress $photo read -shrink $fn vexpr { img = fromPhoto(photo) fprint = int(sum(sum(img[0:-1:10,0:-1:10,:]))) } dict lappend matches $fprint $fn } return [dict values [dict filter $matches script
• iDict: a multilingual dictionary
  17 Jul 2007 — n blue } $w insert end \t$tl red " " {} $tw\n } } iDict::ui wm geometry . 240x188+0+0 .2.t insert end "iDict $iDict::version Richard Suchenwirth 2003 Languages: $iDict::languages" bind . <Up
• idiom
  06 May 2018 — characteristics. ** List of Idioms ** `[@decorators]`: An abbreviated syntax for wrapping [command%|%commands]. `[after] idle [[list after 0 ...]]`: A way to avoid having `[update]` and `[update idletasks]` get the [Tcl event loop] stuck
• idle
  23 Oct 2012 — idle {args} { set scr [eval [linsert $args 0 concat]] foreach id [after info] { set info [after info $id] if { [string equal $scr [lindex $info 0]] && [string equal idle [lindex $info 1]] } { after
• IE Automation With TWAPI
  23 Aug 2016 — Example: ** ====== package require twapi set bIEFound 0 #-- Is IE already running? set app [ twapi::comobj Shell.Application ] set wnds [ $app Windows ] set index 0 set length [ $wnds Count ] while { $index < $length } { set
• IE RC
  22 Mar 2012 — createobject InternetExplorer.Application] proc ie {cmd args} { global ie switch $cmd { go {$ie Navigate [lindex $args 0]} where {$ie LocationURL} html {[[$ie Document] body] innerHTML} help {join [[::tcom::info interface $ie] methods
• IEEE binary float to string conversion
  07 Mar 2012 — value)/0.69314718055994529))+127}] set mantissa [expr {($value/pow(2,double($exponent-127)))-1.}] }]} { set exponent 0 set mantissa 0.0 } else { if {$exponent < 0} { set exponent 0 set mantissa 0.0
• IEEE float dissection
  02 Feb 2015 — a denormal number very close to 0 Value: 5.551115123125783e-17 (0 01001001 00000000000000000000000) Sign: + Exponent: -54 Mantissa: 0 Significand: 1 + (0 / (2.**23)) Expression: (1 + (0 / (2.**23))) * 2.**-54 Re
• IEEE floating numbers
  01 Feb 2015 — puts [binaryToFloat 0 1001001000011111101101010100010001000010110100010111 10000000000] ;# 3.1415926535897927 puts [binaryToFloat 0 1001001000011111101101010100010001000010110100011000 10000000000] ;# 3.1415926535897931 puts [binaryToFloat 0 1001001000011111101101010100010001000010110100011001 10000000000] ;# 3.1415926535897936 # Special representations binaryToFloat 0 0000000000000000000000000000000000000000000000000000 00000000000 ;# 0.0 binaryToFloat 0 0000000000000000000000000000000000000000000000000001
• if
  05 Aug 2017 — elseif''' ''...'' ?'''else'''? ?''bodyN''? ** See Also ** `[expr]`: [expr problems with int]: [If we had no if]: [if 0 {]: ** Documentation ** [http://www.tcl.tk/man/tcl/TclCmd/if.htm%|%official reference]: ** Description ** '''`if`''' is
• if 0 {
  25 May 2014 — wiki.tcl.tk/2?if+0+{* [NEM] - It's used a lot in pages which are mostly code. By surrounding the non-code explanation parts in if 0 { This is some explanation
• If we had no if
  01 Mar 2010 — values 0 and 1 as returned from [expr] with a comparison operator. The idea in the paper I read is to use them as names of very simple functions: proc 0 {then
• If we had no proc
  16 Jul 2008 — lindex [info level 0] 1]] != 2} { error "cant interpret \"[lindex [info level 0] 1]\" as an anonymous function" } bind_vars [lindex [info level 0] 1 0] [lrange [info level 0] 2 end
• If we had no variables
  28 Sep 2007 — proc def args { if {[lindex $args 1] eq "="} { proc [lindex $args 0] {} [list return [lindex $args 2]] } else { proc [lindex $args 0] [lindex $args 1] [lindex $args 3] } } What we also still
• IFS
  29 Apr 2018 — 42 0 .2 0.1 0 0 .1 0 .2}} {{vkoch} {10000 580 580 10 300} \ {0.3333 0 0 .3333 0 0 0.3333 0 0 .3333 .6666 0 \ 0.1666
• iFuser
  18 Jul 2011 — 0 } { *translatemarkwithsystem nodes 1 1 20 $sysid0 0 } if { $weldsize < 0 } { *translatemarkwithsystem nodes 1 1 -20 $sysid0 0 } *createlist nodes 1 $nodeid12 $nodeid13 *linecreatefromnodes 1 1 0.0 0.0 0.0
• ijgate
  25 Nov 2006 — xmlns='http://www.w3.org/1999/xhtml'> this is mIrc <span style="color: rgb(255,0,0)">red</span> </body> </html> /tcl say "this is an ANSI color of \033\1331\;31mIntense
• iKnow
  15 Mar 2015 — know what you know, and to see deeper into what you have.<<br>>Currently at version 0.42.| |Updated:|01/2005| |Contact:|See web site| [SEH] -- 1/20/05 -- [http://web.archive
• iKnow: a pocket quiz
  22 Jun 2015 — illustrated in the self-test/demo code below. ====== namespace eval iKnow { variable version 1.0 tries 0 right 0 } proc Questions: {} { frame .f label .f.s -textvar stats -width 35 button .f
• Iliadtool2 Tea
  30 Dec 2012 — http://members.xoom.com/iliadtools2/tea/ (dead) location: http://members.xoom.com/iliadtools2/tea/tea-3.0.tar.gz (dead) updated: 02/2000 contact: mailto:johnstump@iname.com (John Stump) ** Description ** Tcl
• ilist
  29 Jan 2006 — 1 array0_0 array1_1 array0_1 array0_0 array1_0 array0_0 array2_1 array1_1 array0_1 array0_0 array1_0 array0_0 array2_0 array1_0 array0_0 to
• image
  11 Jun 2018 — set x 0} "\$x < [image width $image1]" {incr x} { for {set y 0} "\$y < [image height $image1]" {incr y} { if { [$image1 get $x $y] != [$image2 get $x $y] } { return 0; } } } return 1
• Image Compare
  27 Apr 2016 — 0 -highlightthickness 0 pack .c -side top .c create image 0 0 -image $img2 -anchor nw .c create image 0 0 -image $img_partial -anchor nw .c create line 0 0 0
• Image composition
  04 Dec 2011 — it on others! : ====== proc image'compose filenames { set img [image create photo] set x 0 set y 0 foreach row $filenames { foreach file $row { set tmp [image create photo -file $file] $img
• Image filtering
  20 Jan 2013 — create photo -width $w -height $h] for {set row 0} {$row<$h} {incr row} { set outrow {} set last $bg for {set col 0} {$col<$w} {incr col} { set rgb [$img get $col
• Image Magick
  22 Apr 2017 — close $gConfFil } # default parameters set gDir "." set gFilNam "" set gRows 0 set gCols 0 set gDepth 8 set gArgs "" set gKeep 0 # get parameters from conf file catch { source [ file join $env
• Image manipulation without Tk
  16 Jan 2009 — width and height puts "18" ;# Max grey value for {set i 0} {$i<10} {incr i} { set line "" for {set j 0} {$j<10} {incr j} { lappend line [expr {$i+$j}] } puts
• Image Processing with HSV
  07 Dec 2017 — 120.0 + ($rgb(b) - $rgb(r)) * 60.0 / $delta}] } else { set h [expr {240.0 + ($rgb(r) - $rgb(g)) * 60.0 / $delta}] } } if {$h < 0.0} { set h [expr {$h + 360.0
• Image scaling
  18 Jan 2017 — scaleImage {im xfactor {yfactor 0}} { set mode -subsample if {abs($xfactor) < 1} { set xfactor [expr round(1./$xfactor)] } elseif {$xfactor>=0 && $yfactor>=0} { set mode -zoom } if {$yfactor == 0} {set yfactor $xfactor
• Image Scaling in C
  06 Jun 2014 — scalex); int cy = (int)(dj * scaley); int points = 1; double red = 0.0, green = 0.0, blue = 0.0, alpha = 0.0; int newoff = destBlock.pitch*dj + destBlock.pixelSize*di; int startoff
• Image Server starter code for tclhttpd
  26 Sep 2016 — cur=0; var drawCnt=0; var start =1; var CamDim = new Array('1152', '864'); var CamAspectRatio = CamDim[0]/CamDim[1]; var dispX=450; var dispY=dispX/CamAspectRatio; var ImAspectRatio = 1.0; Slides
• Image Viewer
  17 Jun 2016 — 2000 .c create image 0 0 -tag bg -anchor nw -image ::img::bg .c lower bg } ::img::bg blank ::img::bg copy ::img::bg_single -to 0 0 $::S(width) $::S(height
• Images behind text
  03 Apr 2008 — display = Tk_Display(textPtr->tkwin); Tk_Fill3DRectangle(textPtr->tkwin, pixmap, textPtr->border, 0, 0, Tk_Width(textPtr->tkwin), dlPtr->height, 0, TK_RELIEF_FLAT); Every routine from this point on simply draws
• Images With Transparency and Plain Images
  15 Sep 2011 — canvas .can pack .can set picture [image create photo -file ./Taco2.jpg] .can create image 0 0 -image $picture To use a PNG image with transparency you must first add an alpha
• images2pdf
  28 Mar 2016 — mypdf -paper $dim set id [mypdf addImage $infile -type $ftype] mypdf putImage $id 0 0 -width [lindex $dim 0] -height [lindex $dim 1] set fname $outprefix-[incr idx].pdf mypdf write -file
• iMap: an indexed map viewer
  11 May 2014 — 0.75}] eval {canvas $w -borderwidth 0 -width $w4 -height $w4} $args set Up [$w create poly $w2 0 $w1 $w1 $w3 $w1 -fill $opt(-fill)] set Left [$w create poly 0
• imEdit
  20 Jun 2007 — all set y0 0; set y1 [expr {$fac-1}] for {set i 0} {$i<$imh} {incr i} { set x0 0; set x1 [expr {$fac-1}] for {set j 0} {$j<$imw} {incr
• imgop
  08 Dec 2013 — which would offer yet another way to interface it, via tcom for example.| || Currently at version 0.1.| | Updated:| 11/2006| | Contact:| See web site, but [EF] will do| ----- See also [TclMagick
• imgsizer
  29 Jul 2011 — if {! $OPT(haveMagick)} {package require Img} catch {wm withdraw .} array set OPT {version 0.1 root . keepOld 0 noOverwrite 0 verbose 1} ##+########################################################################## # # ImageSizer -- fixes up WIDTH and HEIGHT parameters for IMG tag
• imgview as eTcl plugin
  25 Jun 2007 — set first [lindex $files 0] set files [concat [lrange $files 1 end] [list $first]] } else { set first [lindex $files end] set files [concat [list $first] [lrange $files 0 end-1]] } openImg $w
• Imperiali
  04 Jan 2012 — set col 0 set row 0 # Naan van partijen incr row set l1 [label $f.lstemc -text "Vote count"] grid $l1 -column $col -row $row incr row for { set i 0 } { $i
• Implement MSCHAPv2 Protocol(RFC2759)
  23 Sep 2013 — there isn't have it. package require md4 1.0.5 package require sha1 2.0.3 package require des 1.1.0 # The MS-CHAP-V2 Response packet is identical in
• Implementation of struct::record using TclOO
  10 Nov 2013 — my variable $n if {$n == ""} { return [my cget] } switch -- [llength $args] { 0 { return [set $n] } 1 { return [set $n [lindex $args 0]] } 2 { lassign $args op val if {$op != "="} { return -code error
• Implementing enumerated types
  13 Oct 2012 — upvar #0 ${type}_number a1 number_${type} a2 set n 0 foreach id $identifiers { incr n set a1($id) $n set a2($n) $id } proc ${type}_to_number $type " upvar #0 ${type
• Implementing FIFO queues
  20 Nov 2015 — qvar Q set head [lindex $Q 0] set Q [lrange $Q 1 end] return $head } proc qempty {qvar} { upvar 1 $qvar Q return [expr {[llength $Q] == 0}] } ====== The above implementation of ''qput
• Implicit upvar
  08 Feb 2013 — name varlist body} { set varlist1 {} set upvarBody "" foreach var $varlist { if {[llength $var] > 1 && [lindex $var 0] eq "referenced"} then { set varName [lindex $var end] lappend varlist1 _$varName append upvarBody "upvar \$_$varName
• Importing auto correct entries into SIM messenger
  29 Dec 2011 — Finally, the number of aliases is counted. # ================================================ set _aliascount 0 set _regex {([^=]+)\s*=\s*(.*)} set _fp [ open $::ALIASFILE r ] while { [ eof $_fp ] == 0 } { set _line [ string trim [ gets $_fp ] ] # # Exclude empty lines
• Importing expr functions
  14 May 2012 — args { "*" - all {set args $names} names {return [join $names]} } foreach name $args { if {[lsearch $names $name]<0} { error "$name is not one of $names" } proc $name args [list eval expr ${name}(\$args
• Importing expr functions, part 2
  21 Jun 2011 — set pi [* [atan 1] 4]} 10000 # 267 microseconds per iteration package provide exprlib 0.1 package require Tcl 8.0 namespace eval ::exprlib { # unary and binary operators namespace export ! ~ + - * / % << >> < > <= >= == != eq ne & ^ | && || # additional
• Impossible Triangle
  05 Jun 2018 — Z(angle) != 0} { RotateItem .c all 0 0 $::Z(angle) } } proc DrawIt {dims triangleSize edgeSize} { global POLY Z GetPoints $Z(dimensions) $triangleSize $edgeSize .c delete all for {set i 0} {$i < $dims
• In
  27 Dec 2016 — if {$el in $list} ... ====== is equivalent to, but much nicer than ====== if {[lsearch -exact $list $el] >= 0} ... ====== <<discussion>> The negation ("not in") is [ni]. So 8.5 Tcl really makes us knights
• In case of: select, another switch
  15 Oct 2012 — not a valid key" } } set value 0 select \ { puts "value $value" case {$value < 0} { puts "negative value" } case {$value > 0} { puts "positive value" } case {$value == 0} { puts "null value" } } ====== ---- See also [Modeling
• In place edit
  31 Jul 2012 — ipe::hide } proc ipe::hide {{store 0}} { variable ipe variable outvar variable tl variable tlbtnbind bind $tl <Button> $tlbtnbind wm withdraw $ipe if { $store } { uplevel #0 set $outvar [list [$ipe.f.e
• incr Tcl
  09 Apr 2014 — been realized, with itcl 4.0 being merged into the Tcl 8.6 source tree. [apw] 2008-12-20: for a feature list of itcl 4.0 (called also itcl-ng) see
• Incr Tcl Design Patterns
  26 Jun 2015 — itcl::find objects] set item [string trimleft $item "-"] set pos [lsearch -exact $obs $item] if {$pos>=0} { return [eval [lindex $obs $pos] $cmd] } } } # ---test it--- % set fd [open "test.out" w+] % session
• incr Tk
  24 May 2012 — repository/itk A slightly modified [iwidgets] is at http://chiselapp.com/user/rene/repository/iwidgets To run you need at least itcl-4-0-b8-rc. <<categories>> Package | Object Orientation | Dev. Tools
• incr Widgets
  24 May 2012 — need 8.4-8.5 :-( ---- [LV] Do the current incr widgets work with incr tcl 4.0, which is one of the distributed packages with the Tk 8.6 cvs head? Do
• Incremental GUI text search
  16 Oct 2009 — 2 -relief groove \ -highlightthickness 0 \ -command [list $path cancel] grid $path.sep -row 0 -column 0 -columnspan 7 -sticky ew -pady 2 grid $path.l -row 1 -column 0 -sticky e grid
• Indeterminate Progress Bar with Tile
  09 Aug 2011 — every for this body after cancel $everyId($body) } set everyId($body) [after $ms [info level 0]] uplevel #0 $body } } ====== The second snippet, "Update," was provided by Pat Thoyts, also on the Tile
• Indexed file reading
  06 Dec 2011 — slow, but not excessive on memory. ====== proc lineindex filename { set res 0 set fp [open $filename] while {[gets $fp line]>=0} {lappend res [tell $fp]} close $fp set res } ====== Once you have
• indexing a flat file, and a readBytes proc
  20 Sep 2015 — fd -encoding binary pipe out in fconfigure $in -encoding binary -blocking 0 -buffering none fconfigure $out -encoding utf-8 -blocking 0 -buffering none seek $fd $offset puts $in [read $fd $numBytes] read
• info
  21 Jun 2014 — called {} { puts [list {I was called from} [ lindex [info level -1] 0] {but first call was to} [ lindex [info level 1] 0]] } proc a {} who_called proc b {} who_called proc c
• info class call
  29 May 2011 — simply matches and for unknown handling it is always '''unknown'''). 4. The type of the implementation, as in [info class methodtype]. This command was introduced in TclOO 0.6.3. <<categories>>Command
• info cmdcount
  13 Jan 2017 — have been invoked in this interpreter. ---- Note that since the bytecode compiler arrived in Tcl 8.0, the machinery that counts command invocations has been effectively disconnected from the operation of many
• info complete
  19 Oct 2017 — unclosed quote info complete \"a ;# 0 complete \"a ;# 0 # closed quote info complete \"a\" ;# 1 complete \"a\" ;# 1 # unclosed brace info complete \{a ;# 0 complete \{a ;# 0 # closed brace info complete \{a
• info default
  21 Jun 2014 — argument to that procedure. If ''arg'' doesn't have a default value then the command returns '''`0`'''. Otherwise it returns '''`1`''' and places the default value of ''arg'' into variable ''varname''. ** Discussion
• info exists
  19 Jun 2018 — info exists a # -> 0 set a 1 # -> 1 info exists a # -> 1 info exists b # -> 0 set b(2) 2 # -> 2 info exists b # -> 1 info exists b(1) # -> 0 info exists
• info level
  01 Dec 2017 — baz NULL}} { puts "info level 0 = \[[info level 0]\]" } # example1 foo abc def # example2 foo abc ====== prints: ======none info level 0 = [foo abc def] info level 0 = [foo abc] ====== [DGP] Correct. `info
• info object methods
  04 Apr 2011 — info object] understands''' ''object'' ''methodname'' That would return a 1 if the object has a public method ''methodname'' and 0 if not. That might be a more common use case. <<categories>>Command
• info object methodtype
  21 Feb 2011 — method called ''method'' defined on the [TclOO] [object] called ''object'' is. If you are lacking this command, make sure you have the latest TclOO. (It is post-0.6.0.) <<categories>>Command
• info object namespace
  21 Feb 2011 — preferred, and even using [rename] to kill off the public access command is better…) If your build of TclOO lacks this subcommand, upgrade to at least TclOO 0.6.2. <<categories>>Command
• info procs
  01 Dec 2012 — PROCS BEFORE: [lsort [info procs]]" rename exit __super_exit rename unknown __super_unknown proc exit {{code 0}} { puts "Why are you leaving me :-(" __super_exit $code } puts "PROCS AFTER: [lsort [info procs
• info script
  25 May 2014 — global proc_to_filename_map set proc_to_filename_map([lindex $args 0]) [info script] uplevel 1 [linsert $args 0 ::tcl::proc] } ====== With this one can easily find the file for a
• infox
  17 Aug 2013 — command is defined, 0 if it is not available. '''have_fsync''': Return 1 if the `fsync` system call is available and the [sync] command will sync individual files. 0 if it is
• infrared
  12 Jan 2012 — id is known you can connect to the specific service: % set id [lindex [irda::discover] 0 0] 1176300784 % set fh [irda::connect $id IrDA:IrCOMM] sock212 % puts $fh ATZ % flush $fh % gets
• inGest: the Video Coding System
  07 Sep 2013 — and store it in a database. It was written using the Tcl/Tk language (version 8.0.5) and it worked on both Windows and the Macintosh. ** Documentation ** [http://web.archive.org
• INGRES - tm wrapper
  01 Sep 2013 — sql foreach {sql nodrop} [lindex $sessionParm($sess,queue) 0] {break} set sessionParm($sess,nodrop) $nodrop set sessionParm($sess,queue) [lreplace $sessionParm($sess,queue) 0 0] } proc IngresTM::trapSqlErr {sess data} { variable sessionParm
• init
  17 Jul 2016 — args]==0} return if {[llength $args]==1} {eval set args $args} # first pass - args on command line set vars {} foreach {var val} $args { eval $assign lappend vars $var } set i 0 foreach
• Init Scripts In The DLL
  22 Feb 2017 — 0} {set prompt "..."} {set prompt "-->"} puts -nonewline $prompt append cmd [gets stdin]\n if {[info complete $cmd]} { if {[catch {uplevel #0 $cmd} result]} { puts stderr "ERROR: $result" } elseif {[string length $result]>0
• Injection Attack
  12 Mar 2014 — exploit {[error PWNED!]} ====== **[after]** ====== after 0 puts $exploit ;# vulnerable after 0 "puts $exploit" ;# vulnerable after 0 {puts $exploit} ;# safe, but relies on $exploit being available later after 0 [list puts $exploit] ;# safe
• Inline::C for Tcl
  18 Jan 2015 — within your Perl program -- for more information, look here: http://search.cpan.org/author/INGY/Inline-0.44/C/C.pod Now, tonight, I got to thinking: gee, it'd be nice
• Inplace edit in ttk::treeview
  09 Sep 2013 — if {$treecolumnname!=""} { $path heading #0 -text $treecolumnname $path column #0 -width [font measure $font @@@@$treecolumnname] if {$sort} { $path heading #0 -command [namespace code [list _sorttree $path #0 0]] } } } # helper functions for inplace
• Inserting an Entry Widget in TkTable
  01 Feb 2016 — W.entry -sticky news %W.entry insert end [%W get $row,$col] %W.entry selection range 0 end focus %W.entry break } # To work, it needs some application-specific procs (w is
• inserting lines in between a file and not end of line
  20 Sep 2018 — while {[gets $fh line] > 0} { set temp $line if {[string eq [lindex $temp 0] "12345"]==1} { puts $fh "one two three four five" } elseif {[string eq [lindex $temp 0] "67890"]==1} { puts
• inspect
  15 Nov 2017 — the txt view. puts stderr $result after 0 [list [winfo parent $tv].txt insert end [join $nodes \n]] } } proc updateText {txt lv} { $txt delete 1.0 end foreach node [$lv selection] { $txt
• Inspecting a function with two parameters
  19 Mar 2014 — alpha -from 0.0 -to 2.0 -variable alpha -orient horizontal -resolution 0.01 -command redraw] \ [scale .beta -from 0.0 -to 2.0 -variable beta -orient horizontal -resolution 0.01 -command
• Inspecting app state with a browser
  22 Jun 2011 — s] >= 0} { set s "<pre>$s</pre>" } return $s } # generate a page with the requested information proc display {x result} { upvar $result r append r "<html><body><table cellspacing=0 cellpadding=0
• install
  18 Oct 2006 — chmod "$6" "$3" # \ exit # \ else # \ if [ -x /usr/local/bin/tclsh8.4 ] # \ then exec /usr/local/bin/tclsh8.4 "$0" ${1+"$@"} # \ else exec tclsh "$0" ${1+"$@"} # \ fi # \ fi # \ ######################################################################################### ---- [Category Deployment] | [Category Glossary]
• Install tcl on ipaq familiar linux PDA with Img package
  25 Jul 2009 — want to use terminal to communicate with the pda, run command in the terminal, and display the Tk window on PDA, you need to add this export DISPLAY=:0.0 ---- !!!!!! %|[Category Deployment]|% !!!!!!
• Installing Tcl/Tk on Ubuntu
  30 Aug 2013 — machine, Ubuntu installed Tcl 8.4 in /usr/bin/tclsh8.4, /usr/lib/libtcl8.4.so.0 and a lot of support files in /usr/share/tcltk/tcl8.4/*. The same for
• InstallJammer
  11 Oct 2017 — me. I could create a company to impress people, but it would still be just me. 0-] I need to add a license link to the home page information somewhere, but basically
• int
  29 Jan 2013 — you can have % expr int(1e30) 0 For "making an integer out of a real number", one should generally use [round] rather than [int], because int(0.999999999) is very different from
• integer
  28 May 2014 — a+$shift}] puts "a=$a, shift=$shift, n=$n" if {$n<=0} then { set shift [expr {$shift/2}] if {$shift==0} then { break } } set a [expr {$a + $shift}] } } return $a } ====== If one
• Integer (Computer Science)
  19 Dec 2011 — integer'' and a check for a range between 0 and 255. unsigned short: ''string is integer'' and a check for a range between 0 and 65535. signed word: ''string is integer'' and
• Integer Partition
  01 Apr 2011 — while {$t >= $r} { incr h set X($h) $r set t [expr {$t - $r}] } if {$t == 0} { set m $h } else { set m [expr {$h+1}] if {$t > 1} { incr h set
• Integers as Boolean functions
  26 May 2012 — which for example for {$a && $b} looks like: a b a&&b 0 0 0 1 0 0 0 1 0 1 1 1 As all but the last column just enumerate
• Integral equations
  26 May 2012 — g0 [$G 0.0] set k0 [$K 0.0 0.0] set result [list] for { set i 1 } { $i <= $nsteps } { incr i } { set xe [expr {$i*$xstep}] set integral [expr {0.5
• integrate
  09 Jan 2012 — if { ! [ expr $length % 4 ] } { set xy_pairs [ concat [ lindex $xy_pairs 0 ] 0 $xy_pairs ] } set x0 [ lindex $xy_pairs 0 ] set x1 [ lindex $xy_pairs 2 ] set xn [ lindex $xy_pairs
• Integrating Tcl and Emacs on Windows
  13 Jul 2018 — 0 source ~/tclshrc.tcl} } # input loop while {1} { catch {uplevel \#0 $::tcl_prompt1} flush stdout set cmd {} while {1} { append cmd [gets stdin] "\n" if {[info complete $cmd]} { break } catch {uplevel \#0
• inter-coroutine return
  24 Aug 2017 — this: ====== set result [return -level 0 {*}[yieldto some other command some arguments [info coroutine]]] ====== Or to process the return options in some custom fashion: ====== catch {return -level 0 {*}[yieldto some other command
• Interacting with the internet
  26 Sep 2016 — module in [Tcllib]. ** [HTML] ** [htmlparse] in [tcllib]: [ftp://www.tcl.tk/pub/tcl/misc/html_library-0.3.tar.gz%|%html_library]: updates at [http://www.msen.com/%7Eclif/RP_Updates.html
• interactive command composer
  28 Feb 2013 — tk*} $i] == 0 && [string match {tcl*} $i] == 0 && [string match {pkg_*} $i] == 0 && [string match {auto_*} $i] == 0 && [lsearch $defaultprocs $i] == -1 } { lappend o $i } }; .f.fu.l del 0 end; foreach
• Interactive plotting with Plotchart
  01 Apr 2011 — tag "data" - we want to keep the measured points # .c dtag data data # # Dummy data point - error otherwise # $p plot fit 0.0 0.0 ====== <<categories>>Category Graphics|Category GUI|Category Example
• Interactive Polygon in Bwise
  17 Jan 2013 — canvas. Lets create a random 4 sided green polygon on the canvas: ====== $mc create poly 0 0 5 5 10 3 3 93 -tag markerpoly -fill green -outline navy ====== and link it
• Interactive procedure editor
  04 Jun 2012 — news grid $window.b - -sticky w $window.name insert 0 $cmd $window.args insert 0 [info args ::$cmd] $window.body insert 1.0 [info body ::$cmd] grid columnconfigure $window 1 -weight 1
• Interactively putting items on a canvas
  12 Feb 2018 — location "X, Y: $x, $y" my $typeHandler Press $x $y } method link {varname} { variable location upvar #0 $varname [namespace which -variable location] } method edit {type} { variable typeHandler variable wait variable item if
• Interbase
  21 Nov 2017 — 6 is hosted at [http://sourceforge.net/projects/interbase%|%Sourceforge] under the Mozilla Public License 1.0 (MPL). ** Tcl Interfaces ** Driver from [AOLserver]: [ODBC] via [tcl dbi]: ibtcl: [ftp://ftp.tcl.tk
• interface
  26 Sep 2016 — stack1_data [lrange $stack1_data 0 end-1] return $result } interface { set interfaces {stack 1.0 nop 0.0} if {[llength $args]} { set reqinterface [lindex $args 0] foreach {interface version} $interfaces { if
• Interfacing Tcl with Haskell
  27 Mar 2016 — Main as usual (the haskell call doesn't block) */ Tcl_Main(argc, argv, TH_AppInit); return 0; } void TH_Quit(ClientData cdata) { shutdownHaskell(); } int TH_Foo(ClientData cData, Tcl_Interp *interp, int
• Interfacing with XML
  08 Sep 2005 — a replacement for tcldom. ([de]: Creation of documents with no elements was added to tDOM 0.8.0, released 8/2004.) '''JR''': forcing - or mostly forcing - something on the user isn't
• Interix
  25 Oct 2016 — self and setting up multi-tasking and memory management, as well as loading all the Ring-0 (supervisor mode) drivers for drives, basic keyboard input and so on. On top of NT
• interleave
  09 Apr 2009 — I wrote this proc to help me: proc interleave {args} { if {[llength $args] == 0} {return {}} set data {} set idx 0 set head {} set body "lappend data" foreach arg $args { lappend head v
• Internal Movable Windows
  23 Apr 2012 — title -text "Movable Window"] -side left pack [button $win.titlebar.done -text Done -padx 1 -pady 0 -bd 1 \ -cursor center_ptr -command "destroy $win"] -side right pack [text $win.t -width
• Internal Rate of Return (IRR)
  17 Nov 2013 — rev * ($z - 1.0)}] set fprime [expr {$inv * ($r + (1.0 + $r) * $invnper)}] set znext [expr {$z - ($f - $g)/($fprime - $gprime)}] if {$znext <= 0.0} { set r -1.0 break } set rnext
• Internal scrollbars
  26 Dec 2011 — arg] 0 $type $w] scrollbar $x \ -borderwidth 0 \ -elementborderwidth 1 \ -orient horizontal \ -takefocus 0 \ -highlightthickness 0 \ -command [list $w xview] scrollbar $y \ -borderwidth 0 \ -elementborderwidth 1 \ -orient vertical \ -takefocus 0 \ -highlightthickness 0
• Internationalization and the Tcl C APIs
  20 Apr 2011 — the translation strings. ====== proc ::msgcat::ns {ns src} { variable Msgs variable Loclist if {[string range $ns 0 1] ne {::}} {set ns ::$ns} namespace eval $ns {} catch {unset $ns} array set $ns {} foreach
• Internet Checksum
  19 Sep 2012 — Time Checksum 0 inet_cksum8 : 1889 (b0b8) (0) inet_cksum16: 649 (b0b8) (0) inet_cksum32: 341 (b0b8) (0) inet_cksum64: 191 (0b27) (fd09) ====== ====== Tcl: 8.5b2 Which Time Checksum 0 inet_cksum8
• Interning a String
  14 Jan 2016 — the first reason (fast comparisons). In Tcl, I'd do that like this: ====== set INTERN_COUNTER 0 proc intern str { if {![info exists ::INTERN($str)]} { set ::INTERN($str) [incr ::INTERN_COUNTER] } return
• interp
  21 Jun 2017 — of code and Wish will then crash with something like ======none Thread 0 Crashed:: Dispatch queue: com.apple.main-thread 0 libsystem_kernel.dylib 0x93f9b9c6 __pthread_kill + 10 1 libsystem_c.dylib
• interp alias
  10 Nov 2015 — to [dgp] (and others): ====== package require Tcl 8.5 interp alias {} err {} return -code error -level 0 ====== ---- ====== interp alias {} = {} expr interp alias {} -> {} set res -> [= $x+1] ====== so assignment to a default variable
• interp exists
  10 Feb 2012 — exists''' ''?path?'' Returns '''1''' if a slave interpreter by the specified ''path'' exists in this master, '''0''' otherwise. If ''path'' is omitted, the invoking interpreter is used. ---- See also: * [interp] * [info exists
• Interpreting TOOT
  03 Jan 2013 — between "integer /" and "float /". I find that mostly a bad thing, since it means forgetting a .0 in some other part of the program can have rather unexpected consequences. The URL example
• Interrupting loops
  16 Dec 2009 — global FID set rc [ catch { set FID [ open "|tclsh" r+ ] puts "FID = $FID" fconfigure $FID -blocking 0 -buffering none fileevent $FID readable { .output insert end [ read $FID ]; .output see "end linestart" } } err
• Intro to Tk
  26 Mar 2008 — cget -width 100 The reason for this is found in the following: % winfo ismapped .my_canvas 0 The canvas doesn't appear on screen because it isn't mapped yet. [pack] can
• Introducing The TCL Plugin
  28 Jan 2013 — group) was the original implementer of the Tcl/Tk plugin. [Laurent Demailly] worked on the 2.0 implementation (first open source version). Work on the plugin was funded by Sun, during the
• Introspection on aliases
  10 Feb 2012 — orig\" isn't a procedure or alias or command" } if {[llength [set cmdargs [interp alias {} $cmd]]]>0} { # check if it is aliased in from another interpreter if {[catch {interp target {} $cmd} msg
• Introspection package
  08 Jul 2010 — aim of this package is to extended the basic introspection functionality of the TCL core (8.0 and above) with a view to aid in meta-programming an AI related tasks. This
• Introspection shortcomings
  19 Aug 2014 — out: catch {read $ch 0} returns 0 if the channel was readable and 1 otherwise, not changing $ch in either case. Similarly catch {puts -nonewline $ch ""} returns 0 if the channel was
• Inventory of IPC methods
  07 Apr 2016 — for [shared-memory] IPC. semaphores: http://www.equi4.com/pub/pp/sorted/net/svipc-2.2.0/Index.html (or perhaps ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/alcatel
• Invoice-Demo2
  06 Jun 2015 — simple program using only basic, essential GUI-features: * Menu * Buttons (to see them, change that "if 0"-section to "if 1") * Hotkeys (F1..F9, etc.) * Labels * Entry-fields * Messagebox * Title at top
• Invoking tclsh or wish from Bourne Shell
  11 Dec 2011 — in that # directory all for the sake of being able to call "package require FooBar 1.0": TCLLIBPATH=.; export TCLLIBPATH # Call tclsh for just Tcl scripts: ### tclsh${tcl_partial_version} a_script
• iocpsock
  11 Oct 2016 — still being worked on! OMG. Written and maintained by [DG]. ---- [WJR] - I'm using [iocpsock] 2.0.1 with [TclHttpd] 3.5 on Windows Server 2003. I'm seeing lots of these
• IP
  30 Mar 2015 — 168.1.0/28 regexp {(\d+)[.](\d+)[.](\d+)[.](\d+)/(\d+)} $spec -> b0 b1 b2 b3 size set quad [expr {($b0 << 24) | ($b1 << 16) | ($b2 << 8) | $b3}] for {set i 0} {$i < (1
• IP Calculator GUI
  25 Nov 2017 — require Tk proc ip2val {str} { set rc 0 foreach v [lrange [split $str .] 0 3] { if {[catch { set v [expr {($v & 0xff)}] }]} { set v 0 } set rc [expr {($rc << 8) + $v}] } return
• ip-drop
  22 Dec 2011 — tcl.tk/2224 close stdin close stdout close stderr if {[fork]} {exit 0} id process group set if {[fork]} {exit 0} set fd [open /dev/null r] set fd [open $log a
• iPAQ
  08 Apr 2014 — pointing. You can win some screen estate (3 lines) by tkcon eval wm geometry . 43x17+0+0 which pushes the Tk title bar below the Windows one, thereby hiding its X button
• iPAQ as signal lamp
  01 Jun 2005 — geometry . +0+0 wm title . "Signal lamp: use cursor-keys to change color" foreach {key color} {Up red Down green Left yellow Right blue} { bind . <$key> "sigbind .c $color" } if 0 { ---- [Arts
• iPAQ goes Japanese
  23 Nov 2008 — config -font [list $::font $::size];#}\ -takefocus 1 -highlightth 0 eval pack [winfo children .] -fill x bind . <Return> { exec wish $argv0 &; exit } focus .s if 0 {The bad news: the Japanese input method
• ipscan
  20 Aug 2017 — This example script executed as ''client'' scans the IP address range 192.168.0.2 to 192.168.0.255 for an server (which is the same script executed as ''server'') If
• iptables
  22 Dec 2011 — iptables -A INPUT -s 127.0.0.1 -p icmp -j DROP` [SS] The above is the original page content for iptables, not very useful ;) btw, the above command will create a
• IPv6 Addresses
  05 Jan 2015 — 0:0:0:0:0:0:43 ::1 0:0:0:0:0:0:0:1 :: 0:0:0:0:0:0:0:0 ::13.1.68.3 0:0:0:0
• IRC Client Class
  23 Jul 2018 — msg 1 end-1] " "] lset ctcp 0 [string tolower [lindex $ctcp 0]] raise <ctcp> $raw [dict get $raw src nick] $tgt {*}$ctcp raise <ctcp-[lindex $ctcp 0]> $raw [dict get $raw src
• ircbridge
  25 Jul 2003 — repository. http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/tcllib/tclapps/ Note that you need irc 0.3 (as well as [logger]) to run this, which is only available in CVS. ---- [[ [Category
• IrDA
  24 Mar 2014 — SOCKADDR_IRDA *irdaaddr; char formatedId[12]; .... /* Device ID. */ sprintf(formatedId, "%02x-%02x-%02x-%02x", irdaaddr->irdaDeviceID[0], irdaaddr->irdaDeviceID[1], irdaaddr->irdaDeviceID[2], irdaaddr->irdaDeviceID[3]); But I'm not sure.. Does
• Iris animation
  04 Dec 2012 — 1 $w create text 189 132 -text "Hello, world!" iris $w 0 0 [$w cget -width] [$w cget -height] 100 } if 0 {The ''iris'' command first constructs the smallest circle that fully
• iRule
  26 Jun 2012 — 16==0} { set x 63 .c create text 70 $y -text [expr $i16/16] } elseif {$i16%8==0} { set x 63 } elseif {$i16%4==0} { set x 60 } elseif {$i16%2==0
• Is everything a list?
  08 Jul 2018 — an"] 0] 0 an ====== So what I'd like is ====== % lindex [lindex [list "an atom"] 0] 0 an atom ====== but what I get is ====== % lindex [lindex [list "an atom"] 0] 0 an
• Is tclsh running interactively?
  23 Mar 2015 — a terminal or a file/pipe/socket ====== set interactive [ expr ! [ catch { exec /bin/sh -c { [ -t 0 ] }}]] ====== ---- '''[RFox] - 2013-05-29 11:13:27''' What about checking the value of tcl_interactive
• Is This File Mine?
  03 Jul 2011 — me? # proc fileIsMine {fileName} { if {![file exists $fileName]} { return 0 } file stat $fileName stat if {$stat(uid) == [id userid]} { return 1 } else { return 0 } } # # Rough test # set allFiles [glob -nocomplain /tmp/*] set
• Is white space significant in Tcl
  01 May 2013 — close-brace while executing "if {$findMsg != ""} { set errMsg2 "" if {[catch {exec find $localFindPath -name $compoFile} errMsg2] == 0} { s ..." (procedure "prepFile" line 18) After a variety of suggestions to Stephen, he reported back
• is_empty
  23 Oct 2016 — 08223 microseconds per iteration result = 0 expr {$data eq {}} 0.7982 microseconds per iteration result = 0 expr [string bytelength $data] == 0 2.95837 microseconds per iteration result = 0 expr ! [string bytelength $data
• isBinary binary file discriminator
  18 Dec 2011 — Given a filename, returns 1 if the file is binary, 0 if text. A pastiche of the work of many, culled from a thread in comp.lang.tcl ====== proc isBinary { filename } { if
• isbl.tcl
  04 Apr 2011 — range $string 0 $pos] ?? [string range $string $pos+1 end]" } else { error $message } } if { [llength [split [lindex $sql 0] " "]] == 1 } { set sql [lreplace $sql 0 0 "select * from [lindex $sql 0]"] } #puts
• isDict
  28 Sep 2018 — No, it will go OK: ====== $ set d [list a b c] a b c $ isDict $d 0 ====== [EMJ] 2018-07-23: Ah, yes - lazy evaluation of && . ---- [PYK] 2018-07-23: This topic
• island
  09 Jan 2017 — 0 $slave invokehidden file $cmd]] } copy - delete - rename - link { set idx [lsearch $args "--"] if { $idx >= 0 } { set paths [lrange $args [expr {$idx+1}] end] } else { if { [string index [lindex $args 0] 0
• Islist Extension
  02 Sep 2015 — atom? $l1]} { return 0 } elseif {[atom? $l2]} { return 0 } else { if {[llength $l1] != [llength $l2]} { return 0 } else { foreach a $l1 b $l2 { if {![lequal $a $b]} { return 0 } } return 1 } } } ====== The
• isolation
  12 Sep 2012 — and returns a new isolation board proc initBoard {} { set row {0 0 0 0 0 0 0 0} for {set i 0} {$i < 6} {incr i} { lappend board $row } return $board } # Given
• isqltcl
  04 Sep 2013 — isqltcl%20binaries/5.0/isqltcl50-win32.tar.gz%|%isqltcl50-win32.tar.gz]: [ftp://ftp.tcl.tk/pub/tcl/all/i/isqltcl/4.0/isqltcl4.0.tar.gz%|%isqltcl4.0.tar.gz]: [ftp
• itcl
  24 Apr 2014 — is] * [itcl::local] * [itcl::scope] [apw] 2008-12-20 for a feature list of itcl 4.0, see [itcl-ng]. There are a lot of new features like delegation, components, types, widgetadaptors
• itcl : Is it recommended to have separate spec and body source files ?
  19 Apr 2011 — same spec : package require Itcl; namespace eval itcl { source "MySimpleObject-spec.itcl" source "MySimpleObject-body-1.0.itcl" MySimpleObject my puts [my name] my configure -name "Laurent" puts [my name] source "MySimpleObject
• Itcl based iterator
  08 Sep 2012 — pos 0 return $this } method next {{inc 1}} { set pos [expr {$pos + $inc}] if {$pos <= $end} { return $this } return {} } method prev {{decr 1}} { set pos [expr {$pos - $decr}] if {$pos >= 0} { return
• Itcl common variables
  08 Sep 2012 — time that the class is declared. package require Itcl itcl::class test { common v1 0 common v2 0 puts "Initial v1 and v2 for class test is $v1 $v2" method setv1 {v
• Itcl in XOTcl
  25 Feb 2004 — counter set counter 0 } method activate {} { if {[incr counter] >= $count_max} { Toggle::activate set counter 0 } return $this } } proc main {n} { set toggle1 [Toggle \#auto 1] for {set i 0} {$i<5
• itcl memory leaks
  08 Sep 2012 — any class objects still in existence. proc exitprogram {} { set rems [itcl::find objects * ] if {[llength $rems]>0} { tk_messageBox -message "At end of run undestroyed objects remain: $rems" } ::exit } You can then
• Itcl overhead
  08 Sep 2012 — list] for {set j 0} {$j < $itclvars} {incr j} { set vn v${i}c${j} lappend varlist $vn append varcode "protected variable $vn 0" \n set ::$vn 0 append varproccode "incr ::$vn
• Itcl trace methods
  07 May 2010 — level 0]" ; return "Ping"} method indirect args { eval $args } } helloworld h1 ;# create a class instance (object) called h1 # response to a trace proc enterexit args { set fn [lindex [lindex $args 0] 0
• Itcl++
  09 Apr 2014 — itcl] classes. This allows for interactively manipulating C++ objects via itcl objects. The current version is 0.95. Everything above and including [Tcl] 7.4 and [incr Tcl] 2.1 should work
• itcl-ng
  30 Jun 2013 — all lowercase (also because of discussion on tcl core mailing list): * itcl 4.0 * itclwidget 4.0 * itk 4.0 [apw] 2009-01-24 there have been some smaller changes for enhancing
• itcl::is
  08 Jan 2012 — h1'' '''isa''' ''helloworld'' ====== puts "Hey [h1 isa helloworld]" ====== : `Hey 1` ====== puts "Hey [h1 isa goodbyeworld]" ====== : `Hey 0` ====== puts "Hey [h1 isa sausage]" ====== : `class "sausage" not found in context "::helloworld"` And see also
• itcled
  10 Sep 2012 — Various tasks are handled - user interface, locating objects, storing data, editing text, etc. Currently at version 0.1 . Updated: 05/2006 Contact: See web site ---- See also [incr Tcl]. <<categories>> GUI | Package
• itins
  01 Sep 2015 — break} # if {[set index [lsearch <optlist> $option]]>=0} # {<target> configure [lindex <newformlist> $index] $value # return} # set stmt "if \{\[set index \[lsearch -exact [list $optlist] \$option\]\]>=0\} \{\n" append cfgbody $stmt append cfgbody
• ITRANS to Unicode Converter
  25 Mar 2013 — J Giddings # Date: 26/09/09 #=============== #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" #--------------- # convert ITRANS ascii sequence to Unicode #--------------- proc ITrans { key } { return [string map { "aa" "ā" "AA
• iTube
  21 Jan 2014 — n\n" every 1000 check_clipboard } proc every {ms body} {eval $body; after $ms [info level 0]} proc check_clipboard {} { global g if [catch {selection get} cb] return if [regexp youtube.com
• itunesdb
  21 Nov 2017 — support. * Smart Playlist support. ---- '''Changelog''' 11 August 2004 - version 0.01 (renamed from 0.1.0) * Initial release. 15 March 2005 - version 0.02 * Minor tweak to API. Not backward-compatible. * ''Major
• Iwidgets
  30 Sep 2015 — Here is a patch for disjointlistbox: === <patch> *** pkg/iwidgets4.0.2/scripts/disjointlistbox.itk Tue Aug 12 11:56:03 2003 --- new/iwidgets4.0.2/scripts/disjointlistbox.itk Wed Aug 20 16
• Jacl and Swank Advocacy
  18 Jan 2010 — invoke methods of the class: ====== > set cal [java::new java.util.GregorianCalendar] java0x2 > $cal isLeapYear 1999 0 > $cal isLeapYear 2004 1 $cal get [java::field java.util.GregorianCalendar DAY_OF_WEEK] 5
• Jacl modernization
  16 Mar 2015 — Supported functions **Unsupported** Notes: "info tclversion" and "info patchlevel" should report "8.4" and "8.4.0", respectively. ****interp**** interp alias srcPath srcToken Supported interp alias srcPath srcToken {} Supported interp alias srcPath
• Jacl Modernization Release Notes
  30 Aug 2014 — j k l} => j k l % lset x {} {j k l} => j k l % lset x 0 j => j {d e f} {g h i} % lset x 2 j => {a b c
• Java
  30 Aug 2014 — showing constructor chaining**** ======none public class Circle extends Point { // Constructor signature One public Circle() { this(0.0); // chain to other constructor } // Constructor signature Two public Circle(double circleRadius) { radius = circleRadius; } protected void
• java2tcl
  09 Mar 2010 — class Website { public String name; public String url; public String description; public static int site_count = 0; public Website() { site_count = site_count + 1; } public void print() { System.out.println(name + " at
• JBR's tcloo.tcl
  10 Dec 2017 — set class [lindex [info level -1] 1] oo::define $class { self export varname } if { [lindex $args 0] ne "method" } { set method [lindex $args 2] ; # Skip over public / private } else { set method [lindex
• Jim closures
  05 Sep 2013 — make-bank-account {} { lambda {method args} {{balance 0}} { switch $method { see {set balance} deposit {incr balance [lindex $args 0]} withdraw {set balance [- $balance [lindex $args 0]]} default {error "unknown method $method"} } } } Usage
• Jim Extensions
  05 Jul 2011 — require sdl set xres 200 set yres 200 set s [sdl.screen $xres $yres] set i 0 while 1 { set x1 [rand $xres] set y1 [rand $yres] set x2 [rand $xres] set
• Jim OO
  25 Nov 2010 — declared. For example: . class Account {balance 0} Account . set a [Account] <reference.<Account>.00000000000000000001> . set b [Account new {balance 1000}] <reference.<Account>.00000000000000000002> . $a get balance 0 . $b get balance 1000 DECLARING
• Jim References
  07 Nov 2012 — a {}] [lambda b {}]] <reference.<functio>.00000000000000000000> <reference.<functio>.00000000000000000002> . [lindex $a 0] x . regexp $a x 0 . collect 2 . [lindex $a 0] x invalid command name "<reference.<functio>.00000000000000000000>" . puts $a <reference
• Jimarc4random
  02 Jul 2015 — on GitHub at https://github.com/aryler/Jimarc4random/ or at my site, listed at [Stu]. Version 0.3, Fall 2014. Jimarc4random should build easily on any POSIX system that has arc4random(3
• jimhttp
  13 Oct 2018 — aio]. |& &| Prerequisites | The HTTP server itself requires Jim Tcl 0.76 or later. The majority of the components runs on either Jim Tcl 0.76 or later ''or'' Tcl 8.5 or
• jimsoldout
  24 Sep 2016 — https://f.juef.space/jimsoldout/ | | Description | [Jim Tcl] bindings for the [https://github.com/faelys/libsoldout%|%libsoldout] [Markdown] library. | | Updated | 2015-09-11 | | Version | 0.1.1 | | License | ISC | <<categories>>Jim Package
• jimson
  24 Feb 2015 — foo}] eq {{"a":1,"b":"foo"}}} assert {[stringify {0 1 1 3}] eq {[1,3]}} assert {[stringify {0 1 1 3} string] eq {"0 1 1 3"}} assert {[stringify {113} num] eq
• jmsn
  24 Sep 2016 — https://f.juef.space/jmsn/ | | Description | [Jim Tcl] bindings for the [http://zserge.com/jsmn.html%|%jsmn] [JSON] library. | | Updated | 2016-03-25 | | Version | 1.0.0 | | License | ISC | <<categories>>Jim Package
• JOB
  06 Mar 2018 — tcl.tk/2251] * [HelpViewer - based on Tkhtml2.0] - could not manage to compile sources on OSX though... * [HelpViewer - based on Tkhtml3.0] - use Tkhtml3.0 binaries from ActiveState! * [WikiDBImage markdown2go64x64.png] [Markdown2Go
• Jon Awbrey
  27 Aug 2012 — Dynamic Systems [http://www.mywikibiz.com/Directory:Jon_Awbrey/Papers/Differential_Logic_and_Dynamic_Systems_2.0] '''Recent Sightings''' * Inquiry List [http://stderr.org/pipermail/inquiry/] * Knol Project [http://knol.google.com
• José E. Marchesi
  04 Jan 2016 — dialects (such as MySQL and Postgresql)." Last release: version 0.7, 2008-11-16 14:43 [http://ftp.gnu.org/gnu/ferret/ferret-0.7.tar.gz]. Ferret is written in Tcl
• Joysticks on Windows
  16 Oct 2013 — if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { return TCL_ERROR; } Tcl_CreateObjCommand(interp, "joy::getpos", GetJoyPosCmd, NULL, NULL); return Tcl_PkgProvide(interp, "Joy", "1.0"); } int GetJoyPosCmd( ClientData clientData, /* Not used
• jpeg
  30 Apr 2017 — Sues Over JPEG Patent (Business 2:00 a.m. PDT) http://www.wired.com/news/business/0,1367,63200,00.html Forgent Networks says it owns a key algorithm in the JPEG
• JQ
  08 Jun 2017 — Download the module with [wiki-reaper]: `wiki-reaper 11630 0 17 > jq-0.4.0.tm`. ***Module source code*** ====== # jq-0.4.0.tm # To use this module you need jq version
• JSON-RPC
  12 Feb 2015 — Reference ** [http://json-rpc.org/wiki/specification%|%specificatio of version 1.0]: [http://www.jsonrpc.org/specification%|%specification of version 2.0]: [https://groups.google.com/d/msg/json-rpc/OEHxjF-AM3Q
• JStrack
  10 Dec 2015 — current sample. A more current (but still not completely up-to-date---it's version 3.0.2, but the current version is 3.3.2a) screenshot is in the main index
• JTcl Interpreter
  19 Jan 2016 — Programme\jtcl-2.4.0\\jtcl-2.4.0.jar;.;C:\Programme\Java\jre1.6.0_07\lib\ext\QTJ ava.zip env(java.class.version) = 50.0 env(java.endorsed.dirs
• JTcl Java bindings for Tcl
  26 Aug 2015 — What | '''JTcl''' | | Where | ftp://ftp.gaertner.de/pub/j/jtcl-1.0.tar.gz | | Description | [Java] script library allowing access to the [Tcl] language. Can invoke Tcl extensions such as [Tk], allowing
• JTcl port for Android
  11 Mar 2014 — src/'' the folder ''jtcl-2.0.0/src/main/java/tcl/lang'' of Jtcl into our development directory. We have still to put the ''jtcl-2.0.0/src/main/resources/tcl
• JTCL with Apache BSF
  03 May 2016 — 2.0.05.jar ./lib/engines/jtcl/jtcl-2.8.0.jar ./lib/engines/jtcl/swank-3.0.0.jar ./lib/engines/jtcl/jtcl-engine.jar ./lib/engines/jtcl/jfreechart-1.0
• Juggler
  30 Jul 2013 — 20 toss_ball 0 0 ;# Just tossed off ball 0 if {[expr {($ss(num) % 2) == 0}]} { toss_ball [expr {$ss(num) / 2}] 1 return } set hand(0,toss) 0 ;# When ball gets
• Jukebox based on webserver with Tcl cgi scripts
  31 Jan 2016 — string compare $env(QUERY_STRING) ""] != 0} { set n [lindex [split $env(QUERY_STRING) \#] 0] puts $s $n flush $s } { puts $s -1 flush $s } set j 0 foreach i [glob /somepath/Music
• julian day library
  11 Jun 2012 — units are measured in days and J_Time units are measured in seconds. Currently at version 0.0 . Updated: 11/2006 Contact: See web site <<categories>> Package | Date and Time | Broken Links
• jump words like emacs in the text widget
  16 Apr 2011 — get_char_backward $tx $ix] set g_ws [::txcursor::is_whitespace $s] while {$ix ne "1.0"} { set s [::txcursor::get_char_backward $tx $ix] set c_ws [::txcursor::is_whitespace $s
• Just getting a package found already
  23 Aug 2005 — getting the annoying and uninformative error: Error in startup script: can't find package FooBar 1.0 Here is the bare minimum for a pure-Tcl package called FooBar: * Create a package
• jWrap
  14 Oct 2017 — jWrap.html download: ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/sorted/packages-8.0/devel/ contact: phillf@fridu.com (Phillippe Le Foll) ** Description ** '''jWrap''' uses Tcl 8 object representation
• KaKaRoTo
  28 Aug 2012 — share/tcltk /usr/lib/tcltk /usr/share/tcltk /home/kakaroto/amsn/utils/farsight % package require Farsight 0.1 % info commands ::Farsight::* ::Farsight::InUse ::Farsight::Stop ::Farsight::Start ::Farsight::Prepare % ::Farsight::Prepare wrong
• KalininLaTeXeditor
  01 Sep 2013 — repository]: ** Obtaining *** [http://web.archive.org/web/20071010025902/http://conero.lrn.ru/tle/download/tle-1.0.1-alt4.tar.gz%|%tle-1.0.1-alt4.tar.gz]: from the Wayback Machine
• karatsuba polynomial multiplication
  28 Jan 2016 — set i 0} {$i < $m} {incr i} { lset D $i [expr { [lindex $A $i] * [lindex $B $i] }] } for {set i 1} {$i < $n+$m-2} {incr i} { for {set p 0} {$p
• Katrina
  17 Jan 2012 — K L M N O P R S T V W} \ [string index $name 0]] if {$n>=0} {return [expr $n+1]} error "$name is no tropical storm" } ;# RS % tropical'storm Katrina
• kbs examples
  06 Jul 2017 — get sources of itcl3.4 and itk3.4 and iwidgets4.0.2 (under sources/*) ./kbs.tcl sources itcl3.4 itk3.4 iwidgets4.0.2 * get sources of 8.5 [Tclkit Lite] kbskit
• kbs packages
  21 May 2018 — a 'main.tcl' as startup file you can use ====== Package foo-0.1 { Require bar-0.1 Source link foo-0.1 Configure {} Make { Kit make foo bar0.1 } Install { Kit install
• Keith Vetter
  26 Sep 2018 — tcl only clone of iwidgets datefield widget. This is now part of [tklib]. * [sockspy] : version 2.0 of Tom Poindexter's ethernet sniffer program * klimb [http://purl.oclc.org/keithv/klimb/klimb
• Ken
  28 Aug 2012 — it there any way of doing it besides manually naming it directly for example: set ArrayStructure(0.value) 1 set ArrayStructure(1.value) 2 Lars H: Depends on how you implement your
• Kevin Kenny
  27 Aug 2012 — send me email at [mailto:kennykb@acm.org]. ---- proc Quine {} { set n [lindex [info level 0] 0] append s [list proc $n [info args $n] [info body $n]] \n [list $n] puts
• KEXP radio playlist a System Tray icon
  16 Jul 2009 — 0 [expr {$first-1}]] set right [string range $string [expr {$first+$l}] end] return [concat [list $left] [wsplit $right $sep]] } } proc toggle varName { upvar 1 $varName var set var [expr {$var ? 0
• keyed list
  17 Aug 2013 — listname while {[llength $eachNamespace] != 0} { if [catch {lindex [set [lindex $eachNamespace 0]::value] 0} result] { catch {unset ${eachNamespace}::value} result } set allNamespaces [concat $allNamespaces [namespace children [lindex $eachNamespace 0]]] set eachNamespace [concat
• keysyms
  28 Sep 2018 — keyboard) do. ** Keysym vs Keycode ** Every key on a physical keyboard is assigned a number between 0 and 255. This is callled the '''keycode'''. The keycode is the unique identifier for the
• KHIM
  06 Nov 2014 — args} { eval [linsert $args 0 ::khim::entry $w] bindtags $w [list $w KHIM Entry [winfo toplevel $w] all] return $w } proc ::text {w args} { eval [linsert $args 0 ::khim::text $w] bindtags
• Kinetic scrolling
  29 May 2018 — better the displacement after t=0 ) v(t) = v(0)*exp(-k*t) p(t)=v(0)/k*(1-exp(k*t)) ( we assume p(0)=0 ) Note that speed never reaches
• KISS
  26 Jan 2012 — x == ""} {set x 0} ====== Simple enough, but still... I factored that operation into this fancy-named one-liner (which is minimal LOC):} ====== proc empty=0 x {expr {$x == ""? 0: $x}} ====== which does
• kitsplit
  21 Jan 2005 — already exists an error is raised. # # /ApplicationkitToWrite/ full path for the application.kit # /wrapped/ Boolean value, 0 = write .vfs directory, 1=(default) write .kit file # # unwrap /VFSDirToWrite/ # Writes a application.vfs/ from
• KiwiTcl
  02 Jan 2018 — RJH: Link appears dead at 2nd Jan 2018. I have a copy of kiwitcl_8.6.0_x86_msvc10.exe - approx. 4.5MB, is there any community repository where I could leave
• Klant
  17 Oct 2012 — Bad UTF-8 page when I tried to save, chiding me to please check my browser. I'm using Firefox 3.0.8, set to Unicode (UTF-8). <<categories>> Application | Interprocess Communication
• klepsydra
  13 May 2012 — 0 } { $i < $nosegments } { incr i } { set height [expr {$totheight*(1.0-double($i)/$nosegments)}] set nextheight [expr {$totheight*(1.0-double($i+1)/$nosegments)}] set dh [expr {2.0*$height/30.0
• knit
  15 Feb 2016 — arg1}} knit first list {lindex ${list} 0} knit rest list {lrange ${list} 1 end} knit last list {lindex ${list} end} knit drop list {lrange ${list} 0 end-1} knit K {x y
• Komodo
  04 Dec 2007 — com/Products/Komodo_IDE for more information. [ActiveState] added browser-side support in Komodo IDE 4.0, including debugging, [DOM] viewer, catalog support, [HTTP] Inspector, and code intelligence for languages such as
• Ktk
  04 Oct 2010 — Tix]-based library which aims to provide KDE/Qt 1.0 look and feel. http://www.ue.eti.pg.gda.pl/tcl/Ktk.html [AMG], 4 Oct 2010: Link is a 404
• L'Hopital Rule
  27 May 2012 — cos(0)) x->0 x (1-cos(x)^2) 1 { sin(0) cos(0) } lim ------------ = --- {= ------ = ------ } x->0 x^2 2 { 2.[x=0] 2 } sin(x) lim ------ = 1/k (= cos(0)/k
• L-system 2D
  29 Apr 2018 — 45 0 0} FX { X {X+YF} Y {FX-Y} } } {Levy C curve} { {11 1 45 0 0 0} F { F {+F--F+} } } {Plant 1} { {5 1 25 90 0 0} X
• la
  27 May 2012 — and matrices. User can mix vectors and arrays in linear algebra operations. Currently at version 1.0 . Procedures cover manipulation of vectors and matrices such as scaling, concatenation by rows or columns
• Lab 3D
  05 Mar 2015 — 0 0 0 0 -tags {viewport} $cnv create line 0 0 0 0 -tags {viewedge view_n } $cnv create line 0 0 0 0 -tags {viewedge view_w } $cnv create line 0
• label
  29 Jan 2016 — those variables changes. The following code can help: ====== proc compositelabel {w contents} { frame $w set n 0 foreach i $contents { set w1 [label $w.[incr n]] if [regexp {^[$](.+)} $i -> varname] { $w1 configure
• label selection
  25 Sep 2013 — Version : 0.0.1 # Author : Mark G. Saye # Email : markgsaye@gmail.com # Copyright : Copyright (C) 2003 # Date : February 20, 2003 # ====================================================================== namespace eval label {} package require Tk package provide label 0.0.1
• labeledframe
  24 Aug 2012 — be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/labeledframe.html and http://purl.org/tcl/home/man/iwidgets3.0/labeledframe.n.html ---- **See also** * [labelframe] * [ttk::labelframe] <<categories>> Command | incr Widgets
• labeledwidget
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/labeledwidget.html and http://purl.org/tcl/home/man/iwidgets3.0/labeledwidget.n.html ---- [Category Command], a part of [incr Widgets]
• labelframe
  24 Dec 2014 — eval label $w2 $largs place $w2 -in $w -rely 0 -relx .05 -anchor w frame $w._spacer -height 10 grid $w._spacer -row 0 ;# To avoid title overlap return $w } ====== <<categories>> Widget
• Labelled Scale Widget with Toggled Keyboard Entry
  19 Jul 2012 — winfo ismapped [winfo parent %W].fr2.sc] } { [winfo parent %W].ent delete 0 end [winfo parent %W].ent insert 0 [[winfo parent %W].fr2.lab cget -text ] pack [winfo parent %W].ent
• LabelText -A Multi Line Entry Widget
  03 Dec 2009 — and array [set ::${name}(${i})_] delete 1.0 end [set ::${name}(${i})_] insert end [set ::${name}(${i})] } else { #simple variable [set ::${name}_] delete 1.0 end [set ::${name}_] insert end [set ::${name
• labltk
  03 Jan 2015 — org/projects/labltk/%|%LablTk]''' is an interface to [Tk] for [Ocaml]. ** Attributes ** latest release: 8.06.0 release time: 2014-09-18 ** Documentation ** [http://caml.inria.fr/pub/docs/manual-ocaml/liblabltk
• lambda
  30 Nov 2014 — param} eq {args} } { unset {llength_params} {llength_args} return [uplevel 0 ${body} [if {${params} eq {}} { # llength_params == 0 and llength_args == 0 unset {last_param} {params} {body} {args} } elseif { ${last_param} ne
• lambda in tcl8.5
  12 Sep 2011 — unknown _original_unknown proc unknown args { set _name [lindex $args 0] upvar $_name name if { ![catch {set name }]} { if { [lindex $name 0] == "::apply"} { return [uplevel 1 [list {*}$name {*}[lrange $args 1 end
• Lambda, Why and How
  12 Sep 2011 — incr reqArgsLength -1 set paramList [lrange $paramList 0 end-1] while {[llength $paramList] && [llength [lindex $paramList end]] == 2} { incr reqArgsLength -1 set paramList [lrange $paramList 0 end-1] } } return [list ::lambda::lambdaeval
• LAME
  18 Apr 2011 — 0 \ nPreset 0 \ dwMpegVersion 1 \ dwPsyModel 0 \ dwEmphasis 0 \ bPrivate 0 \ bCRC 0 \ bCopyright 0 \ bOriginal 1 \ bWriteVBRHeader 0 \ bEnableVBR 0 \ nVBRQuality 0 \ dwVbrAbr_bps 0 \ nVbrMethod 0 \ bNoRes 0 \ bStrictIso 0
• Lannet Widgets
  21 Feb 2007 — Where: ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/devel/graphics/itcl_LW-1.0.tar.gz Description: Set of itcl widgets for various bells and whistles, written while programmer
• Largest files
  02 Jul 2008 — exclude from the list. # method filterfile {filename} { set isfile [file isfile $filename] if {$isfile==0} then { set filter 0 } else { set size [file size $filename] set hrfilesize [hrfilesize::bytestohr $size] set hrsizelimit
• lassign
  25 Jul 2018 — foreach {e} $spec { uplevel 2 [list set [lindex $e 0] [set [lindex $e 0]]] }]] {*}$list } set L {} args {{a 0} {b 0} {c 0} args} $L ====== [AMG]: Clever. Here's my version
• Last.FM
  21 Jan 2011 — formatQuery s $sessid {a[0]} $artist {t[0]} $track {b[0]} $album {l[0]} $length {n[0]} $trackno {m[0]} $musicbrainz {i[0]} $time {o[0]} $source {r[0]} {}] set r [::http
• Last.fm cover grabber
  27 Aug 2013 — and return received data proc ___requestData {query} { set r [::http::geturl http://ws.audioscrobbler.com/2.0/ -query $query] set data [::http::data $r] ::http::cleanup $r return $data } #parse received xml
• Laurent Demailly
  25 Oct 2013 — contact: d e m a i l l y dot c o m ** Description ** Former SunLabs Tcl core group member (circa 1997) and co author of the plugin 2.0 <<categories>> Person
• Laurent Gateau
  06 May 2014 — a " } else { puts -nonewline ". " } puts $name } The same script with proc : proc display { varname } { set result 0 if [array exists "::$varname"] { puts -nonewline "a " puts $varname set result 1 } else { puts -nonewline
• Laws of Form
  27 May 2012 — 0}} return 1 } proc or args { foreach arg $args {if {[uplevel 1 expr $arg]} {return 1}} return 0 } ====== which, when called with no arguments, return 1 or 0, respectively. So [[or]] == 0
• Laying out widgets in a grid
  19 Mar 2009 — 1]] } proc char { list char } { if { [string length [lindex $list 0]] == 1 } { return 1 } string compare [string range [lindex $list 0] 0 [string length $char]-1] $char } array set Options { row { -sticky
• Lazy lists
  24 May 2008 — the new list proc _shift {list} { set first [lindex $list 0] lset list 0 [eval [lindex $list 1] [list [lindex $list 0]]] list $first $list } proc shift {listvar} { upvar $listvar list ::foreach
• Lazy objects for delayed processing
  09 Aug 2011 — while executing - "error dontlook!"> a = yes?, b = 0 YELL trace one 1 w YELL trace one 1 r un YELL trace one {} u two #0 peek yell deux YELL deux two #1
• LCD-Editor
  30 Jul 2010 — set day [lindex $tmp 0] set dt [lindex $tmp 1] set tm [lindex $tmp 2] # puts "$tm - $dt - $day" set EData(a,0) " $tm " set EData(c,0) {1 1 1 1
• LdapTcl
  13 Oct 2012 — apple.com/source/OpenLDAP/OpenLDAP-37.3.1/OpenLDAP/contrib/ldaptcl/ (version 2.0?) * http://wm-serveur.com/openldap-2.4.16/contrib/ldaptcl/ (CHANGES still says 2.0) <<categories>> Package | Internet
• Leak Hunt (C level)
  23 Jun 2018 — 42; global = &local;} void g(void) {printf("%d\n", *global);} int main(void) {f(); g(); return 0;} ====== Build and run this, and "42" is probably displayed. Maybe. Call something else between f
• leaky abstraction
  18 Jun 2008 — way: % info patchlevel 8.5.0 % set tcl_precision 0 % set third [expr {1.0/3}] 0.3333333333333333 % expr {$third*3} 1.0 % expr $third*3 1.0 But for backwards compatibility
• Leam Hall
  27 Aug 2012 — source ./dnsVars set lan [ lindex $argv 0 ] set allFile [ open $lan r ] while {[ gets $allFile line ] >= 0} { set input [ split $line ] regsub $lan [lindex $input 0] "" host set nameList [ lrange [split $line
• Learning Iwidgets
  13 Jun 2015 — scrollcanvas create line 0 -100 0 100 -tag xaxis -width 5 -fill black } console show Type go. Type itmoves to see everything move. I specified x coords of (0,0) for the
• Learning Tcl/Tk through examples
  27 Nov 2012 — code. Beyond that line, a was equal to 1; before that line it was equal to 0. Well I believe those things could be learned through examples. As for the best program
• LED
  30 Sep 2014 — led10x5 put -to 0 0 $width 1 grey40 led10x5 put -to 0 0 1 $height grey40 led10x5 put -to [expr $width - 1] 0 $width $height grey40 led10x5 put -to 0 [expr $height
• LedgerQIF
  10 Feb 2010 — defs) {{} {} {} {} 0 0 0 0 {} {}} <...> set fp [open $fname r] set insplit 0 foreach j $pc(xaction:fields) k $pc(xaction:defs) { set p($j) $k } set s 0 set cnt 0
• lempty
  14 Nov 2014 — is zero. ====== % package require Tclx 8.4 % lempty "1" 0 % lempty [list "1"] 0 % lempty [list] 1 % lempty [list ""] 0 % lempty [list " "] 0 % lempty " " 1 % lempty "" 1 ====== ---- <<discussion>> Pure Tcl Equivalent [AMG
• less
  21 Jul 2011 — state disabled focus ${tl}.f.t goto ${tl}.f.t 1.0 } proc to_search {widget} { focus $widget $widget delete 0 end } proc goto {widget where} { $widget see $where $widget mark set
• let
  21 Mar 2016 — lindex $args 1 ] "++" ] { set result [ uplevel incr [ lindex $args 0 ] ] } elseif [string equal [ lindex $args 1 ] "--" ] { set result [ uplevel incr [ lindex $args 0 ] -1 ] } else { set result [ uplevel set "$args" ] } } else { regexp
• Let's assign with let
  01 May 2018 — eq {++}} { set result [uplevel 1 [list ::incr [lindex $args 0 ]]] } elseif {[lindex $args 1] eq {--}} { set result [uplevel 1 [list ::incr [lindex $args 0] -1]] } else { set result [uplevel 1 [list ::set
• let2
  18 Aug 2012 — puts $h puts $a$b } puts $a puts $b puts $h let i { for {set i 0} {$i < 2} {incr i} { let i { for {set i 5} {$i < 7} {incr i} { puts
• lexec
  25 Mar 2015 — with the internal functions it depends on, and rolled into its own package. ** Attributes ** current version: 0.1 release time: 2015-03-25 ** Synopsis ** : '''`lexec::exec`''' ?''switches''? ''arg'' ?''arg ...''? : '''`lexec::exec`''' ?''switches
• lexical scope
  08 Sep 2014 — still need to choose an appropiate [lambda] implementation, however... ====== # LEG20081206 -*- tcl -*- # # lexically/statically-scoped variables # if 0 { This is yet another approach to lexical scoped variables in Tcl. It introduces a special
• lexpr
  27 May 2012 — lexpr {{1 2} {3 4}} + 0.1 {1.1 2.1} {3.1 4.1} % lexpr {{1 2} {3 4}} * {{10 100} {1 0}} {10 200} {3 0} % lexpr {1 2 3
• liboop
  14 Oct 2017 — select(), poll(), glib 2 event, Tcl event loop, W3C libwww, async DNS, and GNU [readline].| || Currently at version 1.0.1 .| |'''Updated''':| 10/2003| |'''Contact''':| See web site| <<categories>> Package | Event Processing
• libtclpq
  02 Jan 2014 — Download ** [http://downloads.sourceforge.net/project/libtclpq/libtclpq/initial/libtclpq.tgz%|%libtclpq.tgz] ([ftp://ftp.tcl.tk/pub/tcl/all/l/libtclpq/0/libtclpq.tgz%|%alternate]): <<categories>> PostgreSQL | asynchronous methods | swig | itcl
• Licenses
  16 Apr 2018 — listed as a verb. Yet I see both used as nouns all over! WordNet (r) 2.0 licence ''noun'' 1: excessive freedom; lack of due restraint; "when liberty becomes license dictatorship is
• Life
  29 Apr 2018 — 0} { set age $RESPAWN init_life 0 [expr $NUM_COLS - 1] 0 [expr $NUM_ROWS - 1] generate_life 0 [expr $NUM_COLS - 1] 0 [expr $NUM_ROWS - 1] $DENSITY } else { life 0
• Life in Snit
  29 Apr 2018 — i,$j) 0 # Cache the coordinates of each neighbor. set data($i,$j-neighbors) "" foreach {iof jof} {-1 -1 -1 0 -1 1 0 -1 0 1 1 -1 1 0 1
• Lightweight Lambda
  09 Aug 2011 — unknown args [string map [list @ [info body unknown]] { if {[llength [lindex $args 0]]==2} { return [uplevel 1 apply $args] } @}] ====== if 0 {Now we can call our lambdas by given name: % $sq 5
• Lightweight markup languages
  14 Jun 2017 — and Headings ('''H''') ** List of Languages ** * [http://asciidoc.org/%|%asciidoc] * [http://www.wikicreole.org/wiki/Creole1.0 %|% Creole], an attempt to create a common wiki markup * [htext] * [kiwi] * [Markdown] ** [MultiMarkdown] (MMD): a
• like python generator
  29 Apr 2013 — result 0 0 0 0 0 1 0 0 2 0 1 0 0 1 1 0 1 2 1 0 0 1 0 1 1 0 2 1 1 0 1
• lindex
  13 Jun 2016 — picknested2 {L args} { foreach index $args { if {$index < 0} then {return {}} foreach L $L { if {[incr index -1] < 0} then {break} } if {$index >= 0} then {return {}} } return $L } ====== Remove the first and
• lindex forward compatibility
  20 Sep 2018 — th element of the i'th element of l) set indexList [_lindex $args 0] switch -exact [llength $indexList] { 0 { # lindex l {} return $theList } 1 { # lindex l i # lindex l {i} return [_lindex
• Line Plane intersection computation in Bwise
  29 Jan 2013 — 0} {0.0 0.0 1.0} {0.0 0.0 1.0} 0.0 0.0 1.0 line_plane_ic {2.0 0.0 2.0} {0.0 0.0
• Line Simplification
  18 Aug 2013 — epsilon 100 proc DouglasPeucker {P epsilon} { set P0 [lindex $P 0] set P1 [lindex $P end] set dmax 0 set idx 0 for {set i 1} {$i < [llength $P]-1} {incr i
• Linear Feedback Shift Registers
  25 Jul 2012 — string binary scan [binary format H* $bstr] B* bits # Runs extraction set runlist [split [regsub -all {(0+|1+)} $bits "&-"] -] set runlist [lreplace $runlist end end] # Runs-length list creation foreach r $runlist
• Linear regression toy
  03 May 2016 — x0+$x1)/2.}] [expr {($y0+$y1)/2.}] } proc linear'regression xys { set xsum 0.0; set ysum 0.0 foreach xy $xys { foreach {x y} $xy break set xsum [expr {$xsum + $x
• Lines Of Code Counting
  15 Aug 2017 — of source code # set comment 0; set cComment 0; set commentsCount 0; set commentStartLine 0; set commentLastLine 0; set commentIndices [list]; set commentLinesCount 0; set codeLinesCount 0; set sourceLines [split $sourceData "\n
• linked lists
  02 Mar 2014 — same command: ======none % set x [set [lindex $x 0]] c 2 % set x [set [lindex $x 0]] a 3 % set x [set [lindex $x 0]] b 1 ====== Similar way we can create
• linsert
  20 Feb 2015 — 0 1 2} end x`''' will return `0 1 x 2`, the result of inserting `x` just before the '''end''' element of the list, which is '''2'''. However, it actually returns '''{0
• Linux
  14 Jun 2018 — A Brief History of Linux] ([https://web.archive.org/web/20090713005819/http://www.thestandard.com/article/0,1902,9457,00.html%|%alternate]) ,Annalee Newitz ,2000-02-08: [jcw] 2004-05-20: The
• Linux Bandwidth Sampling Tool
  26 Sep 2016 — Received: 14.8M Packets: 19.5K Errors: 0 Dropped: 0 Usage: 0.0B/s Transmited: 2.0M Packets: 21.2K Errors: 0 Dropped: 0 Usage: 0.0B/s I was obviously idle
• Linux Console Text Editor In Pure TCL
  18 Sep 2014 — idx into view area, 1-based set bufRow 0 ; # row idx into full buffer, 0-based set bufCol 0 ; # col idx into full buffer, 0-based set IDX(ROWLAST) -1 ; # last row
• Linux Disk Functions
  08 Jan 2018 — proc/self/mounts" RDONLY] set mounted [list] while {-1 != [gets ${mount} line]} { if {[string index ${line} 0] == "/"} { lappend mounted [lindex [split ${line}] 1] } } close ${mount} lsort -nocase ${mounted} } ====== A real partition starts
• Linux: volume control
  19 May 2018 — close") != 0 && strcmp (action, "getsinklist") != 0 && strcmp (action, "getvolume") != 0 && strcmp (action, "setvolume") != 0) || (argc != 2 && strcmp (action, "close") == 0) || (argc != 2 && strcmp (action, "getsinklist") == 0) || (argc != 3 && strcmp (action, "getvolume") == 0
• lish2html
  07 Sep 2012 — inname [lindex $argv 0] if {![file readable $inname]} { usage; exit } set infile [open $inname r] if {$argc==2} { set outfile [open [lindex $argv 1] w] } } while {[gets $infile line]>=0} { if [catch
• list
  28 Sep 2018 — a 0] 0 a % lindex [lindex [lindex a 0] 0] 0 a % lindex {a} a % lindex {a} 0 a % lindex [lindex {a} 0] 0 a % lindex [lindex [lindex {a} 0] 0] 0
• list comparison, elementwise
  23 Oct 2009 — llength $a]] != [[llength $b]]} then { return 0 } elseif {[[llength $a]] == 0} then { return 1 } elseif {[[llength $a]] > 1} then { expr {[[lequal [[lindex $a 0]] [[lindex $b 0]]]] && [[lequal [[lrange $a 1 end
• list level
  12 Jun 2011 — each returns 1). Applied to the test below it returns: 0 0 0 2 2 3 1. (Expected results are: 0 0 0 1 1 2 2). ---- ulis: Here is a proc
• List of Tcl commands by bytecode status
  22 Apr 2014 — AMG]: Regarding [[[uplevel] 0]]: I think the major use case for this command went away when we fixed/broke the nested array bug/feature. I recently used [[uplevel 0]] because I had
• List of ttk Themes
  11 Sep 2018 — off -variable on -value 0 ttk::radiobutton .rbon -text on -variable on -value 1 pack .rboff .rbon -in .rbf -side left -padx 3p ttk::scale .sc -from 0 -to 100 -variable val
• list stripping
  12 Jun 2011 — proc # --------------- proc stripping {l} \ { set len [string length $l] set level 0 set max 0 set last \{ for {set p 0} {$p < $len} {incr p} \ { set ch [string index $l $p] switch
• List the call stack
  26 Sep 2018 — i 1} {$i < [info level]} {incr i} { set lvl [info level -$i] set pname [lindex $lvl 0] append stack [string repeat " " $i]$pname foreach value [lrange $lvl 1 end] arg [info args
• listbox
  19 Feb 2018 — sb set] .lb insert 0 sample stuff colors red yellow green grid .lb .sb -sticky news grid columnconfigure . 0 -weight 1 grid rowconfigure . 0 -weight 1 .lb itemconfigure 0 -foreground blue .lb
• Listbox Drag-and-Drop
  21 Feb 2018 — winfo exists $lb] || [winfo class $lb] ne "Listbox" } { return 0; } set bt [bindtags $lb] if { [set bti [lsearch -exact $bt "Listbox"]] < 0 } { return 0; } foreach {x y} $args { if { $x eq "-command
• listbox selection
  22 Jul 2011 — l \ -exportselection 0 \ -selectmode extended \ -yscrollcommand [list .y set] scrollbar .y -orient vertical -command [list .l yview] pack .l -side left -expand 1 -fill both pack .y -side left -expand 0 -fill
• listcomp -Compare the Contents of two Lists
  05 Jun 2017 — 4} 0 ====== If order does matter (i.e. lists represent sequences), [lrange] makes a list canonical: ======tcl proc leq_s {a b} {expr {[lrange $a 0 end] eq [lrange $b 0 end
• Listex
  10 Jan 2012 — 3 0 1}] -> x=d,y=a,z=b lDivide Divides a list into two lists at index specified by index, setting variables in caller. Left var receives [lrange $list 0 $index
• listify
  24 Feb 2010 — than listification: ====== % set l " a b c } d { e " a b c } d { e % lset l 0 " a" unmatched open brace in list ====== Using [split] to force the listification results in completion
• Listx
  31 Aug 2012 — list elements onto a list * assign - assign list plus zero or more additional elements * concat - insert 0 or more lists into a destination * create - create a list * empty - test variable to determine
• Literate programming in a wiki
  28 Oct 2015 — a thought... ''Could we extend/use the wiki model to do [Literate Programming]?''. ** See Also ** [if 0 {] : ** Description ** Wikit (any wiki in fact) has some striking similarities to literate programming: * it can
• lmap forward compatibility
  28 Sep 2018 — 5 proc lmap args { set body [lindex $args end] set args [lrange $args 0 end-1] set n 0 set pairs [list] foreach {varnames listval} $args { set varlist [list] foreach varname $varnames
• load
  09 Dec 2017 — get_dnlink ABCD conversion failed % info patchlevel 8.6b2 % exec uname -a Linux toaster 3.4.0-andy #2 Fri Jun 1 23:52:05 CDT 2012 i686 Pentium II (Deschutes) GenuineIntel
• LoadButtons -Batch loading of images graphics for GUI objects
  09 Mar 2006 — h [image height [.disp.can.l$i cget -image]] if {$h < 15} {set h 15} incr y [expr $h + 5] } .disp.can configure -scrollregion "0 0 50 $y" } ---- [Category Graphics] - [Category GUI]
• loadf
  17 May 2010 — require critcl 0.33 critcl::ccode { #include <stdio.h> } critcl::cproc loadf {char* fn} Tcl_Obj* { FILE *fd; Tcl_Obj *r,*s; char line[1024]; r=Tcl_NewListObj(0,0); Tcl_IncrRefCount
• Loading and Saving Application Configuration Files
  19 Jul 2008 — else { return 0 } # read line by line # respond appropriate to what is found # see http://wiki.tcl.tk/2438 while {![eof $fp]} { set data [gets $fp] switch [lindex $data 0] { \# { # these are
• loading from memory
  20 Jan 2014 — 1\0\0\0\0\0\0\0\0\0\2\0\3\0\1\0\0\0\340\200"..., 524288) = 524288 read(3, "\0\0\10\0\212y\3\0", 8
• LOAF
  25 May 2006 — of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- # namespace eval ::LOAF { variable version 0.1.0 variable rcsid {$Id: 11994,v 1.13 2006-05-25 18:00:10 jcw
• locale
  05 Aug 2018 — command expr 1000.0 + 1.0 works fine before calling the connect function to the database. After connecting the same command gives an error: syntax error in expression 1000.0 Debugging the
• locale package
  16 Oct 2018 — locale package** Current Version: '''0.3''' (Updated 2018-10-15) [bll] 2018-8-5 I have written a locale command to work with Tcl. When LC_ALL is set, the locale for
• localization
  18 Jul 2016 — menu itself never has any text to configure. set TearoffP [$w cget -tearoff];#Tearoff has index 0 if present. set Last [$w index last] for {set k $TearoffP} {$k <= $Last} {incr k
• Localized clock
  25 Dec 2013 — nice... ---- [LES]: proc {mês em português} {} { set Month [ clock format [clock sec] -format "%m" ] set Meses { 0 janeiro fevereiro março abril maio junho julho agosto setembro outubro novembro dezembro } set Mes [ lindex
• Localized, Scalable Spinbox Widget
  03 Oct 2018 — Added basic state handling. '''Version 1.2''' Cleaned up display (for mac os x). '''Version 1.1''' Fixed get command. '''Version 1.0''' Initial release. <<discussion>> See also: [locale package] <<categories>>Widget
• Locally-scoped command aliases are fun!
  10 Feb 2012 — proc chan: {self method args} { uplevel 1 [linsert $args 0 chan $method $self] } proc dict: {self method args} { uplevel 1 [linsert $args 0 dict $method $self] } # Execute everything in a "global" scope
• Lock files using atomic hard links
  07 May 2015 — upvar \#0 $l LCK set ms -1 switch $LCK(state) { "UNKNOWN" { set LCK(attempts) 0 set LCK(salves) 0 set LCK(direction) 1 set LCK(next) 0 if { $LCK(-salves) > 0 } { set
• LocusLinkFile
  10 Jul 2017 — filename)] set x 0 while {[gets $infh line] >= 0} { set F [split $line \t] if {[expr $x % 100] == 0} { $prog progress [tell $infh] } $pvLocusLink append id [lindex $F 0] symbol [lindex $F
• log
  28 Sep 2018 — level} { variable logLevel set logLevel $level log::lvSuppressLE emergency 0; # unsuppress all log::lvSuppressLE $logLevel 1; # suppress all below selected log::lvSuppress $logLevel 0; # unsupress selected. return $logLevel } # initialize the default package
• log2changelog
  24 Sep 2012 — set len 60 while { [string length $c] > 0 } { set brk [string last " " $c $len] if { $brk < 0 } {set brk $len} puts "\t[string range $c 0 $brk]" set c [string range $c
• logarithm
  08 Sep 2011 — 1.0/$i}] set r [Log01 $x] puts "Log($x) = [format "%.8f" [lindex $r 0]] in [lindex $r 1] iterations" } ====== Test results: Log(0.5) = -0.69314718 in 14 iterations Log(0
• logger
  24 Sep 2013 — incr col } grid $tv -row 0 -column 0 -sticky news grid $vsb -row 0 -column 1 -sticky ns grid rowconfigure $f 0 -weight 1 grid columnconfigure $f 0 -weight 1 set bf
• Logikus
  22 Mar 2014 — to-run, standalone-starkit. ---- ====== #!/bin/sh # Restart with tcl: -*- mode: tcl; tab-width: 4; -*- \ exec wish $0 ${1+"$@"} # Logikus.tcl - HaJo Gurt - 2012-04-04 - http://wiki.tcl.tk/36471 #: Simulates the
• Logistic regression
  25 Jun 2018 — 50 4.75 5.00 5.50} set ydata {0 0 0 0 0 0 1 0 1 0 1 0 1 0 1 1 1 1 1 1 } set coeffs [::math
• Logo
  09 Aug 2003 — have read the book "Introducing LOGO" by Boris Allan (Granada Technical Books, 1984, ISBN 0-246-12323-0) to get acquainted with the language and more importantly the ideas behind it. Several
• LogParser
  24 Mar 2018 — 1.0 end set results [invoke "\"C:/Program Files (x86)/Log Parser 2.2/LogParser.exe\" \ -i:CSV \ \"[.ctrls.sql get 1.0 end]\" \ -headerRow:ON"] $log insert end "[lindex $results 0
• LogParser accessing the Windows event log
  25 Sep 2012 — hexMap]} { for {set i 0} {$i < 256} {incr i} { lappend hexMap [format {%02X} $i] [format {%c} $i]; } } set value [string map $hexMap $value]; if {[string first "\x0" $value] >= 0} { if {[string first
• LogParser goes COM
  26 Jun 2018 — C:\\*.* ORDER BY Size DESC"\ $evt] while { ![$recordSet atEnd] } { set record [$recordSet getRecord] puts "[$record getValue 0],[$record getValue 1],[$record getValue 2]" $recordSet moveNext } $recordSet close ---- Interactive Mode - Example 2:<<br
• Long-Period Random Number Generator
  04 Sep 2011 — 63 } ] set rmaxint ${maxint}.0 set millnum 0 proc initmill { { name ""} { seed 0 } } { if { $name eq "" } { set name mill$::millnum ; incr ::millnum } upvar $name mill if { $seed != 0 } { ::mathfunc::srand $seed } set
• Longest common subsequence: folklore algorithm
  29 Apr 2011 — 1 } { $i < [llength $y] } { incr i } { lappend t 0 } for { set i 0 } { $i < [llength $x] } { incr i } { lappend t 0 for { set j 0 } { $j < [llength $y] } { incr j } { if { [string
• Longest common substring
  08 Dec 2011 — set initialrow [lrepeat [expr {[string length $t] + 1}] 0] set prevrow $initialrow set result [list] set longestlength 0 foreach schar [split $s ""] { set j 0 set row $initialrow foreach tchar [split $t
• Longest common word prefix
  22 Sep 2018 — reaper -x 55230 0 | tee lcwp.tcl` ====== #! /usr/bin/env tclsh # Copyright (c) 2018 dbohdan # License: MIT package require Tcl 8.5 namespace eval ::lcwp { variable version 0.3.0 interp alias
• LongLat Converter
  04 Jul 2011 — string length $deg] == 1 } { set deg "0${deg}" } if { [string length $min] == 1 } { set min "0${min}" } if { [string length [expr int($sec)]] == 1 } { set sec "0${sec}" } return "${deg}${min}${sec
• Looking a bit like Maple
  27 May 2012 — 1) x /(i+1)**2 i=0 You could write a procedure like this: ====== proc f {x n} { set sum 0.0 for { set i 0 } { $i <= $n } { incr i } { set sum
• loop
  19 Sep 2012 — Tcl version: ====== proc loop {_var first limit args} { switch [llength $args] { 1 {set body [lindex $args 0]; set increment 1} 2 {foreach {increment body} $args break} default {error "usage: loop var first
• Looping over the contents of a text widget
  20 Jan 2014 — expand y .t tag configure highlight -foreground red <insert text into widget> forText .t -regexp {***:<.*?>} 1.0 end { .t tag add highlight matchStart matchEnd } ====== ---- ====== proc forText {w args} { # initialize search command; we
• LOST
  23 Nov 2013 — set args $args set max [ llength $args ] } for { set i 0 } { $i <= $max } { } { set s [ lindex $args $i ] if { [ string index $s 0 ] == "-" } { set var [ string range $s 1 end ] incr i
• Lotto 2
  25 Apr 2016 — for {set i 0} {$i<=6} {incr i} { puts -nonewline "[format [expr {$i==6 ? "- %2d" : "%2d "}] [lindex $lucky $i] ]" } #puts -nonewline " Matches: " set win 0 for {set i 0} {$i<=6} {incr
• lpttcl
  20 Mar 2008 — port] for a more general introduction. Download version '''3.0''' from [http://www.zpeng.com/files/lpttcl_v3.zip]. Download version '''1.0''' from [http://www.zpeng.com/files/lpttcl.zip]. ---- '''Commands
• lquery
  14 Jan 2012 — may have three kinds of result: * (a) -1, if nothing was found * (b) an even number (0,2,4,..) if a country code was found * (c) an odd number (1,3,5
• lrange
  20 Apr 2015 — same results as “`list [[lindex list first]]`” <<discussion>> `set x [[lrange $x[[set x {}]] 0 end]]` may be used to transform `$x` into a [pure list], which enhances performance in
• lrepeat
  08 Dec 2016 — 3 0] 0 0 0 0 0 0 0 0 0 ''as opposed to the example at the top of the page:'' {0 0 0} {0 0 0} {0 0 0} ---- [LES
• lreverse
  20 Nov 2016 — lreverse7 {l {r {}}} { if {[llength $l]==1} { linsert $r 0 $l } else { lreverse7 \ [lrange $l 1 end] \ [linsert $r 0 [lindex $l 0]] } } puts "testing lreverse7 $l => [lreverse7 $l]" time {lreverse7 $l
• lrmdups
  20 Jan 2013 — trivial algorithm: ======none proc lrmdups list { set res {} foreach element $list { if {[lsearch -exact $res $element]<0} {lappend res $element} } set res } % lrmdups {foo bar grill bar foo} foo bar grill ====== [SS
• ls -l in Tcl
  19 Sep 2013 — if { [info exists stat(type)] && [string compare file $stat(type)] } { set type [string index $stat(type) 0] } append retval $type # Decode $stat(mode) into permissions the way that ls does it. foreach
• lsearch
  21 Feb 2017 — lrepeat 3 0]] % {0 0 0} {0 0 0} {0 0 0} lset m 1 0 1 ; lset m 2 0 2 % {0 0 0} {1 0 0} {2 0 0} ====== Now
• lset
  01 Jul 2016 — of `set lst [[lreplace [[K $lst [[set lst {}]]]] 0 0 a]]` or in the best current alternative `set lst [[lreplace $lst[[set lst {}]] 0 0 a]]`. ---- I have been trying `[lset]`, and
• lset forward compatibility
  01 Jul 2016 — 2" && [llength [lindex $args 0]] == "0") } { set list [lindex $args [expr {[llength $args]=="1"?0:1}]] return $list; } set val [lindex $args end] foreach x [lrange $args 0 end-1] { set list
• lshift
  18 May 2011 — modified: ====== proc lshift listVar { upvar 1 $listVar l set r [lindex $l 0] set l [lreplace $l [set l 0] 0] return $r } ====== You can use this programming idiom also without having
• lshift -Adding Unique Items to Lists of Fixed Length
  19 Apr 2006 — l [linsert $l 0 $i] return $l } # insert new item at the top set l [linsert $l 0 $i] # delete the one at the end return [lrange $l 0 end-1] } #--------------- # the
• lsplit
  13 Feb 2004 — proc lsplit {list var expression args} { switch -- [llength $args] { 2 {upvar [lindex $args 0] left [lindex $args 1] right} 0 {} default { error [format %s%s "Wrong number of arguments. Try lsplit " \ "var
• Lua
  18 Apr 2018 — years ago!). -- ''20060613 [Sarnold]'' [DKF]: For the record, [dict] could never have been done before 8.0; the performance would have been ''terrible''. It wasn't easy to do until 8.4
• LuaJIT
  30 Nov 2017 — pcall(LUAJIT_CDATA, 0, 1, 0); lua_res = lua_tolstring(LUAJIT_CDATA, -1, &len); Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(lua_res, len)); lua_pop(LUAJIT_CDATA, 1); if (rc == 0) { return TCL
• lvarpop
  25 Sep 2012 — is omitted, then 0 is assumed. If ''string'' is specified, then the deleted element is replaced by ''string''. The replaced or deleted element is returned. Thus ====== lvarpop argv 0 ====== returns the first
• lvarpush
  20 Aug 2013 — var''. The element is inserted before position ''indexExpr'' in the list. If ''indexExpr'' is omitted, then 0 is assumed. If ''var'' does not exist, it is created. If the expression ''indexExpr'' starts
• LZW
  10 Sep 2012 — currSizeDict} { set entry $w[string index $w 0] } else { error "invalid code ($k) in ($cdata)" } append result $entry lappend dict $w[string index $entry 0] set w $entry } return $result } set s
• m+
  02 Dec 2016 — winfo exists .m.m$head]} { .m add cascade -label $head -menu [menu .m.m$head -tearoff 0] } if [regexp ^-+$ $name] { .m.m$head add separator } elseif {[regexp {^\?(.+)} $name -> name]} { .m.m$head
• Mac style search entry widget
  01 Sep 2018 — Tk 8.5b1 (on Mac OSX Tiger 10.4.10) which has Tile integrated (version 0.8.0), the "style element create" command returns an error on the -map option. According to
• MacFsbox
  11 Jan 2006 — What: MacFsbox Where: ftp://ftp.ceram.fr/pub/tcl/MacFsbox-1.0.tcl.gz Description: Single Tcl file that implements a Macintosh-like file selection box. Updated: Contact: mailto:Frank.Mangin@ceram
• Machine Identification on Windows using TWAPI, MAC-, IP-Addresses or hostnames
  03 Aug 2012 — patternPart] == 0} { return 0; } lappend temp [format \ {[string match -nocase {%s} $part] == 0} \ $patternPart \ ]; } else { # part could be an integer between 0 and 255 # if {($patternPart < 0) || ($patternPart > 255)} { return 0; } lappend
• machineparameters
  25 Nov 2012 — 2. set epsilon 0.5 for {set i 0} {$i<$options(-maxiteration)} {incr i} { set epsilon [expr {$epsilon / $factor}] set inequality [expr {1.0+$epsilon>1.0}] if {$inequality==0} then { break
• MacOS X shortcuts
  13 Aug 2013 — on the OS. In HFS+ file systems (which has been the default from Mac OS 8.0 and on) there can be symbolic links but no hard links. UFS file systems support
• Macro Facility for Tcl
  29 Jan 2018 — cmd} { return "for {set $idx 0} {\$[set $idx] < $cnt} {incr $idx} {$cmd}" } proc something {} { mloop i 5 {puts "hello $i"} # above expands to: for {set i 0} {$i < 5} {incr i} {puts
• MacSpeech
  02 Feb 2012 — download/TclSpeech2.0.sit Description: Tcl MacSpeech is a shared library that extends Tcl/Tk on the Macintosh platform to support the MacOS native speech synthesis. Currently at version 2.0. Updated
• Mactel/universal binaries
  24 Oct 2013 — to build a universal binary of Tk. I logged this on sourcforge [EH] Starting from 1.0-rc0, [eTcl] supports MacOSX. It is available for download as an Universal Binary bundle. It
• Magic Cards
  25 Apr 2016 — GiGo - Garbage In, Garbage Out. This variation allows a range of choice other than 0-64 or 0-128 etc. The technique is identical in every way (but looks cleverer) than simple
• Magnifying Glass
  18 Aug 2013 — c -width $S(w) -height $S(h) -highlightthickness 0 .c create image 0 0 -image ::img::img -anchor nw .c create image 0 0 -image ::img::small -anchor c -tag small frame
• Mahjong_Style_Deletion
  24 Apr 2016 — set labels {one two three four} # draw the boxes for {set row 0} {$row < $rows} {incr row} { for {set col 0} {$col < $cols} {incr col} { # calculate coordinates set x1 [expr {$col * ($boxwidth
• Mahoney Map
  27 Nov 2012 — single-variable case. I will call this variable A. Make a table like this: &| `0` | `1` |& The numbers 0 and 1 represent /A and A, respectively, where /A is pronounced "not-A
• mailbreak
  12 Feb 2015 — tclsh \ exec tclsh "$0" ${1+"$@"} package require mime package require sha1 package require struct::tree proc buildmimetree {token node} { set props [mime::getproperty $token -names] if {[lsearch $props parts] >= 0} { # this one
• mailip.tcl
  18 Sep 2009 — sender address } proc ::mailip::getip {} { # Returns your current external IP # or 0.0.0.0 # set result 0.0.0.0 set request [::http::geturl http://checkip.dyndns.org] set answer [::http
• main script
  12 Oct 2014 — file stat [info script] scriptInfo expr {$argv0Info(dev) == $scriptInfo(dev) && $argv0Info(ino) == $scriptInfo(ino)} } else { return 0 } } ====== And by request from [PYK], here's how to make the above callable as [[info
• Maintaining indentation in a text widget when go to a new line
  25 Sep 2012 — sel 1.0] != ""} { $w delete sel.first sel.last } # Find the whitespace at the start of the current line set startl [$w index "insert linestart"] set endl [lindex [split $startl "."] 0].end
• mainwindow
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/mainwindow.html and http://purl.org/tcl/home/man/iwidgets3.0/mainwindow.n.html ---- [Category Command], a part of [incr Widgets]
• Make a script withdraw itself to the background
  27 Jan 2013 — a [script] to restart itself in the background. It goes something like this: ====== if {[lindex $argv 0] ne "-dorealprocessing"} { set command [list [info nameofexecutable]] # A starpack doesn't use a script parameter
• Makedist
  27 Dec 2013 — generate distributions from a source code repository such as CVS, automating as much as possible.| || V2.0 requires Tcl 8.x .| | Updated:| 11/1998| | Contact:| mailto:andreas_kupries@users.sourceforge.net (Andreas
• Making bright regions less bright with twapi and tk
  04 Feb 2011 — out {} { if {$::blackout eq 0} { alpha 100 set ::blackout 1 } else { alpha set ::blackout 0 } } # wm attributes . -alpha 0.70 -topmost 1 proc cover_window {} { if {$::visible eq 0} { get_geometry wm
• Making Timing More Easy
  24 Aug 2018 — iterations, $tries)" } set sigma 0 for {set i 0} {$i < $tries} {incr i} { set used [time $command $iterations] if {$output} { puts $used } set sigma [expr {$sigma + [lindex $used 0]}] } set average [expr
• Managed and shaped toplevel
  04 Jul 2011 — size_hints.min_height = size_hints.max_height = 600; w = XCreateSimpleWindow(dpy, rootw, 0, 0, 800, 600, 2, 0, 0); wm_hints.initial_state = NormalState; wm_hints.input = True; wm_hints.flags
• Managing Fortran programs
  31 Dec 2012 — coded:} scale $base.schieber \ -variable Verschiebung -from -26.0 -to 26.0 -digits 0 \ -label {Shift by} -length 104 -showvalue 1 \ -tickinterval 13.0 -orient horizontal label $base.lab3 \ -borderwidth 1 -text
• Managing the reference count of Tcl objects
  06 Aug 2018 — listPtr designates an unshared copy of the ** list. Edit it. **/ status = Tcl_ListObjReplace( interp, listPtr, 0, 1, 0, (Tcl_Obj*)NULL ); /** ** Put the new copy of the list back in the variable
• Mancala
  17 Apr 2011 — row config. is : # 0-0-0-0-0-0 (top) # 1-0-0-0-0-1 (bottom) return [expr {[lindex [sum-sides $board] $opp]==2 && [get $board $opp 0]==1}] } # the opponent
• Mandelbrot and Julia sets
  05 Apr 2017 — cy [expr {-2.0+$cdy*$row}] for {set col 0} {$col < $width} {incr col} { set cx [expr {-2.0+$cdx*$col}] set zx 0.0 set zy 0.0 set noiter [det
• Manipulating blocks of data
  28 May 2012 — float *matrix1, *matrix2, *result ; int i,j,k,n1,n2 ; k = 0 ; for ( j = 0 ; j < n2 ; j ++ ) { for ( i = 0 ; i < n1 ; i ++ ) { result[k] = matrix1[k] + matrix2[k] ; /* Trusting the
• manipulating data with Tcl
  08 Dec 2013 — along the y axis of 0.0, 0.1, 0.2, 00000000004 (the left side of the number is clipped), 0.4, 0.5, 0.6, 0.7, 99999999999, 99999999999, 99999999999 (again
• Manipulating infinite sets in Tcl
  11 Jun 2012 — seta } { if { [lindex $seta 0] == "INDUCEDSET" } { return [lindex $seta 3] } if { [lindex $seta 0] == "UNION" } { set firstset [lindex $seta 1] return [lindex $firstset 3] } if { [lindex $seta 0] == "INTERSECTION" } { set firstset [lindex
• Many ways to eval
  26 Jan 2016 — cmd {set name {Zaphod Beeblebrox}} #these examples are not byte-compiled, so slower eval $cmd uplevel 0 $cmd history add $cmd exec source nameoffile #these examples are byte-compiled, so faster if
• Mapping words to floats
  31 Mar 2004 — x*$labc-$i}] } set res } if 0 {Testing, and usage examples: % sfrac hell 0.303787250137 % sfrac hello 0.303788297767 % sfrac helloa 0.303788298094 % sfrac world 0.873365337165 This is close to the
• mapvfs
  07 Sep 2013 — set dirs [::lrange $args 0 end-1] set relativename [::lindex $args end] set split [::file split $relativename] set rc [file join [lindex $dirs 0] $relativename] for {set i 0} {$i < [llength $split
• Markov
  08 Aug 2005 — lappend current_segment $current_word set counter [expr $link_length +1] } } #OUTPUT set total 0 for {set x 0} {$x <= $output_length} {incr x} { #get the current link from the end of
• Markov algorithms
  25 Feb 2013 — example, in binary images with long "runs" of 0 or 1 pixels, the differentiated pattern gives only the transitions as 1, the rest as 0, so it can be expected to contain
• Markov Matrices
  28 May 2012 — to 1. # ::markov::makeMarkov light { {0.8 0.2 0.0} {0.0 0.2 0.8} {0.3 0.0 0.7} } 0 for { set i 0 } { $i < 20 } { incr i
• masm
  30 Nov 2013 — proc lempty lst {expr {[llength $lst] == 0}} ) proc lempty lst {masm {push $lst;listLength;push 0;eq}} puts [lempty {}] puts [lempty a] returns 1 resp. 0, as desired. Now as I continue
• Mass-widget
  22 May 2006 — displaying the visible area if {$first < 0} { set first 0 } if {$first > $::items_count - $::visible_height} \ { set first [expr {$::items_count - $::visible_height}] } .e delete 0 end .e insert end $first yset
• Massimo Manghi
  19 Sep 2018 — to run Tcl code either standalone or embedded in HTML pages. Rivet current version is 3.0.2, available for download from the http://tcl.apache.org/rivet/%|%Apache Tcl Project%|%. In
• Master Slave Flip Flop
  10 Dec 2005 — make a flip flop which can either be set to take over a 1-0 or a 0-1 input combination, or to remember its previous state ad infinitum. Two such gated
• math
  20 Jan 2016 — setelem temp 0 0 [getelem $matrix 1 1] setelem temp 1 1 [getelem $matrix 0 0] setelem temp 0 1 [expr {-1*[getelem $matrix 0 1]}] setelem temp 1 0 [expr {-1
• Math on binary strings
  18 Apr 2017 — d1 eq ""} {set d1 0} if {$d2 eq ""} {set d2 0} switch -exact [set sum [expr {$d1 + $d2 + $carry}]] { 0 - 1 { set carry 0 } 2 { set sum 0; set carry 1 } 3
• Math Operators as Commands
  28 Sep 2018 — llength [lsort -unique $args]]} (Use the '''-real''' [lsort] option if you don't want "0", " 0", "0.0", "-0", etc. to be considered distinct.) I can't imagine a single case where
• Math sugar
  17 Jan 2013 — expr {$x>0}} ====== but as this is the required condition, one could use ''requires'' as alias for expr, so it could look like this: ====== proc isPositive x {requires {$x>0}} ====== More typing
• math::bigfloat
  15 May 2012 — y } # y'(t)=y(t) and y(0)=1 set x0 [fromstr 0.0 10] set y0 [fromstr 1.0 10] set xEnd [fromstr 1.0 10] set steps 100 puts "With
• mathemaTcl
  04 Oct 2017 — acos(-1.0)}] for {set i 0} {$i < $size} {incr i} { lappend values [expr {0.4+cos(2.0*$PI*$i/100.0)+sin(4.0*$PI*$i/100.0)}] } set oldvalues
• Mathematical functions and Snit
  28 Sep 2012 — x==0.0? 1.0 : sin($x)/$x}} puts "Value at x=0: [f 0.0]" #catch {puts [f 0.0]} msg;puts $msg; puts $errorInfo # Alternative: [f value 1.0] puts
• Mathematical notebook
  31 May 2012 — ymax) set px0 [expr {$xscale*(0.0-$xmin)}] set py0 [expr {$yscale*($ymax-0.0)}] $CNV create line $px0 0 $px0 $height -fill black $CNV create line 0 $py0 $width $py0 -fill
• Mathematical notebook - examples
  03 Jun 2012 — scale {-1 -1 6 6} polyline {0 0 4 0 4 3 0 0} black text 2.0 -0.5 a text 1.5 2.0 c text 4.5 1.5
• Mathematical notebook revisited
  22 Dec 2011 — 0 black circle 0.0 0.0 1.0 black point 0.0 -1.0 black console show puts [intersectionCircleLine {0.0 0.0 1.0} {0.0 0.0 0.0
• mathematical set
  11 Jan 2012 — eval expr "{$args}"]] } else { uplevel [list ::set.org $var [lindex $args 0]] } } ---- [RS]: Cute. But the case of [[llength $args]]==0 should also be covered as returning the value - right now it
• Mathematical workbench
  07 Jan 2011 — real # functions of one variable. # # Version information: # version 0.1: initial implementation, july 2002 package provide Functions 0.1 namespace eval ::Workbench { variable nextID 0 # uniqueID -- # Create a unique ID (private) # # Arguments
• Mathematics jewels
  11 Sep 2013 — a2}] for {set y 0} {$y < $Y} {incr y} { set _c [expr {1.0 - pow(2,$shapefactor) * ($x2 + (pow($y,$shapefactor) * $b2))}] if {$_c < 0} { set _c 0.0 } set color # foreach
• Matthias Hoffmann - Other Utilities
  29 Feb 2008 — Sonderfall: Benutzer und Webserver auf dem selben Rechner -> ' remote_addr erhält immer 127.0.0.1. ' Bei 127.0.0.1 ist NBTSTAT langsam und liefert ausser der tatsächlichen ' IP-Adresse nichts
• Matthias Hoffmann - Other Utilities - Dirwatcher
  02 Nov 2008 — i) if instr(dir1,tmp) = 0 then if tmp = parseArg(stopfil) then ' v1.10: stopfil sofort wieder löschen setattr dirS & tmp,0 kill dirS & tmp function = 0 exit function end if stdout
• Matthias Hoffmann - PhotoPrinter
  23 Mar 2017 — set nr 0; # PageNummer ### this 0 set next 0 ;# nächstes Bild (wenn da) set anex 0 ;# übernächstes Bild (wenn da) set aane 0 ;# über-übernächstes Bild (wenn da) set photo(0,orientation
• Matthias Hoffmann - Tcl-Code-Snippets - Misc - Readprof
  01 Jul 2011 — replaced with the value of this var. To suppress these feature, ''readprof1'' must be called with '''0''' as the last arg. The following needs translation and documentation ;-) ---- [JMN] 2007-10-24, Please
• Matthias Hoffmann - Tcl-Code-Snippets - misc routines - command line parsing
  30 Apr 2008 — the price for using arrays } ---- # Tests set tpl [list -f1 0 -f2 0 -f3: "*" -f4 0 -test 0 1 "" 2 "" 3 "Default3" -? 0] puts "Template: $tpl\n" puts Commandline: gets stdin cmd
• Matthias Hoffmann - Tcl-Code-Snippets - tclhttpd and cgi-related - CGIFRAME
  11 Sep 2011 — page''' * Current Version is '''0.16''' (Bugfix: ''Zurueck'' (Goback) not working after a ''Refresh'') * Updated to '''0.17''' (documentation, input field for filter-entry) * 2006-11-30: '''0.19''': better support for
• Matthias Hoffmann - Tclhttpd - Startprocedures
  02 Nov 2007 — tclhttpd with tclkit and tclhttpd.kit on Windows 2k/XP (experimental)''' ::catch {};#\ @tclkit-win32-sh.exe %0.bat -config ./tclhttpd.rc -debug 1 ::catch {};#\ @goto :EOF # Probleme: # CGI-Proc ist ebenfalls tclkit
• Mavica 411 image conversion
  01 Jan 2012 — V-128), 0, 255))] set G [expr int(clip($Y - 0.344 * ($U-128) - 0.714 * ($V-128), 0, 255))] set B [expr int(clip($Y + 1.772 * ($U-128) , 0, 255
• Mavrig
  28 Nov 2011 — website: ======none hook main.Run failed: could no create new link "0.x-new/jcw/Akismet,tcl: target "../../contrib/jcw/0.x/Akismet.tcl" doesn't exist... ====== launching the local mavrig website
• max
  02 Jun 2012 — in a loop (works for numeric and string values): ====== proc max args { set res [lindex $args 0] foreach element [lrange $args 1 end] { if {$element > $res} {set res $element} } return $res } ====== By
• Maxima through a pipe
  24 Mar 2012 — Initialise the array: variable data set data(size) 0 # Open the pipe: set data(pipe) [open "|maxima" RDWR] fconfigure $data(pipe) -buffering line -blocking 0 # Set up a handler for the output
• Maximizing a toplevel window
  15 Dec 2013 — package present Tk 8.3}] == 0) && [string equal $::tcl_platform(platform) windows]} { wm state $toplevel zoomed return } pack propagate $toplevel 0 update idletasks wm geometry $toplevel +0+0 wm minsize $toplevel [winfo
• Maybe package
  24 Aug 2012 — commands that return specially formatted strings that exactly resemble tagged [list]s: ====== package require maybe 1.0 set a [maybe Nothing] ;# returns Nothing set b [maybe Just 12] ;# returns {Just 12} ====== In
• maze generator2
  19 Aug 2013 — MOTION { 0,x 0 0,y -1 0,z 0 1,x 1 1,y 0 1,z 0 2,x 0 2,y 0 2,z -1 3,x 0 3
• Maze in openGL om windows navigation controlled by Tcl/Tk
  26 Sep 2016 — 0 )/1.3 + 50.0] if {[expr abs($bv-50.0)] < 1.0} { set bv 50 } set bh [expr ($bh-50.0 )/1.3 + 50.0] if {[expr abs($bh-50.0
• MD4
  21 May 2014 — http://tools.ietf.org/html/rfc6150%|%MD4 to Historic Status]. ** Examples ** ======none % package require md4 1.0.4 % base64::encode [md4::md4 {}] MdbP4NFq6TG3PFnX4MCJwA== % md4::md4 -hex {} 31D6CFE0D16AE931B73C59D7E0C089C0 % base64::encode [md4::md4 a
• md5
  31 Mar 2017 — return code is 1. (If equal, 0). } if {[llength $argv] < 1} {puts stderr $usage; exit} package require md5 set md1 [md5::md5 -hex -file [lindex $argv 0]] puts $md1 if {[lindex $argv
• MDI
  10 Sep 2012 — Salan, a Tcl extension for HTML, CGI, and XML. Platform: Windows 95/98/2000/NT 4.0 Current version is 2.3. Updated: 11/1998 Contact: mailto:support@neatware.com What: PVM
• Measurement widget with units conversion
  18 Jan 2013 — end, so fix it up. lsort -index 0 -dictionary $result } elseif {[llength $args] == 1 } { # Get the value for a single option set option [lindex $args 0] switch -- $option { -units { set result [list
• Measuring your Application's CPU Utilization
  17 Nov 2016 — processor_utilization 0.5898441948604449 processor_utilization_per_cpu {_Total 0.5898441948604449 0,_Total 0.5898441948604449 0,0 1.163364324505478 0,1 0.39867081831209683 0,2 0.11191075348958579 0,3 0.685430883134619} (tcl
• Meb
  26 May 2018 — 0 .m add cascade -label File -underline 0 -menu [menu .m.m0 -tearoff 0] .m.m0 add command -label Load -underline 0 -command ::fileLoad .m.m0 add command -label Save -underline 0
• MechMaster
  21 Dec 2005 — 0.1-alpha.tar.bz2 Description: Create a mech by choosing model, batteries, shields, weapons, misc. equipment, then write a small progrma to control the mech while fighting. Currently at version 0
• Median filtering
  06 Oct 2010 — set data {} for {set i 0} {$i<$h} {incr i} { set row {} for {set j 0} {$j<$w} {incr j} { lappend row [lindex [$image get $j $i] 0] } lappend data $row } set
• MEdit
  07 Jul 2011 — within "if {$mainwindowfont != ""} { $medit::t configure -font $mainwindowfont }" ("uplevel" body line 43) invoked from within "uplevel #0 $commanddefinitions($name)" (procedure "medit::invokeCommand" line 23) invoked from within "medit::invokeCommand "editor appearance"" (procedure
• megaimage
  28 Jul 2009 — around to SVG. [ntk] is taking up a lot of my time, and a NexTkKit to go along with it. [bobblanchett] [tkpath] 0.30 implements basic svg paths ---- !!!!!! %| [Category Graphics] | [Category Package] |% !!!!!!
• megaimage tutorial
  08 Jul 2010 — set x 20 set y 30 set width 200 set height 200 set color [list 0 0 255 255] $obj rectangle $x $y $width $height $color set fd [open "output.jpg" w
• Megaimage with Tclhttpd
  29 Jul 2006 — load: http://localhost:8000/megaimage/data ---- package provide httpd::megaimage 1.0 package require httpd package provide httpd::megaimage 1.0 package require httpd::direct package require httpd::redirect set dir [file
• megapkg structure extension
  21 May 2011 — proc callback {s key value} { if {"bob" eq $value} {return 1 ;#do set}; return 0 } % $s -key foo 0 % $s -key value % $s -key bob 1 The structure key callback may be
• Megawidgets with TclOO
  16 Dec 2016 — 0} -cursor {cursor Cursor {}} -height {height Height 0} -highlightbackground \ {highlightBackground HighlightBackground #d9d9d9} -highlightcolor {highlightColor HighlightColor #000000} -highlightthickness {highlightThickness HighlightThickness 0} -padx {padX Pad 0} -pady {padY Pad 0} -takefocus {takeFocus TakeFocus 0
• MEL
  09 Mar 2015 — understandable by a Tcler. For example, to create an half-sphere: ======none sphere -r 10.0 -ssw 0 -esw 180 -n half_sphere; ====== And a simple GUI with menu and buttons for
• memchan
  03 May 2015 — Memchan set fd [open /tmp/output.txt w] set m [memchan] puts $m someStringData seek $m 0 start fcopy $m $fd -command CopyFinished proc CopyFinished args { puts $args } puts {Application has completed
• memoize
  21 Sep 2018 — package provide memoize 0.1 namespace eval ::memoize { variable Memo } proc ::memoize::memoize {} { variable Memo set cmd [info level -1] if {[info level] > 2 && [lindex [info level -2] 0] eq "memoize::memoize
• memoizing
  21 Sep 2018 — f {} remember $f } proc remember {f args} { upvar #0 $f cache if {![dict exists $cache $args]} { dict set cache $args [uplevel 1 [linsert $args 0 _cache_$f]] } dict get $cache $args } ====== If
• memory file system
  09 Apr 2011 — me: #!/usr/bin/env tclkit8.5 cd ~/src/backups proc find.latest.mtime dir { set peak 0 foreach f [glob -nocomplain [file join $dir *]] { if {[file mtime $f] > $peak} { set peak [file
• Memory Footprint Comparisons
  24 Dec 2007 — w Tcl/Tk 8.0.5 SuSE6.3 <<br>> (OO and [c++]) | 16876 ''after start'' |& &| [gracer]0.1.5[http://wiki.tcl.tk/2237] /w Tcl/Tk 8.0.5 Mesa-3
• memory leak finding with memory trace
  16 Jan 2011 — i 0 source [lindex $argv 0] foreach name [array names store] { foreach {i addr size} [split $name ,] {break} lappend out [list $i "LEAK: $addr $size $store($name)"] } puts [join [lsort -index 0
• Memory Usage Pattern Graph
  03 Jun 2011 — 0 -sticky we grid .graph.yscroll -row 0 -column 1 -sticky ns grid columnconfigure .graph 0 -weight 100 grid rowconfigure .graph 0 -weight 100 set ::vszid [.graph.c create line 0 0
• Mentry
  02 Mar 2014 — What: Mentry Where: http://www.nemethi.de/ Description: Tcl/Tk 8.0 or higher library package which facilitates the use of multi-entry/label widgets for display and editing of real numbers
• menu
  31 Jul 2018 — If the active item is 0 and topIndex != 0 we need to scroll down and insert # the prior item into the menu. if {($activeItem == 0) && ($topIndex != 0)} { $self ScrollDown } # If the active
• menu accelator utility seed code
  19 Jul 2012 — label] set underLineIndex [ $menu entrycget $i -underline] if {$underLineIndex < 0 } { incr i ;continue } set char [string index $label $underLineIndex] if { [lsearch $UCharsList $char] >= 0 } { puts "skipping $label" incr i continue } bind $topWin
• Menu as trees as nested list
  06 Apr 2009 — treeMenu { variable numMenu 0 variable numCommand 0 variable numSeparator 0 variable numCheckButton 0 variable numRadioButton 0 # create menu / cascade proc cascade {D0 D1 args} { variable numMenu if {[llength $args] != 0} { menu [::set
• menu forward compatibility
  12 Jul 2011 — menu [lindex $args 0]]] rename $cmd Tk4.2_$cmd proc $cmd {option args} { set myName [lindex [info level 0] 0] switch -glob -- $option { cg* { if {[string first $option cget] != 0} { return [uplevel
• menubar
  16 Jul 2014 — normally displayed horizontally at the top of the main frame. Menubars should normally (since [Tk] 8.0 onwards) be created through configuring a [menu] to be in that role using the `-menu
• menubar - A command that creates menubar objects
  01 Nov 2010 — x} copy {0 Cntl+C Control-Key-c} paste {0 Cntl+V Control-Key-v} coffee {0 Cntl+A Control-Key-a} donut {0 Cntl+B Control-Key-b} eggs {0 Cntl
• menubutton
  21 Jan 2012 — frame .menubar -borderwidth 0 -takefocus 0 pack .menubar -side top -fill x menubutton .menubar.file -text File \ -underline 0 -menu .menubar.file.m menubutton .menubar.edit -text Edit \ -underline 0 -menu .menubar
• Menus Even Easier
  20 Jan 2014 — s [ split $pathname $separator ] if { [ lindex $s 0 ] == "" } { set s [ lreplace $s 0 0 ] } } ################################################################# # # # _ _ # # /\/\ ___ _ __ _ _ /\/\ ___ __| |_ _| | ___ # # / \ / _ \ '_ \| | | | / \ / _ \ / _` | | | | |/ _ \ # # / /\/\ \ __/ | | | |_| | / /\/\ \ (_) | (_| | |_| | | __/ # # \/ \/\___|_| |_|\__,_| \/ \/\___/ \__,_|\__,_|_|\___| # # # ################################################################# set stack "" set funclist "" set menulist "" set indxlist "" set nextwidget 0 # returns a string for the next widget
• Menus made easy
  20 Nov 2011 — top if {![winfo exists $it]} { menu $it $w.menubar add cascade -label $top -menu $it -underline 0 } foreach {label cmd} $descr { if {$label=="--"} {$it add separator; continue} if {[regexp {^-(.+)} $label -> label]} { set
• Mercator
  21 May 2013 — What:| mercator-1.0.24| || A mindmap style charting program| | Description:| Mercator is a program intended to help you create what are often self-importantly described as mindmaps. The main display window
• Merging images with transparency
  23 Jun 2010 — dx 0 ;# x displacement set dy 0 ;# y displacement set alpha 0.25 ;# opacity if {$alpha < 0.0 || $alpha > 1.0} \ { error "alpha should be between 0.0 and 1.0" } # package
• Mersenne Twister
  02 Jun 2012 — mtimm] incr i if {$i >= $N} { set mt [lreplace $mt 0 0 $mtimm] set i 1 } } set mt [lreplace $mt 0 0 0x80000000] } # # Produce some more random numbers # proc mt::more {} { variable
• messagedialog
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/messagedialog.html and http://purl.org/tcl/home/man/iwidgets3.0/messagedialog.n.html ---- [Category Command], a part of [incr Widgets]
• MessagePack
  07 Nov 2017 — msgpack 1.0.0''' ''A pure Tcl implementation of the MessagePack object serialization library'' msgpack Package Reference **SYNOPSIS** package require '''Tcl 8.6''' package require '''msgpack ?1.0.0?''' * msgpack::packer '''new
• Messing with Colors
  21 Nov 2014 — wish # $Id: MungeColor.tcl,v 5.0 2003/06/05 14:49:36 uwe Exp uwe $ # what: color numbers for plotting package provide MungeColor 1.0 set RGB(fname) "/usr/X11R6/lib
• Meta Programming
  11 Jun 2011 — given below: ====== proc html_hbar { fdes { size -1 } { alignment "LEFT" } } { puts -nonewline $fdes "<HR " if { $size >= 0 } { puts -nonewline $fdes "width=\"$size%\" " } puts $fdes "align=\"$alignment\">" } ... proc conversion_init { } { foreach procname { hbar
• MetaKit and Tcl Web Server
  21 Nov 2017 — of the collection, open/close, then next part), and scanning (go through all data, process users 0..99, then again for 100..199, etc) IOW, 2a probably hits OS limits, 2b will
• Metakit backend for tie
  21 Nov 2017 — with the remote array backend, this might have similar functionality to [tequila] ====== package provide mktie 1.0 package require Mk4tcl package require tie package require snit snit::type mktie { option -var "" ;# variable
• Metakit Documentation
  24 Apr 2018 — cursor position name 0 +++ +++ mk::cursor position name end +++ +++ mk::cursor position name index +++ The '''mk::cursor position''' command returns the current position of a cursor, i.e. the 0-based index
• Metakit File Format
  22 Nov 2017 — significant bits first. Each octet stores 7 bits of the original integer value in its bits 0 to 6. Bit 7 is a flag and is set for the last octet in
• MetaKit Tips and Tricks
  21 Nov 2017 — layout {string} { set result "" foreach line [split $string \n] { set line [string trim [lindex [split $line \#] 0]] if {$line eq ""} continue foreach {name t} [split $line :] break if {$t eq ""} { set t
• Meter Widget
  25 Nov 2017 — puts the meter through its paces: set ::metervar -1.0 set ::metervar2 -2.0 set ::jiggleCount 0 set jiggleMax 20 set jiggleAmount 0.1 controlwidget::meter .meter -variable metervar pack .meter proc
• Method of Manufactured Solutions
  02 Jun 2012 — 0 1.0 0.01 0.1 $nC 100] puts "$nC\t$error\t[expr {$error/$nC}]" } # # Residence time: 10000.0/1.0 = 1e4 seconds - based on velocity # 10000.0**2/0
• MetPad
  01 Jul 2011 — there are a few packages for them on the wiki). * Some of the menus have ''-tearoff 0'', but a few don't seem to. * When you right-click the clock plugin, it
• Metro style buttons
  14 Nov 2016 — w.label-$i]} {incr i} {} set l $w.label-$i label $l -bd 0 -padx 0 -pady 0 -highlightthickness 0 -font $font -text $text set width [winfo reqwidth $l] set height [winfo
• MFC Control in Tk toplevel
  25 Apr 2012 — ISO space. */ p++; } if (*p == '\0') { break; } inquote = 0; slashes = 0; while (1) { copy = 1; while (*p == '\\') { slashes++; p++; } if (*p == '"') { if ((slashes & 1) == 0) { copy = 0; if ((inquote) && (p[1] == '"')) { p
• mg
  19 Feb 2018 — meep {win} { puts stderr "WINDOW $win DESTROYED:" for {set i [info frame] ; incr i -1} {$i > 0} {incr i -1} { puts stderr "[string repeat > $i] [info frame $i]" } puts stderr "\n" };# meep
• Michael Aram
  07 May 2010 — for OpenACS", which was awarded by IBM in the context of a cross-university "Web 2.0 Student Contest". After that, I worked at SAP headquarters in Germany for six months, where
• microbenchmarking extension: using hardware counters
  14 Jun 2011 — interp, "perf", NULL, NULL); // tell Tcl to grab all subcommands on import Tcl_Export(interp, ns, "*", 0); // create the subcommands // Initialises the perf tool Tcl_CreateObjCommand(interp, "perf::init", Init_Cmd, NULL
• Microsoft Access
  26 Sep 2016 — is to store the memo as a two element list (or as two separate fields), index 0 contains an integer 'size' of the memo and index 1 the memo itself. Use `[lrange
• Microsoft OLE/COM Date
  07 Sep 2011 — value, measuring days from midnight, 30 December 1899. Midnight, 31 December 1899 is represented by 1.0. The number to the left of the decimal point is the number of days since
• Microsoft Visual Studio
  20 Jan 2014 — objc); return TCL_OK; } int Foo_Init(Tcl_Interp *interp) { if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { return TCL_ERROR; } printf("creating foo command"); Tcl_CreateObjCommand(interp, "foo", fooCmd, NULL, NULL
• Microsoft Windows and Tcl
  04 May 2015 — exec net use $drive} res] { foreach line [split $res \n] { if {[set pos [string first \\ $line]]>0} { return [file norm [string range $line $pos end]] } } } } ====== ======none % net_use h: //kstbf05/SuchRich$ ====== <<categories
• MIDI
  26 Sep 2016 — manner. The standard has had excellent longevity; after 20 years, it's still in version 1.0. Computers quickly adapted to the standard, largely thanks to the addition of sound cards that
• Migration to 8.4: CONSTification
  25 Dec 2007 — 8.4.0, or better.''' If you have alpha or beta releases of Tcl/Tk 8.4, now is the time to replace them with the true 8.4.0 releases. '''Step
• Migration to 8.4: Tk Private Commands
  09 Nov 2012 — do the same for each of them. ---- '''NOTE:''' even quicker workaround! Before releasing Tk 8.4.0, the command [['''tk::unsupported::ExposePrivateCommand''']] was extended to accept glob patterns, so a tk::unsupported
• Mike Hase
  26 Jun 2015 — a while to answer. ---- [PYK] 2015-02-24: I love that you're using [RS]' `if 0...` notation to add a [Literate programming in a wiki%|%literate programming] style to new pages
• Mime File Attachment Extractor
  09 Apr 2008 — t -row 0 -column 0 -sticky news grid .x -row 1 -column 0 -sticky news grid .y -row 0 -column 1 -sticky news grid rowconfigure . 0 -weight 1 grid columnconfigure . 0 -weight
• mime type recognition in pure tcl
  01 Dec 2013 — message] if {$script == {}} { # the original script has level 0, # regardless of what the script says set level 0 } if {$level == 0} { # add a new 0-level record lappend script $record } else { # find
• MimeTexPreview
  13 May 2012 — row 0 -columnspan 2 -sticky news grid [entry .t -textvariable ee] -row 1 -column 0 -sticky we grid [button .b -command {render $ee} -text Render] -row 1 -column 1 grid columnconfigure . 0
• Mine
  30 May 2017 — 0} {$j < $rows} {incr j} { set tags col$i&&row$j&&text if {[$canvas itemcget $tags -text] ne $bombChar} then { set count 0 foreach di {-1 0 1} { foreach dj {-1 0
• mini demo webserver
  22 Jun 2011 — 1.0 200 OK" puts $chan "Content-Type: text/html" puts $chan "" puts $chan "Server reloaded" } else { #puts "Request: $path" ;## if { [catch { set fl [open $path] } err] } { puts $chan "HTTP/1.0
• mini.net misdirection
  16 Oct 2013 — almost irreplaceable research. Just as with topical geopolitical events [http://www.guardian.co.uk/Archive/Article/0,4273,4266289,00.html], mini.net's temporary loss dramatically reminded many how dependent they
• minibot
  08 Jul 2012 — exact $list $element]>=0}} proc send str {puts $::fd $str;flush $::fd} set ::fd [socket $::server 6667] fconfigure $fd -encoding utf-8 send "NICK minibot" send "USER $::me 0 * :PicoIRC user" send
• minimal coroutine iterator
  11 Feb 2013 — return coco[incr ::iternext] } proc iterate { args } { set body [lindex $args end] set args [lrange $args 0 end-1] foreach { var iterator } $args { set cmd [iternext] uplevel "coroutine $cmd $iterator" if { [llength
• Minimal OO requirements for Tcl
  28 Sep 2018 — easy to model the language to one's needs: proc safe-lindex {list index} { if {$i<0 || $i>=[llength $list]} {error "list overrun with index $index"} lindex $list $index } [SYStems]: I don
• Minimal RPN
  15 May 2012 — lappend proc pop stackName { upvar 1 $stackName stack K [lindex $stack end] [set stack [lrange $stack 0 end-1]] } # ..and the indispensable [K] combinator: proc K {a b} {set a} ====== This test
• Minimal scrolling canvas
  29 Oct 2012 — canvas -row 0 -column 0 -sticky nswe grid $vscroll -row 0 -column 1 -sticky ns grid $hscroll -row 1 -column 0 -sticky ew grid rowconfig . 0 -weight 1 grid columnconfig . 0 -weight
• minimal tclhttpd
  08 Jun 2012 — script in the middle of the path ! if {[string compare [info command Cgi_Domain] "Cgi_Domain"] == 0} { ! Cgi_Domain $prefix $directory $sock $suffix ! } else { ! Doc_NotFound $sock ! } } } This could as easily be
• Minimalist Curses
  20 Nov 2013 — InitStubs(interp, "8.4", 0) == NULL) { return TCL_ERROR; } if (Tcl_PkgRequire(interp, "Tcl", "8.4", 0) == NULL) { return TCL_ERROR; } if (Tcl_PkgProvide(interp, "curses", "0.8.0") == TCL_ERROR) { return
• Minimalist Websocket Example
  17 Dec 2017 — 0; padding: 0.5em 0.5em 0.5em 0.5em; position: absolute; top: 0.5em; left: 0.5em; right: 0.5em; bottom: 3em; overflow: auto; } #form { padding: 0 0.5em 0 0
• minimalist wget
  30 Jul 2014 — Code for wget.tcl - only requires the tcl core: ====== package require http set url [lindex $argv 0] set filename [file tail $url] set r [http::geturl $url -binary 1] set fo [open
• Minimalist XML Generation
  17 Feb 2005 — use in element attributes, which isn't necessary # for element body text. proc XMLEntities { text {attribute 0} } { if {$attribute} { return [string map {& &amp; < &lt; > &gt; \' &apos; \" &quot;} $text] } else { return [string map
• miniMu
  15 Dec 2016 — page saveImage imagePage -zoom 0.5 } proc nextPage {} { global gApp if { $gApp(currpage) < $gApp(lastpage) } { incr gApp(currpage) } return $gApp(currpage) } proc prevPage {} { global gApp if { $gApp(currpage) > 0 } { incr gApp(currpage
• miniSQL database interface (Blackbourn)
  18 Jan 2006 — Where: ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/databases/libmsqltcl-1.0/libmsqltcl-1.0.tar.gz Description: A Tcl interface to the Minerva Mini SQL Lightweight Database Engine
• Minkowsky
  26 Aug 2012 — X). Written in Tcl/Tk/Tix. Available in German, as well as English translation.| ||Currently version 0.5.1.| |Updated:|06/2002| |Contact:|See web site| [http://www.r-goetz.de/minkowsky
• minor tclhttpd glitch
  10 Jan 2012 — httpdthread.tcl, change if {[string compare $f "pkgIndex.tcl"]} to if {[string compare $f "pkgIndex.tcl"] == 0} { This page should be deleted when V 3.4.3 is released. ---- While this works
• Minotaur
  20 Dec 2014 — 1999-07-04 ** Reference ** [https://mail.python.org/pipermail/python-announce-list/1999-July/000098.html%|%Minotaur 0.1 - bridging Tcl, Python, and Perl]: the initial release announcement by [jcw] <<categories>> Porting
• Mismatch between regexp -indices and switch -regexp -indexvar
  15 Aug 2016 — regexp -inline -indices {foo} $line {0 2} % switch -regexp -indexvar index -- $line {foo} {set index} {0 3} As you can see, regexp reports the actual match (character '0' through '2' matches "foo
• MIT otcl
  01 Jun 2014 — to Tcl 8.0. See TclCL at the mash web site. TclOC is designed to interface OTcl to C++ objects. Latest development tooks place at the sourceforge site 0.96-1.14
• Mixing Tcl/Tk and Xt Event Loops
  16 Feb 2014 — exit (0); } int main (int argc, char *argv[]) { XtAppContext appContext; Widget win, button; XEvent event; int i = 1; char sAppInit[] = "pack [button .b -text \"Hello\"]"; win = XtVaAppInitialize( &appContext, "TclTkXt", NULL, 0, &argc
• mk4vfs encryption
  21 Nov 2017 — script] set db [vfs::mk4::Mount "" $local] switch -- [lindex $argv 0] { read { set t [time { readEncryptedFS $db mk.raw for {set i 0} {$i < 1000} {incr i} { set fh [open $local/file
• ml
  27 Apr 2014 — type) is: structure Complex = struct type t = real * real; val zero = (0.0, 0.0); val i = (0.0, 1.0); fun sum ((x, y), (x', y')) = (x+x', y+y') : t
• Mo Dejong
  27 Aug 2012 — DeJong Consulting" [http://www.modejong.com/] "DeJong Juggles Java Projects" [http://softwaredev.earthweb.com/sdopen/article/0,,12421_630531,00.html] profiles Mo's involvement with [Jacl], [TclBlend], [Jikes], [Jacks], and more
• mod_tcl: Tcl inside Apache
  05 Feb 2012 — is dangerously close to the deadpool. No major releases or code changes since 2002 (version 1.0). However, [COMPANY: ARM] use mod_tcl in one of our core customer facing websites. Used
• Modal dialogs
  10 Oct 2014 — no -text Whatever. -command $foo grid .hello.message -row 0 -column 0 -columnspan 2 -sticky we grid .hello.hi -row 1 -column 0 -sticky we grid .hello.no -row 1 -column 1
• Modbus
  13 Feb 2018 — Modbus RTU/TCP implementation: [https://code.google.com/p/ezdit/downloads/detail?name=modbus-tcl-1.0.zip] (RTU, TCP, master) * [Modbus master example1] by Alexey Rakov [http://iprog.pp.ru/forum
• Modbus master example1
  21 Nov 2014 — 192.168.3.241 502] fconfigure $connection -blocking 0 -buffering none -translation binary set perftime [clock milliseconds] set perfcnt 0 set transact_id 0 # цикл опроса while {on} { # формируем первые два байта
• Modbus PLC Communications Driver
  27 Nov 2013 — 9600,e,8,1 -buffering none -blocking 0 flush $fh; set junk [read $fh]; # clear buffer puts -nonewline $fh $message flush $fh set timeoutctr 0 set reply "" while {[string bytelength $reply] < $responsesize
• Model / View / Controller
  07 Apr 2017 — made yet, though. There will usually be an element called FINIS (e.g. set MODEL(FINIS) 0); I will vwait on this being changed to end the script event handling. I use
• Model railroading with Tcl
  02 Nov 2015 — braking) 0 after 10 speed $c } proc speed {c} { turn $c $::g(speed) if { $::g(braking) > 0 } then { incr ::g(speed) -1 } if { $::g(speed) <= 0 } then { set ::g(braking) 0; set
• Modeling COND with expr
  15 Oct 2012 — 0? 1 : $x<0? -1 : 0}] ====== This is quite powerful, as you can spread the braced argument to [expr] over several lines: ====== set sgn [expr { $x>0? 1 : $x<0? -1 : 0
• Modern Bindings for the Text Widget
  30 Apr 2007 — set dlsList [split $dls .] set dlsLine [lindex $dlsList 0] set lls $dlsLine.0 set firstNonSpace [$w search -regexp -- {[^[:space:]]} $dlsLine.0 [expr {$dlsLine + 1}].0] # Now massage $firstNonSpace so it contains the
• Modest tool for simulating threads
  26 Aug 2008 — to restart a particular run set verbose 0 ;# If true, print the sequence of commands set _number_threads_ 0 set _error_ 0 set _error_count_ 0 # initial -- # Define the initial condition - fragment
• modify a proc's behavior with a shim
  31 Jul 2011 — while { ![regexp "^${name}(_shimmed)*" [lindex [info level $level] 0]] } { incr level -1 } } on error message { error "cannot locate shim: $name" } [lindex [info level $level] 0]_shimmed {*}$args } ====== Using this kind of thing
• Modules
  30 Apr 2015 — patches to v3.0Beta1 at the wustl site. Currently v3.0 is available. At the metalab site, a version of 3.0.2, ported to Linux can be found. It is actively
• Monadic TOOT
  01 Dec 2013 — llength [info commands ::__toot_unknown]] == 0} { rename ::unknown ::__toot_unknown proc ::unknown {cmd args} { if {[llength $cmd] > 1} { uplevel 1 $cmd $args } else { uplevel 1 [linsert $args 0 ::__toot_unknown $cmd] } } } namespace
• Mongolian in Tcl strimjes
  25 May 2007 — text] 2]] .t image create end -image $im .t insert end " " } pack .e .t -expand 1 -fill both display $text } if 0 {[Arts and crafts of Tcl-Tk programming] [Category Human Language]}
• Monitor the results of a long-running calculation
  07 Feb 2016 — set record [lindex $line 1] if { $record >= 0 && $record <= 50 } { set t [expr {20.0 * $record}] puts $channel "VALUE $t [expr {sin($t/100.0)}]" } else { puts $channel "NOVALUE" } flush $channel } "DONEINITIAL
• Monitor your JTcl application
  06 Jun 2012 — authenticate=false -Dcom.sun.management.jmxremote=true \ -Dcomagement.jmxremote.ssl=false -Dcom.sun.management.jmxremote.port=0 -Dcom.sun.management.jmxremote.local.only=false \ -Djava.net.preferIPv4Stack=true" export JAVA_OPTS jtcl
• Monster Prime Predicting Formula
  08 Mar 2018 — 0.104 |& &| | |& %|Higher Potency |% &|`2M² + 29` | 494 | 269 | 0.545 |& &|`2M(M+7) - 59` | 490 | 240 | 0.490 |& &| | |& %|Low Potency |% &|`M(M+1)/2` | 988 | 1 | 0.001 |& &|`2M² + 2` | 494 | 0
• Moon Lander
  02 May 2016 — velX velY mlID if { $velX == 0 } { set velX 1 } if { $velY == 0 } { set velY 1 } # No speed = 0! Would be to easy (there's no speed=0 while flying; you're # always
• more as eTcl plugin
  23 Jan 2006 — t f} { if [eof $f] return set nmax 20 set n 0 $t config -state normal while {[gets $f line]>=0} { $t insert end $line\n set ln [expr {[string length $line
• More graph theory
  04 Jun 2012 — complete graph on the same node set are present: 0.0 for edgeless graphs, 1.0 for complete graphs; values above 1.0 indicate multigraphs with loops or parallel edges: ====== proc density
• More Serial Port Samples
  11 Dec 2007 — 1" fconfigure $serial -blocking 0 -buffering none while {1} { set data [read $serial] ;# read ALL incoming bytes set size [string length $data] ;# number of received byte, may be 0 if { $size } { puts
• More Tcl socket performance
  29 Jul 2011 — unsigned char buf[512]; struct timeval before, after; sum = 0; count = 0; portno = 5837; sockfd = socket(AF_INET, SOCK_STREAM, 0); if (sockfd < 0) error("ERROR opening socket"); server = gethostbyname("localhost"); if
• Morley's Miracle
  30 Jul 2013 — p2 $p3]] if {$cross < 0} {foreach {p1 p3} [list $p3 $p1] break} set theta [FindAngle3 $p1 $p2 $p3] ;# What the angle is set theta1 [expr {$theta / 3.0}] ;# 1/3 of that
• Most Recently Used (MRU) Menus
  19 Sep 2011 — recently used file names. #---------------------------------------------------------- package require Tk menu .menu . configure -menu .menu menu .menu.file -tearoff 0 .menu add cascade -menu .menu.file -label File .menu.file add command -label New -command
• most-recently-used
  22 Sep 2018 — from 0 set list [lrange [linsert $list 0 {*}$args] 0 $limit] } # most-recent-last proc mrulist {listName limit args} { upvar 1 $listName list incr limit -1 ;# because list indexing counts from 0
• Motorola S-Record
  09 May 2017 — 0 while {[gets $f line] > 0} { foreach {type addr data} [decode_line $line] break switch -exact -- $type { S0 { # module information set mname [string range $data 0 19] foreach {mver mrev} {0 0
• mouse gesture
  02 Nov 2010 — coords [list] set last_x 0 set last_y 0 set last_dir_x 0 set last_dir_y 0 foreach coord $coords { set x [lindex $coord 0] set y [lindex $coord
• mousewheel
  01 Oct 2013 — ms before cubing. E.g., bind .t.c <MouseWheel> { collect %W %D } set ::afterid {} set ::delta 0 proc collect {W D} { global delta global afterid if {$afterid eq {}} { set delta $D set
• Move an item on a Canvas Widget in a Straight Line (animated)
  30 Apr 2016 — 0 && $stepy == 0} {return;} if { [expr {round(ceil($nowx-$tox))}] == 0 } { set stepx 0 } elseif " [expr {$nowx+$stepx}] $dirx $tox " { set stepx [expr {$tox-$nowx}] } if { [expr {round(ceil($nowy-$toy))}] == 0
• Move cursor by display line in a text widget
  16 Mar 2015 — if {(($n < 0) && ($ypos <= ($n * -1 * $height))) \ || (($n > 0) && (($ypos + $n * $height) >= $winHeight))} { $w yview scroll $n units scan [$w bbox insert] {%*d %d %*d %d} ypos height } if {(($n < 0) && ($ypos
• Moving a ghost window
  02 Sep 2013 — l $(thickness) $(height) \ r $(thickness) $(height) ] \ { canvas $(iprefix)$side -bg $(color) -bd 0 \ -width $ww -height $hh \ -highlightthickness 0 -selectborder 0 } } proc xcreate {} \ { variable {} foreach {side ww hh} \ [list \ t $(width) $(thickness
• Moving dots
  24 Dec 2011 — 470.0 250.0 green #A moves {250.0+200.0*cos($t)} {250.0+200.0*sin($t)} dot A 0.0 200.0 blue dot B 0.0 230.0
• Moving objects - first steps with TclOO
  19 Jan 2011 — dir time cnvobj leader lead constructor {leading} { set time 0.0 set xpos 0.0 set ypos 0.0 set dir 0.0 set leader {} if { $leading } { set cnvobj [.c create oval
• Moving the mouse
  03 Apr 2012 — i $::MOUSEEVENTF_LEFTDOWN" {i 0} {i 0} {i 0} {i 0} ::dll::call user32 mouse_event i "i $::MOUSEEVENTF_LEFTUP" {i 0} {i 0} {i 0} {i 0} } ====== ---- '''[SeS] - 2012-04-03
• Mozart
  27 Apr 2014 — of the Mozart/Oz [http://mozart.github.io/] [binding] to [Tcl/Tk] [http://mozart.github.io/mozart-v1/doc-1.4.0/mozart-stdlib/wp/qtk/html/index.html]. <<categories>> Language | Concurrency
• Mozilla
  12 Nov 2006 — An open-source version of the 4.0 Netscape browser, developed for a long time by a large team of developers and subsequently re-utilized as Netscape 6 and 7 (version 5
• mp3info
  20 Jan 2016 — Lemburg] in [Reading MP3 file info] and created a package for it: === Identifier: mp3info Version: 0.0.1 Title: A library to read mp3 file information. Creator: Martin Lemburg <martin.lemburg@epost
• MPA
  10 Sep 2012 — v0.11) 59 % mpa::float::add 1.0 2.0 3.0~2 # the precision with 1.0 ans 2.0 is assumed to be 0.1 # and the precision of the
• Mpexpr
  13 Jul 2012 — procplace.com/pub/tcl/sorted/math/Mpexpr-1.0/1.0/ http://www.nyx.net/%7Etpoindex/tcl.html Description: Tcl 7.6/8.0 extension (adding mpexpr and mpformat) that supports multiple
• MPI
  16 Aug 2017 — in parallel via mpirun or mpiexec similar to C, C++ or Fortran programs. Latest release (1.0) : April 12, 2017 ([AM]: Axel informed me that he is close to releasing a first
• MPV Tcl Extension
  17 Apr 2018 — 0; mpvData->duration = 0.0; mpvData->tm = 0.0; mpvData->hasEvent = 0; mpvData->timerToken = Tcl_CreateTimerHandler (CHKTIMER, &mpvEventHandler, mpvData); mpvData->debugfh = NULL; for (i = 0; i < stateMapIdxMax; ++i) { mpvData->stateMapIdx[i] = 0
• MQL
  01 Mar 2005 — text. MQL is a query language for the database, and uses Tcl. Currently at version 0.0 . Updated: 02/2005 Contact: See web site ---- Can someone fill in details here ? Hi, I
• MrPersister
  21 Nov 2017 — daos getGenericDao gendao set emp1 [gendao readByPrimaryKey_Long hyde.Employee $primaryKey] $emp1 setSalary [expr [$emp1 getSalary] * 0.10] gendao update $emp1 ====== In this example, the ''update'' method knows the table based on
• MS Excel XML to tablelist
  28 Nov 2013 — lf1.tlSheet -column 0 -row 0 -sticky nesw -padx {3 0} -pady {3 0}; grid $w.lf1.sby -column 1 -row 0 -sticky nes -padx {0 3} -pady {3 0}; grid $w
• MS Excel XML to tablelist XML file
  08 Dec 2013 — browse_frm/thread/8a9fb2d7d6510709/f3276a967d9dcca6?hl=en#f3276a967d9dcca6] posted MS Excel XML file: ---- <?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o
• MS SQL Server
  02 Jan 2014 — tclsh8.6 "$0" ${1+"$@"} if { [ catch {package require tdbc } err ] != 0 } { puts stderr "Unable to find package tdbc ... adjust your auto_path!"; } if { [ catch {package require tdbc::odbc } err ] != 0 } { puts stderr
• MS's bytecode engine ideas
  25 Jun 2012 — even without (gcc) * BC are run-time expensive: there is a lot of byte-to-word 0-padding going on at runtime * Speed tradeoff? More memory traffic, alignment effects (?) ''How'' * First the
• msgcat
  24 Jul 2018 — split [split $new_locale "_"] set preflist [list] for {set i 0} {$i < [llength $split]} {incr i} { lappend preflist [join [lrange $split 0 end-$i] "_"] } set current_locale "" foreach x $preflist { if { [info
• msgcat and shortcut keys
  24 Jun 2012 — set char [string toupper $char] variable accel_sets if {[info exists accel_sets($setname,$char)]} { uplevel \#0 $accel_sets($setname,$char) } } # Convenient procedure for adding shortcut key to widgets. # Automatically selects underline
• msgcat and TclOO
  11 Dec 2017 — pairs] if {$length % 2} { return -code error "bad translation list:\ should be \"[lindex [info level 0] 0] folder locale {src dest ...}\"" } set locale [string tolower $locale] foreach {src dest} $pairs { dict set
• msgcat magic
  24 Jun 2012 — add translation to [file join lang $locale].msg:\t$src translated-text" if {[lsearch $translations $src] < 0} {lappend translations $src} return $src } ## Procedure: save_missing_translations # save to msgcat language file all
• msql
  08 Sep 2013 — mSQL since the early days). I'm pretty sure that it'll work against release 1.0 and am even more sure that Brad will fix it if it doesn't (that
• MSW
  28 Aug 2012 — version #1 was doing that kind of ... suchenwi Initializi to 0, set to 1 in the first bexec call, reset to 0 after the vwait. msw if {$bexec_runs} then {vwait bexec
• Msys
  04 Dec 2016 — under cygwin with Mingw] * [Building Tcl and Tk for Windows with MSYS2] * [cygwin] * [MinGW] * [mingw32] * [mingwin] * [MinGW versus VC++ 6.0] * [How to create mingw32 libraries from DLLs] ---- !!!!!! %|[Category Porting] | [Category Windows]|% !!!!!!
• Mtiwidgets
  20 Apr 2010 — 3.4, Itcl/Itk 3.2, and Iwidgets 3.0.1, but has been tested with Iwidgets 4.0.2. Currently at version 0.1 . Updated: 01/2003 Contact: I've updated
• Muddy Scheme
  06 Feb 2012 — exit. > #t #t > -123 123 > #\c #\c > "asdf" "asdf" > (quote ()) () > (quote (0 . 1)) (0 . 1) > (quote (0 1 2 3)) (0 1 2 3) > (quote asdf) asdf > (define a 1) ok > a
• multi-arg coroutines
  11 May 2014 — C$name delete "rename ${ns}::name {}" proc ${ns}::$name {args} { set name [lindex [info level 0] 0] set ns [namespace qualifiers $name] if {$ns eq {}} { set ns [uplevel 1 {namespace current}] } set
• multi-argument set
  20 Aug 2010 — set {_var args} { upvar 1 $_var $_var _set ll [llength [info level 0]] if {$ll==3} { _set $_var [lindex $args 0] } elseif {$ll>3} {_set $_var $args} _set $_var } ''[Lars H]: Ehh
• Multi-column display in text widget
  17 Jan 2013 — r 0 ;# row counter # initialise array to hold output strings for {set i 0 } {$i < $rows(max) } {incr i} { set rows($i) {} } # build up the output strings for {set i 0} {$i
• Multi-Line Entry Widget in Snit
  09 Apr 2015 — grid $win.hsb -row 1 -column 0 -sticky we } grid rowconfigure $win 0 -weight 1 grid columnconfigure $win 0 -weight 1 if {[$win cget -textvariable] != 0} { set varName [$win cget -textvariable] upvar
• Multi-line TclOO Text Entry Widget
  17 Jan 2013 — xscroll 0 -allowtab 0 -readonly 0 -textvariable "" } array set opts [array get options] set win $w text $win.txt grid $win.txt -row 0 -column 0 -sticky nswe grid rowconfigure $win 0
• Multi-Line Text Entry Widget - With Entry Widget Like Field To Field Tabbing
  02 Apr 2009 — 0 \ ; # ------------------------------------------------------ $scrodgetPathname southScroll configure \ -borderwidth 0 \ -elementborderwidth 2 \ -background $bodyBackgroundColour \ -troughcolor $bodyBackgroundColour \ -highlightthickness 0 \ ; # ------------------------------------------------------ $scrodgetPathname westScroll configure \ -borderwidth 0 \ -elementborderwidth 2 \ -background $bodyBackgroundColour \ -troughcolor $bodyBackgroundColour \ -highlightthickness 0 \ ; # ------------------------------------------------------ $scrodgetPathname eastScroll configure \ -borderwidth 0
• Multiline expanding entry widget
  04 Aug 2011 — snit is 0.82. Doesn't work. [NEM] 0.91 should do. Simple typo. I guess [snit] changed between 0.82 and 0.91 (as it's pre-1.0 release stuff
• Multilingual menu
  28 Sep 2018 — Test Essai set choice [lindex $argv 0] if {[lsearch "en de fr" $choice]>=0} {mclocale $choice} proc makeMenu {} { . config -menu [menu .m] menu .m.m2 -tearoff 0 .m add cascade -label [mc
• Multiple comparisons
  20 Mar 2003 — i]} {return 0} set first $i } return 1 } if 0 {#--------------------------- Testing: % multicompare == 1 1 1 1 1 % multicompare == 1 1 1 1 0 0 % multicompare == 1 1 1 1 1.0 1
• Multiple Errors
  19 May 2016 — through here. ---- A sort of quick-and-dirty variant on this: ====== proc logErrors {varName args} { upvar 0 $varName var if {![info exists var] || [string length $::errorInfo] < [string length [lindex $var end]]} { lappend
• multiplexer
  01 Dec 2013 — set dead 0 set chan [chan create $mode $self] } destructor { # ... delete internal state ... if {$dead} return set dead 1 catch {close $chan} } method handle {} {return $chan} variable chan variable dead 0 variable
• multissh
  23 Mar 2018 — 52, 2 users, load average: 0.00, 0.00, 0.00 bravo: 17:50:52 up 2:29, 1 user, load average: 0.00, 0.00, 0.00 charlie: 17:51:05
• Multitasking and the event loop
  25 Sep 2011 — TCL script: ====== # sleeper.tcl -- puts HELLO after 1000 { set ::forever 1 } vwait forever puts QUIT exit 0 # end of file ====== the operations are: write "HELLO" to the standard output channel; wait for
• Multitasking and the event loop: the script
  15 Jul 2005 — message $f.message grid $f.message -row 0 -column 0 # Button bar. frame [set f [unique $window]] -class Bbar grid $f -row 1 -column 0 -sticky news -padx 2m -pady 2m set
• MuPdfWidget
  06 Mar 2017 — Reference manual ---- '''mupdf::widget 1.0''' ''A basic PDF-viewer widget'' a basic PDF-viewer widget **SYNOPSIS** package require '''Tk 8.5''' package require '''mupdf::widget ?1.0?''' * '''mupdf::widget''' ''pathName'' ''pdfHandle
• MusicBrainz
  29 Aug 2013 — ns {xmlns http://musicbrainz.org/ns/mmd-2.0#} set nodesList [$root selectNodes -namespaces $ns //xmlns:artist-list//xmlns:artist] return [[lindex $nodesList 0] getAttribute id] } proc ___coverURL {type id} { return "http
• Muzic
  18 Sep 2011 — idx 0} foreach c $chan { muzic::playnote $c [expr {$offset+[lindex $notes $idx]}] 70 250 } after 150 playnotes [incr idx] } set chan {0 2 3 4} set offset -5 set stop 0
• My first wapp-lication
  17 Feb 2018 — dx [expr {($maximum - $minimum) / 10.0}] set expression [string map {x $x} $expression] set table "<table border=\"1\"> <tr><th>x<th>f(x)" for {set i 0} {$i < 11} {incr i
• My House
  20 Aug 2013 — 0 128 256 256 -to 0 0 ::img::map copy ::img::tmp image delete ::img::tmp } proc Undo {} { array set Q {q {0 0} r {200 0} s {200 200} t {0
• my oh my
  19 Jun 2014 — info object call {{self}} $methodname] 0] lassign $callinfo mmeth mname mclass mtype set clsns [info object namespace $mclass] if {[info exists {{my}}::${clsns}::my] && [lindex $args 0] in [set {{my}}::${clsns}::my
• myPIE
  25 Jun 2007 — com/ } set w .myPIE if ![winfo exists $w] { toplevel $w grid [label $w.0 -text myPIE] set n 0 set maxcol 5 set row {} foreach {name url} $links { if {$url eq "."} { if
• Myrmeco
  02 Jul 2012 — support. The latest MyrmecoX Studio 4.0 includes an IDE (editor, checker, debugger, keyword editor, and bytecode compiler) that supports Apache server, Snaml2.0/PHP5.0/Tcl8.4 scripting languages, and MySQL
• MyrmecoX
  25 Aug 2011 — of the integration between Tcl and C. Requires TkTable and TkWizard extensions. Currently at version 2.0 . Updated: 10/31/2003 Contact: mailto:changl@neatware.com (Chang LI) ---- See also [GUI Building
• MySQL login form for all your tcl scripts
  19 Dec 2011 — server" -user "$username" -password "$password" ] } mysql_handler ] } { tk_messageBox -message "Wrong Username,Password, or Server" return 0 } # mysqluse $mysql_handler {school} tk_messageBox -message "connected!" grid forget .f ###MODIFY HERE### # this the
• mysqltcl
  05 Jun 2018 — user} while {[llength [set row [mysql::fetch $m]]]>0} { # row is always a list. using lindex avoids conversion list to string puts [lindex $row 0] } # the fastest way to operate data without
• MySQLUsers
  25 Mar 2008 — AOLserver MySQL driver] What: AOLserver MySQL driver Where: http://www.perfectionlearning.com/mysql/mysql-1.0.0.tar.gz http://web.mysql.com/ Description: MySQL/mSQL driver for the AOLserver HTTP server
• Mysterium Calendar and Journal
  25 Dec 2013 — free to email me [mailto:mega.watt2@gmail.com]. 01/25/2009 In ''Mysterium'' version 1.0, a bug will prevent image recycling. The next version will have this fixed already, but
• NaCl - Networking and Cryptography library (pronounced "salt")
  09 Aug 2018 — key] == 0} { if {[nacl::onetimeauth verify $auth $message $key] == 0} { puts {one-time authentication OK} } } ====== Hashing using '''nacl::hash''' ======tcl package require nacl if {[nacl::hash -sha256 hash {NaCl does SHA256}] == 0
• Nagelfar
  02 Oct 2018 — square {x} { return [expr {$x*$x}] } package provide file1 0.1 ====== file2.tcl ====== package require file1 proc main {argv} { puts [square [lindex $argv 0]] } main $argv ====== I've read, that Nagelfar is
• Naive Tcl parser
  01 Aug 2013 — range $rest 0 $end] if {[info exists fail]} { set result [string range $rest 0 $fail-1] my skip $fail } else { # the entire $rest matches class set result [string range $rest 0 end
• Name generator toy
  22 Apr 2016 — 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
• Named arguments
  17 Mar 2016 — proc ::naproc::handleargs {procname procargs calledargs} { if {[string index [lindex $calledargs 0] 0] != "-"} { # Emulate unnamed calling convention for {set i 0} {$i < [llength $procargs]} {incr i} { unset -nocomplain val set arg [lindex
• Named Arguments (MG)
  22 Nov 2012 — opt,$x) $class } if { $hasarg != "0" && $hasarg != "1" } { return -code error "invalid 'hasarg' \"$hasarg\""; } set group(hasarg,$class) $hasarg if { $hasarg == "0" } { set default [expr {$default ? "1" : "0"}] } set group(val,$class
• Named Arguments - By Specialisation
  08 Feb 2012 — Colour b 1 a 0.5 glutSolidCube 1 } This gets translated as: glColor3f 1 0 0.5 glutSolidCube 1 glTranslatef 0 10 0 glColor4f 0 0 1 0.5 glutSolidCube 1 We
• Named Arguments Using Dicts
  25 Oct 2017 — lindex $arglist end] 0] eq "args"} { if {[llength [lindex $arglist end]]==2} { set argspec [lindex [lindex $arglist end] 1] append result "::@args \{$argspec\} \$args" \; set arglist [lrange $arglist 0 end-1] lappend
• named let
  26 Oct 2014 — args] > 0} { set triggered [lindex $args 0] } return $triggered } proc "${ns}::${name}" {args} { variable triggered 1 uplevel 2 [list set varValues $args] } while {[namespace eval $ns triggered]} { namespace eval $ns {triggered 0
• named parameters
  11 Nov 2015 — Tk]: ====== proc foo args { # first assign default values... array set options {-bar 1 -grill 2 -verbose 0 ...} # ...then possibly override them with user choices array set options $args .... } ====== Sometimes it makes sense
• Named Pipes
  25 Oct 2016 — Prefix when no name specified. variable generator 0 variable cmd {}; # Command to create a pipe variable pipes {}; # Dictionary that will contained known pipes variable captured 0; # Have we captured close yet? } namespace
• nameserv::cluster
  22 Feb 2016 — new $url -port $myport -local 0 -listen 1 ::cluster::publish $url [list port $myport protocol comm class comm] cluster::search other* > other@MACID {ipaddr 127.0.0.1 macid LOCALMACID port 8000
• namespace
  06 Sep 2018 — list namespace eval $nsrc {namespace export}]] uplevel 1 [list namespace eval $nsrc {namespace export *}] set n 0 while {[namespace exists tmp-[incr n]]} {} set fqsrc [uplevel 1 [list namespace which $src]] namespace
• namespace code
  11 Oct 2016 — expr {atan2(0,-1)}] 3.142 Somehow makes more sense to me... '''dkf:''' Pop that on the wiki. It also should work with any version of Tcl from 8.0 onwards. ''(though
• namespace current
  26 Sep 2016 — like append, except inserts the concentration of arguments at start of variable): ====== if {[string range $database 0 1] ne {::}} { ::emerald::data::prepend database [uplevel 1 {namespace current}] ::} ====== This code works fine all
• namespace ensemble
  24 Jul 2018 — then { set Opt(-command) ${ns}::$Opt(-command) } interp alias {} $Opt(-command) {} ::ensemble_dispatch_0 $ns } proc ensemble_dispatch_0 {ns subcmd args} { set cmdL [list] foreach pat [namespace eval $ns {::namespace export
• namespace exists
  27 Sep 2012 — namespace exists''' ''namespace'' Returns '''1''' if ''namespace'' is a valid namespace in the current context, returns '''0''' otherwise. ---- See also: * [namespace] * [interp exists] <<categories>> Command | Tcl syntax help
• Namespace MegaWidgets
  08 Jun 2014 — minsize 0 grid rowconfig $hWnd 1 -weight 0 -minsize 0 grid columnconfig $hWnd 0 -weight 1 -minsize 0 grid columnconfig $hWnd 1 -weight 0 -minsize 0 grid $hWndTxt -row 0 -column 0
• namespace path
  03 Feb 2017 — the children. ====== proc setresolve { {depth 10} } { tailcall ::apply [list {depth} { set ns [namespace current] while { $depth > 0 } { set ns [namespace parent $ns] if { $ns eq "::" } { break } namespace path [list {*}[namespace path] $ns
• namespace qualifiers
  16 Mar 2015 — return $name } if {$prefix eq "::"} { return ::$name } return ${prefix}::$name } proc prefix {name} { string range $name 0 end-[string length [namespace tail $name]] } } ====== With these two procs, `$x` is always equal to
• Namespace resolution on unknown command
  05 Nov 2013 — nproc {args} { set name [lindex $args 0] set ns [join [lrange $name 0 end-1] ::] set name [lindex $name end] set args [lreplace $args 0 0 _proc_ $name] set code [catch {namespace
• namespace size
  25 Apr 2012 — piling up: ====== proc namespace'size ns { set sum [expr wide(0)] foreach var [info vars ${ns}::*] { if {[info exists $var]} { upvar #0 $var v if {[array exists v]} { incr sum [string bytelength
• namespace upvar
  14 May 2018 — add any functionality not previously available with `[upvar]`. The following are equivalent: ====== set ns ::foo upvar #0 ${ns}::bar boo ====== and ====== set ns ::foo namespace upvar $ns bar boo ====== However, the second
• Namespace variables
  19 Oct 2011 — reason]} { error $reason; } if {$result == ""} { return 0; } return 1; } proc nspcVar2LocalVar {args} { if {[catch {set result [uplevel getFullNspcVarName $args]} reason]} { error $reason; } if {$result == ""} { return 0; } set varname [namespace tail $result]; if
• Namespace variables 2
  25 Apr 2012 — reason]} { error $reason; } if {$result == ""} { return 0; } return 1; } proc nspcVar2LocalVar {args} { if {[catch {set result [uplevel getFullNspcVarName $args]} reason]} { error $reason; } if {$result == ""} { return 0; } set varname [namespace tail $result]; if
• NaN
  04 May 2017 — 1)] -NaN (bin) 14 % expr {$y == $y} ;# the only value that is not equal to itself :^) 0 (bin) 15 % expr {$y eq $y} 1 ====== ---- [male] 2007-02-23: Sorry, but using tclkit
• NAND
  10 May 2014 — if 0 { % truthtable and 0 0 0 1 % truthtable nand 1 1 1 0 % truthtable or 0 1 1 1 % truthtable nor 1 0 0 0 % truthtable eq 1 0 0 1
• NAP
  02 Jun 2017 — download.osgeo.org/proj/proj-4.7.0.tar.gz gzip -d < proj-4.7.0.tar.gz | tar xvf - cd proj-4.7.0 ./configure --prefix=/home/john make make install
• narray
  20 Jan 2014 — of the array in a byte code compiled format. Version 0.81 created by Nick Maliszewsky. It supports Tcl/Tk 8.0 as well as 7.6.| | Updated:| 08/1998| | Contact:| mailto
• NaTcl
  12 Feb 2015 — whereas Tcl gives all that scripting language goodness. ** Try it out ** * Get chrome (we use 10.0.648.204) * Kill all running chrome instances. * chrome, google-chrome --no-sandbox ** on OSX use
• Natively accessing XML
  19 Oct 2011 — dom::domNode::set {node query args} { switch [llength $args] { 0 {return [xmlstruct::getvalue $node $query]} 1 {return [xmlstruct::setvalue $node $query [lindex $args 0]]} default {error "wrong # args: should be \"set xpathQuery
• Natural local drag&drop for tablelist mega widget
  21 Dec 2017 — set tbl .t set cols { 0 Name left 0 Value right } grid [tablelist::tablelist $tbl -columns $cols -height 20 \ -selectmode extended -yscrollcommand ".sby set"] -row 1 -column 0 -sticky nswe grid [ttk
• NaviServer
  11 Jul 2018 — p/compare?metric=Activity&project_0=AOLserver&project_1=NaviServer%|%commit activity %|%] (green), compared to [AOLserver] (red): [https://www.ohloh.net/p/compare_chart?metric=Activity&project_0=AOLserver&project_1=NaviServer
• NaviServer Command Mode
  11 Dec 2009 — ns:adppage 0:0 {} {} server1 HEAD / *.u_adp inherit ns:adppage 0:0 {} {} server1 POST / *.u_adp inherit ns:adppage 0:0 {} {} server1 GET / *.sjis_adp inherit ns:adppage 0:0 {} {} server1
• NaviServer Control Port
  11 Dec 2009 — and port to listen on. For security reasons listening on any port other then 127.0.0.1 is not recommended. This is no disadvantage: You still can connect to a localport
• NaviServer Log Files
  11 Dec 2009 — 0.1.111 - - [17/Jun/2005:09:00:45 +0200] "GET /intranet/mat/space.gif HTTP/1.1" 304 0 "" "Opera/8.0 (X11; Linux i686; U; en)" 0.125860 10.0
• NaviServer Running as Root
  11 Dec 2009 — result in the security info: ... [-main-] Notice: nsmain: NaviServer/4.99.0 starting [-main-] Notice: nsmain: security info: uid=0, euid=0, gid=8, egid=8 ... '''PLEASE NOTE THAT THIS IS NOT
• ne
  12 Nov 2014 — 1.0 returns false, but 1 ne 1.0 returns true. Example: ====== % expr {"a" eq "b"} 0 % expr {"a" ne "b"} 1 % % expr {"1" eq "1.0"} 0 % expr {"1" == "1.0
• nedbrek
  27 Aug 2012 — return value set v 0 # place multiplier set mul 1 # pull the first byte (lsb) binary scan [lindex $tl $i] c b # check for multi-byte while {$b < 0} { set v [expr
• neo
  29 Dec 2012 — map] dict set map $slot [linsert $args 0 $command] config $object -map $map } proc neo::method {object name params body} { set params [linsert $params 0 self] slot $object $name = ::apply [list $params
• NeoTcl
  18 Nov 2012 — 0p2, tclX v8.0.3a1, Expect 5.25, DP 4.0b2, GD 1.2, and Neo v8.0.0 (which includes the BSD db.1.85 library), blt8.0-unoff, scotty-2
• NeoWebScript
  13 Jul 2014 — 0p2, tclX v8.0.3a1, Expect 5.25, DP 4.0b2, GD 1.2, and Neo v8.0.0 (which includes the BSD db.1.85 library), blt8.0-unoff, scotty-2
• NEP
  01 Dec 2014 — distance, markers associated with the data for display. Requires Tcl/Tk 8.0 and BLT 2.4i.| ||Currently at v2.0.3.| |Updated:|11/1998| |Contact:|mailto:kir@iitb.fhg.de > (Harald
• nest
  02 Dec 2014 — param} eq {args} } { unset {llength_params} {llength_args} return [uplevel 0 ${body} [if {${params} eq {}} { # llength_params == 0 and llength_args == 0 unset {last_param} {params} {body} {args} } elseif { ${last_param} ne
• nested list
  10 Jul 2016 — if 0 { We have : } ====== spectre $Left # == {0 0 0} {0 0 1} {0 1} 1 spectre $Right # == 0 {1 0} {1 1 0} {1 1 1} spectre $Middle # == 0 {1 0} {1
• Nested-loop join
  05 Aug 2013 — loop "1<0-5>.<<1-5>>" returns: 10.1, 10.2, ..., 10.5, 11.1, 11.2, ..., 11.5, ... 15.1, 15.2, ..., 15.5 parse_nest_loop "<0-5><0-3
• netbeanstcl debugger
  22 Aug 2011 — For [netbeanstcl%|%Tcl Plugin for Netbeans] '''1.0''' - [GSoC 2011 Executed Projects]. ---- **Tcl Plugin for Netbeans - Debugger Overview** ***Debug Process*** Debugger is separated into two parts: Java (implements Netbeans Debugger Core API
• netbeanstcl tutorial
  27 Aug 2012 — of Tcl Plugin. I also recommend to manually install missing plugins. First step: Open Netbeans 7.0. Select '''Tools→Plugins''': [http://wiki.tcl.tk/_repo/images/dmp/ToolsPlugins.png] Plugins window will open
• NetBSD
  19 Sep 2012 — current [pkgsrc] thanks to the pkgsrc people. It works very well so far in the 2.0 beta. [TclKit] builds in NetBSD, but it fails with a symbol loading failure via '''package
• netcall
  24 Aug 2012 — change/override/replace this on the server: proc netcall-permit-access? { addr port } { if {"127.0.0.1" eq $addr} { return 1 } if {![catch {package present Tk}]} { set answer [tk_messageBox -icon
• netcat
  08 Jun 2017 — reaper -x 14702 1 15 > netcat-0.1.0.tcl` ====== #!/usr/bin/env tclsh # An event-based netcat clone for Tcl 8.5+, version 0.1.0 (2015-08-13). # Written by
• Netpbm
  11 Oct 2017 — w*h); for (x=0; x<w; x++) /* And initialize it with a */ for (y=0; y<h; y++) { /* double gradient pattern */ d[(y*w+x)*3+0] = y/40; d[(y
• NetPlug
  25 Oct 2013 — Win3.1,Win95, WinNT) and Macs (both PPC and 68k)) [netplug_irc.gif] ** Attributes ** current version: 0.63 release time: 2007-10-17 author: [Laurent Demailly] website: [http://www.demailly.com/~dl
• Network Activity Indicator
  15 Jun 2016 — yH5BAEKAD8ALAAAAAAQABAAAAaK wJ9wCCgCAkjBcPkbEJ5QJbPQhBoOBOnPiCgkAgJFYZEdOp8HA4HRcDy1Z8Ki oXio32YoQdEoQCKAcHoEBRITE1pCcQQUfRUWFxhLA4AREAUZDxobHB1MHh8f ICEiIyQlJidMKCkqKywtKC4FLzBLFjEyGjM0NUIFVLc2Izc4OTpMqyjLKMnO z0tBADs=}] proc blinkoff {labelname dir} { switch $dir { tx {set ::txlight 0} rx {set ::rxlight 0} } if {$::rxlight && $::txlight} { $labelname configure -image $::networkon return } if {$::rxlight && ! $::txlight} { $labelname configure
• Network server application template
  30 Oct 2012 — line_cmd open_cmd close_cmd chan add port} { # We want whole lines # fconfigure $chan -blocking 0 -buffering line # Invoke a proc to notify us that a client has registered. # eval $open
• Network Time Protocol - NTP
  21 May 2014 — gov # time-a.timefreq.bldrdoc.gov # # 50343 96-09-17 05:02:07 50 0 0 50.0 UTC(NIST) * # if {!$seconds && [regexp \ {^..... (\d\d)-(\d\d)-(\d\d) (\d\d:\d
• Networking Capabilities
  18 Dec 2005 — better templates) are unmatched by other scripting languages. ''Ah, the wonderful compression of: '' fconfigure $chan -blocking 0 -buffering line; fileevent $chan readable [list handle_input $chan] Heck, Tcl's whole I/O
• Neural Networks
  05 Feb 2018 — do list: * add momentum value * better interface for running trials '''Downloads''' Version 0.2 - http://tcl.jtang.org/ffbp/ffbp-0.2.tar.gz * ''This version breaks save file compatibility with previous
• Neuronstorm
  05 Jun 2006 — Version 0.1.5 has just been released. Greater functionality: drag nodes, drag to resize. Neuronstorm [http://neuronstorm.sourceforge.net] is a free, open source program for creating mind-maps - pictorial representations
• Neverwinter Nights
  31 Mar 2012 — www.cs.nott.ac.uk/~nem/tcl/ '''Usage''' package require Tcl 8.5 package require nwn 0.3 nwn module unpack $module ?directory? ?-progress $cmd? This command unpacks an ERF format file
• New Control Structures
  30 Nov 2015 — result $i incr i } while {$i < 6} return $result } bad 0 ;# want "xxx", get "0 1" bad 1 ;# want "xxx", get "0 1" bad 2 ;# want "xxx", get "can't read result
• New expand
  19 Jan 2011 — argument_index) != "0"} then { set do_expand [expr {$expand ? "1" : "0"}] } else { set do_expand [expr {$expand ? "0" : "1"}] } } else { set do_expand [expr {$expand ? "0" : "1"}] } if {$do_expand != "0"} then
• new pdf4tcl
  11 Dec 2013 — ifneeded pdf4tcl 0.6.1 [list source [file join $dir pdf4tcl.tcl]] package ifneeded pdf4tcl::stdmetrics 0.1 [list source [file join $dir stdmetrics.tcl]] package ifneeded pdf4tcl::glyph2unicode 0.1 [list
• New Test Package
  06 Jan 2018 — return with a code of 0/2, and their actual result doesn't matter. The success/failure of such a test case (if it returns with code 0 or 2) depends on
• newexec
  22 Sep 2006 — rfoxmich Where argv is a list of words that includes the command name as [lindex $argv 0]? [00:55] dkf_ sergiol: That's good/excellent practice, not breaking existing code. [00:55
• NewProgram
  01 Mar 2016 — if 0 { <<TOC>> ---- **Summary** [Author] 2016-02-23: This is a template for a wiki-page with a new tcl/tk-program <<br>>...bla..blah... <<br>> ... With ideas and code from the
• Newton-Raphson Equation Solver
  29 Jul 2013 — time to end } return $guess } # Problem Examples puts [secant "x * (x-1.0)" 0.5] puts [secant "x * x" 0.0] ====== ---- [AM] (10 july 2007) I can not resist a challenge like
• NExS
  13 Feb 2011 — Contact: mailto:info-nexs@xess.com What: tclNExS Where: http://www.xess.com/NExS/tclNExS-1.0.1-user_guide.html Description: Application which maps the NExS Network Extensible Spreadsheet Connections API
• NexTk
  17 Feb 2017 — com/~georgeps/implementation/software/megapkg/NexTk_0.5_source.tar.bz2 The sources in .zip format: http://www.xmission.com/~georgeps/implementation/software/megapkg/NexTk_0.5_source.zip This has a
• Nice Numbers
  05 Jun 2012 — 1.0 } elseif {$frac < 3.0} { set nice 2.0 } elseif {$frac < 7.0} { set nice 5.0 } else { set nice 10.0 } } else { if {$frac <= 1.0} { set nice 1.0
• Nim Programming Language
  08 Sep 2017 — dynlib: libName.} proc Ext_Init(interp: pointer): cint {.exportc,dynlib,cdecl.} = return Tcl_PkgProvide(interp, "ext", "0.1") ====== ***Create a stubs enabled extension*** [MJ] - To create a stubs enabled extension one can
• Nineteenth Annual Tcl/Tk Conference (2012)
  21 Nov 2012 — br>>https://maps.google.com/maps/ms?msid=204739899073144451536.0004c144222a9036c99f6&msa=0&ll=41.885266,-87.633734&spn=0.008443,0.018818|& &|Transportation| [http://wiki.tcl.tk/28843#pagetoca7e55932%|%Section Below] |& &|Email
• NLP for a Knowledge Database
  10 Jun 2011 — are easily added by modifying the source code. Be aware that because English is a Type 0 grammar [http://cs.wwc.edu/~aabyan/Theory/lang_def.html] you have no chance of
• nntp
  30 Mar 2015 — newsflash| | Where:| ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/net/newsflash-0.2/newsflash-0.2.tar.gz | | Description:| A NNTP newsreader written using Tcl/Tk. It has article
• Noaaport Broadcast System Processor
  14 May 2015 — 100 Mb of throughput per minute [http://nbsp.opennoaaport.net:8015/nbsp/status/statplot.tml?type=0]. Nbsp takes its orders from a main configuration file and from various run control scripts
• node
  06 Mar 2018 — 5.0 $node_(0) set Y_ 5.0 $node_(0) set Z_ 0.0 $node_(1) set X_ 490.0 $node_(1) set Y_ 285.0 $node_(1) set Z_ 0.0
• node.js
  23 Oct 2016 — log input puts $sock "Hello world $::count" close $sock } set port 3000 socket -server accept $port puts "Server running at http://127.0.0.1:$port/" vwait forever ====== <<categories>>Enter Category Here
• Nokia 770
  10 Dec 2009 — n770 and seem to have found a serious bug in tclkit on it: expr 661.0/100.0 -6.6099980926513675 Some division calculations, but not all, give the negative of the expected
• Nominatim Demo
  29 May 2018 — Go } proc Go {} { .t insert 0.0 "querying nominatim..."; update requestor search $::S(location) } proc MyCallBack {args} { set ::S(result) $args ShowData } proc ShowData {} { .t delete 0.0 end .t config -fg
• Non-deterministic search
  06 Jul 2011 — distinct {args} { foreach item $args { if {[count $item $args] > 1} { return 0 } } return 1 } proc count {item list} { set ret 0; foreach el $list { if {$el eq $item} { incr ret } } return $ret
• Not A Commander (nac)
  26 Sep 2012 — the Norton Commander. Tcl implementation of the geometry manager with menus based on it.| || Currently at version 1.0-SNAP-030223 .| | Updated:| 09/2001| | Contact:| See the web site| <<categories>> Application | Desktop
• Not Functional Imaging - Scripting Imaging
  11 Apr 2014 — o {gPaint yellow} gChecker {rippleRad 6 0.2} {swirl 26} toPolars ====== This creates a proc of the form: ====== proc uniquename x { gPaint yellow [gChecker [rippleRad 6 0.2 [swirl 26 [toPolars $x
• notebook
  15 Feb 2017 — raise text1 ## make a popup menu for the tabs (just add commands) menu .popup -tearoff 0 -activeborderwidth 0 .popup add command -label "mess 1" -command [list puts "in mess 1"] .popup add
• Notebook App - Todo Code
  06 Sep 2013 — n] { if {[regexp -nocase {^=+ .* =+$} $line]} { foreach item [lsort $items] { append newContent ${item}\n } if {[llength $items] > 0} { append newContent \n } append newContent $line set items {} } else { lappend items $line } } foreach item [lsort
• Notebook App - User Code Snippets
  06 Sep 2013 — is built-in as of V2.1.0. See the V2.1.0 release notes [http://notebook.wjduquette.com/index.php?title=Notebook_V2.1.0]. ---- GC 20 September 2003 : Create magic
• notes on building TclPro
  23 Feb 2005 — 0 iwidgets mv iwidgets itcl3.2/iwidgets3.0.0 cvs -d:pserver:anonymous@cvs.tclpro.sourceforge.net:/cvsroot/incrtcl get -riwidgets-2-2-0 iwidgets mv iwidgets itcl3.2/iwidgets2.2.0
• Notes on compiling tcl with icc
  01 Jun 2014 — Optimized compilation of tcl], I met a few problems when compiling tcl with Intel's icc6.0 compiler for linux [http://www.intel.com/software/products/global/eval.htm]. This is how
• Noty
  29 Jan 2015 — script) This bug also reported by [male] under version before 1.0.2. [ALL] Bug should be fixed in v1.0.2 ---- [male] - 2007-03-14: One question: how can I link
• NovaTcl
  12 Apr 2017 — demo package is loaded. The demo package code is in the file "/assets/tksurf/tm/tksurfdemo-0.1.tm". ====== [MDD]: Please let me know about any bugs you find with the tksurf
• noVNC
  25 Sep 2014 — or scolling modes for large remote screens * Easy site integration and theming (3 example themes included) * Licensed under the MPL 2.0 '''See Also''' * [VNC] * [VNC snapshot] <<categories>> Internet | Remote access software
• NRE: Coroutines in 8.6
  01 Jun 2014 — stack trace!): proc tailcall args { set cmd [[uplevel 1 [[\ list namespace which [[lindex $args 0]]]]]] lset args 0 $cmd uplevel 2 $args } Tailcalls: why? * Infinite recursion depth possible * Functional programming constructs * Psuedo
• NRE: the non-recursive engine in Tcl 8.6
  01 Jun 2014 — data0, data1, NULL, NULL); return Tcl_NREvalObj(interp, objPtr, flags); } int MyPostProc( ... ) { Tcl_Obj *fooPtr = data[0]; /* data0 retrieved */ MyStruct *mooPtr = data[1]; /* data1 retrieved */ <postprocessing> <cleanup> return = result; ... } ====== NRE-enabled core
• ns
  09 Mar 2013 — ns-2%|%ns]". ---- Man page: NAME ns - Namespace Supplement SYNOPSIS package require Tcl package require ns 0.2 namespace import ::ns::* nsTidy namespaceName nsJoin namespaceName ?args? nsJc ?args? nsRoot DESCRIPTION A Tcl
• nsdbpg
  11 Dec 2009 — project_0=nspostgres&project_1=nsdbpg&project_2=nsdbipg%|%comparison of the codebases%|%] of nspostgres (red), nsdbpg (green) and nsdbipg (blue): [https://www.ohloh.net/p/compare_chart?metric=Codebase&project_0
• nstcl
  10 Sep 2013 — db" API, which provides a common interface to various different database extensions. As of version 1.0 nstcl now supports the following databases: [Oracle]: [PostgreSQL]: [Solid]: [Sybase]: [SQLite]: [MySQL]: [ODBC]: Extending nstcl
• nstcl-html
  20 May 2007 — provides for managing html]] ---- Here's a sample script demonstrating a use: package require nstcl 1.0 namespace import nstcl::* set url http://wiki.tcl.tk/ # the <base> tag will be used
• nt-tcl
  07 Sep 2013 — create and maintain Windows 95/NT shortcuts. The entire package has been built with MSVC++ 5.0. The author mentions that none of these have been tested with Windows 95. Some may
• ntk button
  21 Feb 2015 — either '''pressed''' or '''released''' (default: '''released''') * '''-textwidth''' ''width'' — width of text (default: '''0''') * '''-textheight''' ''height'' — height of text (default: '''0''') MethodVariables: Public commands: * buttonDraw Inheritance: * theme <<categories>> Command | GUI | Graphics
• ntk clock
  21 Feb 2015 — classes::clock Syntax: : '''ntk clock''' ''windowPathName'' ?''options''? Options: * '''-hourcolor''' color for the hour hand (default: '''0 255 0 255''') * '''-minutecolor''' color for the minute hand (default: '''100 100 255 255''') * '''-secondcolor''' color
• ntk entry
  21 Feb 2015 — cursor rgbaList (default: '''255 0 0 255''') MethodVariables: * '''cursoroffest''' offset of cursor default: 0 * '''slidex''' how much the cursor position is before the middle of the character default: 0 * '''offsetmap''' map of
• ntk grid
  24 Sep 2012 — how many rows this entry should span * -columnratio * -rowratio * -slot slot to use in the form {0 1} (row and column) * -sticky stickiness a combination of n, w, s and e MethodVariables
• ntk scrollbar
  22 Feb 2015 — default: '''0''' * '''clickY''' default: '''0''' * '''dragging''' default: '''0''' * '''buttonTimerId''' default: {} * '''buttonIdleId''' default: {} * '''scaleIdleId''' default: {} * '''scale''' default: '''0.0 1.0''' * '''scaleOffset''' default: '''0''' * '''scaleXDelta''' default: '''0''' * '''scaleYDelta''' default: '''0''' * '''x1''' default: '''0
• ntk text
  22 Feb 2015 — windowPathName'' ?''options''? Options: * '''cursorcolor''': default: '''200 200 200 255''' * '''fg''': foreground color rgbaList default: '''125 125 0 255''' * '''theme''': default: {} * '''insert''': default: {} * '''themeclass''': default: {} MethodVariables: * '''contexts''': default: {} * '''texts''': default: {} Public commands: * '''textDraw
• ntk theme
  22 Feb 2015 — mostly used from parts of ntkWidget (no direct use suggested) Syntax: Options: * '''-bd''': border width (default: '''0''') * '''-font''': font name (default: {}) * '''-fontsize''': font size (default: {}) * '''-text''': text for labels etc. (default: {}) * '''-textcolor
• ntk window
  22 Feb 2015 — reqwidth''': requested width of the window * '''-rotate''': counter clock wise rotation of the window in degrees (0 - 360) * '''-visible''': visability of the window (boolean) * '''-xoffset''': x offset of the used window part
• ntkThemed
  20 Feb 2014 — ES] 2.0. ---- [apw] 2014-02-20: Some more Tcl commands (drawline, drawtriangle, filltriangle, drawrectangle, fillrectangle) implemented and running (mostly) for [Android] [APWTCL (Java)] based on OpenGL ES 2.0. See table
• ntkWidget
  20 Oct 2013 — generic | generic |% %| package name | Itcl 4.0 | | ntkWidget 0.1 | TclGL 0.1 | Glmwfw 0.1 | GlmwfwX11 0.1 | GlmwfwWin32 0.1 | GlmwfwMacosx 0.1 | ntkWidgetImage 0.1 |% !!!!!! This code is currently
• NTP plugin for a detachable nmea GPS source
  17 May 2011 — 127.127.20.1 mode 17 fudge 127.127.20.1 flag1 0 flag2 0 flag3 0 flag4 0 time1 0.7800 ====== with ''time1'' being an adjustable value depending on what sentences
• Number of business days
  12 Nov 2012 — u"] set add 0 incr add [expr {$weeks * 2}] incr add [expr {$startdow > $enddow ? 2 : 0}] incr add [expr {$startdow == 6 ? 2 : 0}] incr add [expr {$startdow == 7 ? 1 : 0}] set realend
• Numeric Statistics From a List
  26 Aug 2018 — listNumericStats thisList { set length [llength $thisList] if {$length == 0} { error "List cannot be empty" } set max [lindex $thisList 0] set min $max set sum 0. foreach element $thisList { set sum [expr {$sum
• Numerical Analysis in Tcl
  30 Apr 2018 — more algebraic syntax for mathematical expressions [MATLAB]: [Octave]: various interfaces to Tcl/Tk are available [NAP]: 0-based indexing, deals with large collections of data in a way similar to [MATLAB] or
• Nuvola
  18 May 2014 — license%|%licensed] under the [LGPL]. Originally created for desktop environments like [KDE] and [GNOME], version 1.0 contains more than 600 pixel icons in multiple sizes, mostly in the [PNG] format but
• nxs
  15 Feb 2016 — args == 1} { tailcall [lindex [info level 0] 0] $name $type $keys = {*}$args } else { while {[llength $args] > 0 && [lindex $args 0] ni {= -} && ![dict exists $set [lindex $args 0]]} { # Must be another key set
• OBEX
  30 Mar 2015 — error "Too many levels" } set _args [concat [lindex $_args 0] [lreplace $_args 0 0] ] } return } proc f_connect {args} { # OBEX 1.0, Flags=0, MRU=8k flattenargs return \ [fop 0x80 [binary format
• obfusc
  09 Sep 2013 — 2004:''' the link is broken But still can be found at [http://ftp.sunet.se/pub/lang/tcl/sorted/packages-8.0/devel/obfusc-1.6.tar.gz] ([EF]) <<categories>> Dev. Tools
• obj
  30 Dec 2017 — endcoords with default {100 10 100 100} % % obj::configure morph -state 0.0 class morph has option -state with default 0.0 % **Components** Objects can have private data. If one private date
• Object Instantiation Test
  18 Jan 2011 — counter set counter 0 } method activate {} { if {[incr counter] >= $count_max} { Toggle::activate set counter 0 } return $this } } proc main {n} { set toggle1 [Toggle \#auto 1] for {set i 0} {$i<5
• Object method ensemble
  20 Aug 2018 — args} { set cmd _[lindex $args 0]_[lindex $args 1] if {!($cmd in [info object methods [self] -private -all])} { return -code error -errorinfo "unknown method [self] [lindex $args 0] [lindex $args 1]" } my
• Object orientation
  11 Oct 2018 — with methods upvar #0 ${self}::s s switch -- $method { push {lappend s {*}$args} pop { if {![llength $s]} {error {stack underflow}} K [lindex $s end] [set s [lrange $s 0 end-1]] } default
• Object Oriented Moore Type State Models
  02 Jan 2014 — is # fed in. set conc 0 proc raiseConcentration {who value} { global conc $who evalConcentration $conc incr conc $value if {$conc > 100} { set value -20 } elseif {$conc <= 0} { set ::done 1 } after 1000
• Object Tcl
  30 Dec 2012 — 7.6/devel/oop/ObjectTcl.1.0.tar.gz (dead) location: http://ftp.uni-siegen.de/x11/tcl/ftp.gmd.de/contrib/alcatel/extensions/ObjectTcl.1.0.tar.gz updated: 10/1998
• Object Tcl by Nagao Shijo
  30 Dec 2012 — original widget set. The namespace facility in Tcl8.0 is completely supported by version 2.0. The system works on both Tcl7.* and Tcl8.0. Currently, the only development snapshot is available
• object with scope
  12 Nov 2015 — puts "[self] destructor..."} } proc test {} { puts "[info level 0]: info commands a=<[info commands a]>" Test create a eins zwei drei puts "[info level 0]: info commands a=<[info commands a]>" } puts
• Object-oriented SQLite wrapper
  25 Jul 2018 — 26''') **Requirements** * Tcl 8.5 * [TclOO] extension * [SQLite]3 extension ---- **Source Code** ====== package provide tableview_sql 0.1 package require Tcl 8.5 package require TclOO namespace eval tableview { namespace import ::oo
• Objective C
  30 Nov 2013 — rochester.edu/pub/packages/objc/libtclobjc-1.0.tar.gz ftp://ftp.informatik.uni-muenchen.de/pub/comp/platforms/next/Developer/resources/libraries/libtclobjc-1.0.tar.gz ftp://ftp.informatik.uni
• Objective C / Tcl library
  14 Jan 2012 — rochester.edu/pub/packages/objc/libtclobjc-1.0.tar.gz ftp://ftp.informatik.uni-muenchen.de/pub/comp/platforms/next/Developer/resources/libraries/libtclobjc-1.0.tar.gz ftp://ftp.informatik.uni
• ObjectProc
  11 Jan 2013 — name,numrequired) 0 foreach line [split $argstr \n] { set objs [split [string trim $line]] if {[string is space -strict $objs]} continue switch -- [llength $objs] { 1 { set ObjectProc($name,[lindex $objs 0]) required
• objectwalker
  03 Jul 2011 — is hereby placed in the public domain. # package provide objectwalker 1.0 package require cmdline namespace eval ow { variable version 1.0 variable OOPackages [list XOTcl] variable sep . } proc ow::=> {object args
• Oblets
  21 Apr 2011 — for member variables. upvar #0 oblet_v_$cls_nam cls_arr set cls_arr(name) $cls_nam # Inherit attributes and methods from base classes. if { [lindex $args 0] == ":" } { foreach base [lrange $args
• obTcl
  29 Nov 2013 — tcl/all/o/obTcl/0.56/obTcl-0.56.tar.gz location: ftp://ftp.uni-hannover.de/pub/mirror/tcl/mirror/ftp.procplace.com/alcatel/potpourri/obTcl-0.56.tar.gz location
• Octabug
  28 Aug 2013 — 0,1 0,2 0,3 1,0 1,2 1,3 2,0 2,1 2,3 3,0 3,1 3,2} { set m($a) 0 } set m(0,0
• Octave
  06 Jun 2014 — Cardoso: links Tcl/Tk with Octave. The last release mentioned on that page was tk_octave-0.3.4.tar.gz. If anyone knows where to find that file, please update this
• Octopus package for parsing command line options for procedures/scripts
  19 Jun 2015 — tcl script. Example of usages: ====== #!/bin/sh # the next line restarts using -*-Tcl-*-sh \ exec tclsh "$0" ${1+"$@"} if { [info exists env(OCTOPUS_INSTALL_PATH) ] } { lappend auto_path $env(OCTOPUS_INSTALL_PATH
• OData for Tcl
  01 Jun 2014 — Tcl*** ****A TclOO OData class package**** There is a TclOO class that implements basic OData V4.0 (read only at this time) http://chiselapp.com/user/gwlester/repository/ODataTclOO%|%here%|%. <<categories>> Internet
• ODBC
  08 Sep 2013 — library to Postgresql 6.0 backend [SnODBC]: An extension providing access to ODBC 3.0 API in [tclodbc]-like manner [TclSQL]: Another Windows-only [C++]-based SQL 3.0 ODBC extension for
• odbctcl
  05 Sep 2013 — all/o/odbctcl/0.2/odbctcl-0.2.README%|%odbctcl-0.2.README]: [ftp://ftp.tcl.tk/pub/tcl/all/o/odbctcl/0.2/odbctcl-0.2.zip%|%odbctcl-0.2.zip
• odyce
  02 Nov 2013 — 1% time {package require tdom} 4352723 microseconds per iteration ====== [EH]: 3-4s on WinXP while 0.6-0.7 on Linux (same machine), so there is really something wrong with Win32. Even
• Odys object system
  18 Jan 2013 — format { if {[llength $args] == 0} { return [set ${this}::%s] } elseif {[llength $args] == 1} { return [set ${this}::%s [lindex $args 0]] } else { error {instance variable access method can accept 0 or 1 arg
• Of spreads and quadrances
  06 Jun 2012 — will be: % Sc 0 0 5 0 10 10 0.5 Other examples: % Sc 0 0 50 0 100 75 0.36 % Sc 0 0 5 0 10 20 0.8 Assuming
• ofx2csv
  10 Feb 2010 — menu $parent.t.menu -tearoff 0 set cnt 0 foreach thing $menuitems { incr cnt if { $cnt == 20 } { set brk 1 ; set cnt 0 } else { set brk 0 } $parent.t.menu add command
• Ogg tools
  26 Sep 2012 — expr {[string range $data 0 3] eq "OggS" \ && [string range $data 28 34] eq "\x01vorbis" ? 1 : 0}] } # simple test if 0 { # ogg::writeComments set f [lindex $argv 0] set nf [file rootname
• On mathematical notation
  06 Jun 2012 — 2 + {{1.0 0.0} {0.0 0.0}} {{0.0 0.1} {0.0 2.0}} {1.0 0.1} {0.0 2.0} (this result being (1.0+0.1i
• onDisplay - run a script after a window is displayed
  30 Jun 2017 — small delay. after 100 [list $mywindow yview moveto 1.0] ; # scroll to the end ====== Use: ====== ondisp::onDisplay $mywindow [list $mywindow yview moveto 1.0] ====== ====== namespace eval ondisp { variable vars proc _addBindTag { w
• One Dimension Heat Flow Model and eTCL Slot Calculator Demo Example, numerical analysis
  09 Mar 2017 — 0 1.0 10.0 1.0 1.0 450.5 165.09 } ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 120. 530.0 5.0 10.0 1.0 1.0
• One Hand
  22 Aug 2013 — heimatseite.gif] Uses Itcl (OO-Extension), Metakit (Database), optional Img (for JPG and PNG) or ImageMagick. Current version 2012-01-09: 0.8.09072016 see also: [One Hand Content] <<categories>> Application | CMS
• One more inifile parser
  23 Mar 2017 — line] == 0 || [string range $line 0 0] == ";"} { continue; # I think we don't need no regexps for such primitive stuff } # recognize Sections if {[string length $line] > 2 && [string range $line 0 0
• One Track Mind
  22 Jun 2011 — http 200 port 8080 interface 0.0.0.0 } array set config [array get defaults] # SECOND, process command line switches while {[llength $argv]} { switch -regexp -- [lindex $argv 0] { {(?i)^--?u(rl?)?$} {set
• onInit
  24 Feb 2005 — fil 0] == "_"} { set fil [string replace $fil 0 0 $prefix] } if {[string index $fil end] == "_"} { set fil [string replace $fil end end $suffix] } set iFFound([lindex [file split $fil] end]) 0 foreach
• Online books
  17 Dec 2017 — lot of [Tcl] books http://books.google.com/books?q=tcl+tk&lr=&sa=N&start=0%|%here%|%. '''Tcl/Tk tutorials and books in german''' * Professor Lutz Wegner wrote a course script
• Only in tcl...
  25 Nov 2017 — title . [regsub {_$} [wm title .] {}]%A } elseif {"%K" eq "BackSpace"} { wm title . [string range [regsub {_$} [wm title .] {}] 0 end-1] } elseif {"%K" in {Enter Return}} { calc } } proc calc {} { if {[wm title .] eq "exit
• OO libraries
  22 Sep 2012 — a ram # a will be { ram } lappend a somu # a will be { ram somu } lvarpop a 0 # a will be { somu } Now there are different commands for different type of data/object
• OO Method calls
  10 Jul 2016 — max $max_counter set counter 0 } method activate {} { if {[incr counter] >= $count_max} { Toggle::activate set counter 0 } return $this } } proc main {} { set n [lindex $::argv 0] set val 1 set toggle
• oo::copy
  10 Aug 2017 — set ns [$object eval {namespace current}] namespace eval ns1 [ list namespace import ${ns}::export1] set results {0 yes 1 no} foreach {label script} $tests { set copts {} puts [list $label [dict get $results
• oo::widget
  15 Aug 2018 — length = 0; scalePtr->value = 0.0; scalePtr->varNamePtr = NULL; scalePtr->fromValue = 0.0; scalePtr->toValue = 0.0; scalePtr->tickInterval = 0.0; scalePtr->resolution = 1.0; scalePtr->digits = 0; scalePtr->bigIncrement = 0.0
• OpenCascade
  16 Feb 2018 — pload ALL axo beziercurve b 4 0 0 1 0 4 2 0 4 4 0 2 5 revsurf s b 0 0 0 0 0 1 erase b fit datadir. brepiges
• OpenGL
  06 Jan 2018 — be drawn: glRotatef( 90.0, 1.0, 0.0, 0.0 ) ; /* Rotate the next objects over 90 degrees around the x-axis */ glTranslatef( 0.0, 1.0, 0.0 ) ; /* Translate the next
• OpenID
  07 Aug 2011 — http::geturl $url] set ncode [http::ncode $token] if {($ncode == "301") || ($ncode == "302")} { # an redirect upvar #0 $token state if {![info exists state(meta)]} { error } array set meta $state(meta) if {![info
• Opening a window that duplicates the program we're on
  10 Nov 2011 — global state set fp [ open $state(${widget}-filename) {WRONLY TRUNC} ] puts -nonewline $fp [ $widget get 0.0 end ] close $fp after $save_delay [ list savefile $widget $save_delay ] } ====== The result being that
• OpenOffice
  18 Oct 2013 — https://www.oasis-open.org/committees/download.php/12572/OpenDocument-v1.0-os.pdf%|%Open Document Format for Office Applications] ,1.0 ,2005-05-01: [http://incubator.apache.org/odftoolkit/odfdom/index
• OpenSceneGraph
  06 Jun 2010 — is the Quick Start Guide [http://www.skew-matrix.com/OSGQSG/index.html] Starting with version 0.4.1, [Tcl3D] provides a wrapper of OpenSceneGraph 2.8.2. It also has some
• OpenVerse Visual Chat
  10 Sep 2012 — mac testers. Should be portable to all Tcl/Tk implementations. Previously known as Metaverse. Currently at version 0.8-7 . Updated: 12/2003 Contact: mailto:openverse@openverse.com <<categories>> Application | Internet | Chat
• Operating TWAIN Scanners through TCL and EZTWAIN.
  21 Mar 2012 — demo1 {} { EZ_TWAIN_SelectImageSource 0 EZ_TWAIN_AcquireToFilename 0 Demo1.bmp # exit } # scan straight to file using previous settings.. proc demo2 {} { EZ_TWAIN_SetHideUI 1 EZ_TWAIN_AcquireToFilename 0 Demo2.bmp # exit
• Operations research - Simplex Algorithm
  06 Jun 2012 — cMatrix] set cnt 0 foreach cMatrix_i $cMatrix { set e_k {} for {set j 0} {$j < [llength $cMatrix]} {incr j} { lappend e_k [expr $j==$cnt?1.0:0.0] } incr cnt
• Operator precedence expression parser
  14 Sep 2012 — 2 right bxrasn } |= { 160 2 right borasn } [ { 1000 0 {} indx } ] { 1000 0 {} none } ( { 1000 0 {} call } ) { 1000 0 {} none } , { 1000 0 {} none } ; { 1000 0 {} semi } } # A little helper to sort a precedence
• opt
  02 May 2013 — arg3 scale : 1.0 blahflag : abc subcommand : save aflag : 0 precision : 23 optarg : weirdflag : 0 arbitrary : foobar noStatics : 1 random : 12 nestedloading1 : 1 arg1 : -4 nestedloading2 : 1 arg2 : 0 libsOK : SybTcl arg3
• Optimized compilation of tcl
  18 Jan 2012 — pentiumpro -fomit-frame-pointer|& &| 1.01 | 0.97 |gcc2.96 |-Os -march=pentiumpro|& &| 1.05 | 0.98 |gcc2.96 |-Os -march=pentiumpro -fomit-frame-pointer|& &| 0.99 | 1.07 |gcc3.1 |-O
• Optimized Tetrahedron with tclogl
  06 Jun 2010 — 0.0 0.0 5.0 0.0 0.0 0.0 0.0 1.0 0.0 } set vdist 400 set rdepth 1 set xRotate 0.0 set yRotate 0.0
• Optimizing Snit
  06 Oct 2011 — SG2]: I've been using snit for a while (pre-1.0/pre-tcllib inclusion), and I really like it. But I've run into a case where it's performance overhead
• option database
  29 May 2015 — Barclay)| ---- Semi-related: | What:| CDE| | Where:| ftp://ftp.procplace.com/pub/tcl/sorted/x11/cde/0.3.0/| | Description:| Get Tk to look good under CDE, using the Tk options database as
• option get
  24 Oct 2010 — character (as that is used as a separator in the option database). **Example** ====== button .b option add *button.rightClick {bell} bind .b <3> {uplevel "#0" [option get %W rightClick Command]} ====== <<categories>>Command
• Option Parsing for Tcl Commands - tgetopt
  11 Feb 2014 — set optopts $name secret 0 } if {![regsub -- {\.arg\M} $opt {} opt]} { dict set optopts $name arg 0 dict set optopts $name required 0 dict set result $name 0 } else { dict set optopts
• option parsing using ensemble
  31 Jul 2012 — 0 complain 1} {a* b*} % globby -- a* b* {tails 0 complain 1} {a* b*} % globby -join a* b* {tails 0 complain 1} a*/b* % globby -nocomplain a* b* {tails 0 complain 0
• Options and Arguments
  27 Aug 2015 — spec [lindex $args 0] foreach optspec $spec { set name [lindex $optspec 0] switch [llength $optspec] { 1 { dict set opts $name type 0 ;# flag {*}$upset [string range $name 1 end] 0 #dict set
• optproc
  11 Sep 2008 — llength $args] == 3 && [lindex $args 0] == "-options"} { _proc $name args [ string map [list \ ARGS [lindex $args 1] \ SCRIPT [lindex $args 2] ] { foreach var {ARGS} { set [lindex $var 0] [lindex $var 1] } foreach
• ora2txt
  22 Apr 2008 — 0 VERTYPE: N WIN9X: 0 WINNT: 1 WINXP: 1 MAC: 0 SOLARIS: 0 LINUX: 0 MAINFRAME: 0 POCKETPC: 0 VERSIONURL: PREFIXHTML: SUFFIXHTML: VERSIONNOTE: STOCKED: N SCRIPTED: A MACOS9: 0 WIN2KSERVER: W2KSERVER: 0
• Oracle
  12 Mar 2015 — backed web collaboration tool originally written for Oracle and also ported to InterBase DBMS, release 4.0, available on Linux at no charge. ACS operates on top of AOLServer, a free HTTP
• Oracle Enterprise Manager
  11 Sep 2013 — a "remote agent", that is, an individual monitored server. A restricted form of Tcl (version 8.0, as of 2001?) is the language of these scripts. See [http://download-west.oracle.com
• Oratcl Examples
  24 Sep 2017 — oradesc $lda stacks # I got back {SID 22 NUMBER 0 -127 1} {EBE 3 CHAR 0 0 1} {PART 20 CHAR 0 0 1} # example with a bind. Only return rows with
• Ordinary Differential Equations
  05 Mar 2014 — equation is N=N0 * exp (-constant * time). where N0 is the number of atoms at time = 0. (Just differentiate the function). If you havent studied calculus yet, dont worry perhaps this page
• Organising Multiple Widgets in a Tree-Like Structure with Gnocl
  16 Jan 2011 — J Giddings # 15-Dec-2009 #--------------- # Description: #--------------- #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl namespace eval widgetTree {} #--------------- # initialise the widget tree itself #--------------- proc tree:create { } { set
• Orphans
  19 Jan 2014 — title>" [getPage $id]] { return 0 } { return 1 } } proc isOrphaned {id} { if [pageExists $id] { if [regexp "<ul></ul>" [getPage $id]] { return 1 } } return 0 } proc findOrphans {maxId {$minId 0}} { foreach id [range $minId
• otcl
  01 Jun 2014 — that can be called. Contact tested with VC++ 6.0 and Tcl 8.0.4. It relies on the way MSC 4.0. Site also has a crypt dll. Updated: 04/1998
• outlog - Taking care of log rotations automagically
  12 Nov 2014 — id] if { $idx < 0 } { return } # Get to the global that contains all necessary information set varname "__outlog_$id" upvar \#0 $varname Log # Close file and clean up set res 0 if { $Log
• Outsourcing C helpers
  11 Dec 2011 — int n = atoi(count); int i; if(n<0) FATAL("count must be non-negative"); for(i=0; i<n; i++) { results(s); } } return 0; } ====== And on the Tcl side: ====== proc foo
• Over and Out Triangle
  28 Dec 2016 — peg) -fill white puts " ::g(peg) [lindex [$w gettags $id] 0] " ; update set ::g(peg) [lindex [$w gettags $id] 0] } if 0 {This evaluates the validity of a move. Richard used hypot
• overlay
  29 Dec 2007 — outlines its functionality. Also see http://expect.nist.gov/FAQ.html#q16 ---- avalon: I tried "`overlay -0 $spawn_id -1 $spawn_id -2 $spawn_id tee`" with the hope expect will exit
• overload
  17 Jul 2017 — exit {{code 0}} { set fp [open test a] puts $fp "trapped exit at [clock format [clock seconds]]" _exit $code } ====== General case needs [uplevel], as in ====== uplevel 1 [linsert $args 0 _original_PROC
• Overloaded source for C-style comments
  01 Sep 2013 — the command line */ /* print it */ puts $argument /* print its length */ puts [string length $argument] /* if {$argument == 0} { Unbalanced braces in comments! */ frobnicate /* comment in the middle */ $argument /* } */ } OK, so I've gone
• Overloading a widget command
  16 Oct 2013 — is the following: ====== # Create the text widget pack [text .t] # The flag global flag set flag 0 # Put a trace on the flag to execute your proc trace variable flag w changed
• overloading file handling functions
  22 Apr 2016 — proc open { args } { if { [ llength $args ] == 1 } { set args [ lindex $args 0 ] } set fid [ eval __open $args ] set file [ lindex $args 0 ] lappend ::open_files_array(fid,$fid) $file lappend ::open_files
• overtype
  29 Jul 2012 — overtype overtype::left ?-overflow [1|0]? ?-elipsis [1|0]? ?-ellipsistext ...? undertext overtext overtype::centre ?-bias [left|right]? ?-overflow [1|0]? undertext overtext overtype::right ?-overflow [1|0]? undertext overtext overtype::center is
• Overwriting an entry char by char
  06 Jun 2004 — e selection from $::n .e selection to [expr {$::n + 1}] } ---- '''The test''' # initial string .e insert 0 "the initial string" # selecting the first char set ::n -1 prepare Now, type ahead! ---- [Category
• OWI535 robot arm control
  03 Jun 2014 — sudo apt-get install -y libusb-1.0-0-dev * *----------------------------------------------------------------------* * How to compile: * * gcc robotarm.c -Os -I/usr/include/libusb-1.0 -lusb-1.0 -o robotarm * ************************************************************************ * Operating System: Raspbian "Wheezy
• pack propagate
  13 Jan 2012 — of these cases an empty string is returned. If ''boolean'' is omitted then the command returns '''0''' or '''1''' to indicate whether propagation is currently enabled for ''master''. Propagation is enabled by
• pack-old
  10 Nov 2001 — pack] ]]. [[ [pack] ]] has several supported and documented subcommands that have been the same since Tk 4.0. See http://www.purl.org/tcl/home/man/tcl8.4/TkCmd/pack.html Back in
• package BoF: install-side of PACKAGE UNKNOWN
  11 Jul 2012 — 1.0 Scripts registered with [package ifneeded] refer to files package ifneeded hw 1.0 {source /usr/lib/hw1.0/hw.tcl} package ifneeded foo 2.0 {load /usr/lib/foo2.0
• package BoF: recognize alpha/beta version numbers
  01 Dec 2013 — 1 < 0). [[package vsatisfies]] -- need to specify sensible rules (for itself and to be used by [[package require]]) [[package vsatisfies 1.1 1.0]] => 1 [[package vsatisfies 1.1a0 1.0]] => 1
• Package DGA
  18 Aug 2012 — g arcs] { $g arc set $arc -key used 0 if { [catch { $g arc get $arc -key weight }] } { $g arc set $arc -key weight 1.0 } } } #------------------------------------------------------------------- # min_arc # Within the graph zero, one
• package for solving PDEs
  07 Jun 2012 — expr {($_xmax-$_xmin)/double($_nocells)}] nap "_grid = _xmin + _deltx * (0 .. _nocells)" nap "_dx = _deltx + 0.0 * (0 .. _maxcell)" nap "_volume = _deltx + 0.0 * (0 .. _maxcell)" } } # main -- # Testing: # - Generation of the grid must
• package forget
  13 Nov 2015 — deleted. Here is one way, provided by [RS], to do that: ====== namespace eval ::foo { variable cleanup 0 proc cleanup {} { # do cleanup } trace add variable ::foo::cleanup unset ::foo::cleanup } ====== An extension can
• package ifneeded
  30 Nov 2012 — be true that the command '''package ifneeded''' ''$pkg'' ''$version'' ''$script'' accurately and truthfully indicates that '''uplevel #0''' ''$script'' will cause the command '''package provide''' ''$pkg'' ''$version'' to be evaluated (or equivalent [Tcl
• package index script interface guidelines
  28 Jan 2009 — this: package ifneeded foo 1.0 "load [file join $dir foo[info sharedlibextension]]" That will break if ''$dir'' contains spaces. Do this instead: package ifneeded foo 1.0 [list load [file join
• package names
  30 Nov 2012 — package names cannot have "-" in them. Thus app-wits-2.0.tm is not found by package require but appwits-2.0.tm is. I guess the pattern matching treats "-" as start
• Package Repository Client
  03 Oct 2017 — the Package Client Toolset is working... package require ZZZ.Test; # NOTE: Should (eventually) result in "0.0" ----- How to use with [IronTcl]: 1. Download the Package Client Toolset from https://urn.to
• package vcompare
  06 Nov 2013 — version numbers given by ''version1'' and ''version2''. Returns '''-1''' if ''version1'' is an earlier version than ''version2'', '''0''' if they are equal, and '''1''' if ''version1'' is later than ''version2''. <<categories>> Command
• package vsatisfies
  30 Nov 2012 — version1'' (i.e. ''version1'' is equal to or greater than ''version2'' and they both have the same major version number), '''0''' otherwise. ---- See also: * [package] * [package vcompare] ---- [Tcl syntax] <<categories>> Category Command
• Packaging of the Tcl world
  21 Feb 2005 — 2 | Tcl Core | *** | *** | *** | --------+---------------+---------------+---------------+---------------+ 3 | http, msgcat *| ??? | **** | **** | | tcltest, opt | | | | --------+---------------+---------------+---------------+---------------+ 4 | Tk, tclhttpd | Expect | @ | @ | | tcllib | [incr Tcl] 3.0| | | --------+---------------+---------------+---------------+---------------+ 5 | ** | TclJava | TclXML | Img | --------+---------------+---------------+---------------+---------------+ TCT: mdh dh h m = maintains the package d = distributes the
• packer
  30 Sep 2018 — 32-bit) by default. | | Prerequisites | Tcl 8.6 or newer. | | Updated | 2018-09-30 (v0.7.0) | | License | MIT | '''Packer''' is a tool for building cross-platform [Starpack%|%Starpacks] with [Tcllib] included
• Packing rectangles
  09 Sep 2008 — ip 0]<$midx ? [lindex $ip 1] - [lindex $boundary 0] : [lindex $boundary 2] - [lindex $ip 0] ) * ( [lindex $jp 0]<$midy ? [lindex $jp 1] - [lindex $boundary 1] : [lindex $boundary 3] - [lindex $jp 0] ) }] if
• Pages containing invalid UTF-8 sequences
  03 Dec 2007 — page] name page set data [encoding convertto identity $page] set point [utf8::findbad $data] if { $point >= 0 && $point < [string length $page] - 1 } { puts "\[$name\] at position $point:" puts "======" puts [encoding convertfrom identity
• Palindromes
  28 Jun 2007 — x trace var ::input w showPalindrome } proc showPalindrome {- - -} { .t delete 1.0 end .t insert end [palindrome [string toupper $::input]] } if 0 {The mirroring of a string happens here - recursively, the first
• PalmTcl
  09 Aug 2012 — deletion, update, listing), system functions (sound, clipboard, launching apps, system event handling), etc. Currently at version 0.4, but the sourceforge page says that "Palm Tcl is no longer being actively developed
• PAM
  16 Mar 2008 — conv, &pamh) != PAM_SUCCESS) { return 0; } if (pam_authenticate(pamh, 0) == PAM_SUCCESS) { ret = 1; } else { ret = 0; } if (pam_end(pamh, 0) != PAM_SUCCESS) { ret = 0; } return ret; } } ---- !!!!!! %| [Category System Administration] |% !!!!!!
• panedwindow
  10 Apr 2018 — sash to resize the panes, the resize happens in real-time. If you set -opaqueresize to 0, it instead shows a 'ghost' version of the sash, to show you where it will
• Panner
  10 Jul 2016 — set yview_limit [expr {1.0 - ($yv2 - $yv1)}] set pxview [expr {((1.0 / [winfo width $panner]) * $x_diff) + $xv1}] if {$pxview < 0.0} { $win xview moveto 0.0 } elseif {$pxview > $xview_limit
• Paragraphing
  03 Apr 2014 — set singleList {[llength $args]==1} set expandSingleList {set args [lindex $args 0]} if $singleList $expandSingleList set res [string length [lindex $args 0]] set findLongest { set l2 [string length $i] if {$l2 > $res
• parallel adding with tcl processes
  10 Sep 2013 — tk/1553 **Citations** * Re: [Keep a GUI alive during a long calculation%|%Keeping GUI alive] with [[after idle [[after 0 ...]]]] ,George Peter Staplin ,comp.lang.tcl ,2009-04-10 <<categories>> Distributed Computation
• Parallel port
  17 Oct 2005 — with compatibility notes between the two versions. ---- '''LPTTCL ver. 3.0''' To overcome some of the limitations of LPTTCL v.1.0, a new wrapper has been added to the Inpout32.dll
• Parametric surfaces visualization with VTK and Tcl-Tk
  25 Aug 2018 — renWin switch $color { 0 { set rgb "0 0 1" set color 1 } 1 { set rgb "0 1 0" set color 2 } 2 { set rgb "1 0 0" set color 0 } } for {set
• paren checker
  09 Mar 2007 — last 0]$char open: [lindex $last 2] close: $ln" exit 1 } } "\n" { incr ln } } if {[llength $plist]} { puts "Missing closes for: " while {[llength $plist]} { set last [popBack plist] puts "[lindex $last 0
• Parenthetcl
  09 Nov 2010 — square brackets (as in C). Example: pproc (uni*)to_lower { (uni*)x } { for {set (int)i 0} ($i< [len $x] ) {incr i} { if ( 'A' <= $x($i) && $x($i) <= 'Z' ) { set x($i
• Pareto with BLT
  24 Feb 2011 — process, create a bar element to display the magnitude. set count 0 set sum 0 set ydata 0 set xdata 0 foreach { label value color } $data { incr count .b element create $label
• Parse Parenthesis
  26 Jun 2012 — count 0 foreach {str result} { () "" (()) "" (moop) "1 moop" ((moop)) "2 moop" "zero(one)((two))" "0 zero 1 one 2 two" "pebbles (fred wilma) bambam (barney betty)" "0 {pebbles } 1 {fred wilma} 0
• Parse Quote
  12 Feb 2014 — q \"}} { set depth 0 set result {} set skip 0 foreach c [split $str ""] { if {$c eq "\\"} { append run $c incr skip } elseif {$skip} { append run $c set skip 0 continue } if {$c
• parse_args
  23 Aug 2018 — args]] has the -boolean switch, which appears to work the same as writing "-value 1 -default 0" with [[argparse]]. (I think I'll add -boolean.) [[parse_args]] has -validate and -enum, but
• parseQif
  10 Feb 2010 — index $detail 0] set value [string range $detail 1 end] set keyArray($key) $value } unset -nocomplain line foreach ch $keyList { append line $keyArray($ch) $sep } set line [string range $line 0 end
• Parser using recursive descent
  10 Jun 2011 — 1 if matched, 0 if end of input, "error" if no match # proc ::Parser::rule { item } { variable rule_dependents variable rule_code variable lexeme variable end if { $end } { return 0 } # # Try all
• ParseTools
  21 Apr 2012 — purl.org/NET/akupries/soft/ptools/ http://www.purl.org/NET/akupries/soft/ptools/download/ptools1.0.tar.gz Description: Tcl/Tk 8.x extension which provides script level access to the
• Parsing an iPhoto catalog
  05 Jan 2008 — tag 1 } proc false {p t} { tag 0 } proc dict {p t} { enter 1 } proc dict/ {p t} { leave } proc array {p t} { enter 0 } proc array/ {p t} { leave } namespace export
• Parsing C Types
  24 Jun 2016 — 5 0 4 6 0 5 7 0 5 sqlite> select * from indexes; parent field level stride count ---------- ---------- ---------- ---------- ---------- 4 1 0 5 0 0 5 0 1 16 3 7 0 0
• Parsing csv file
  11 May 2011 — ReadChar create csv $h set cell {} set rowL [list] set rowNum 0 set numCols 0 set quoting 0 set doublequotes 0 while {![csv eof]} { set ch [csv getc] if {$ch eq "\r
• Parsing HTML
  09 Nov 2015 — SAX-like series of events: ====== # htmlutil.tcl - by Jean-Claude Wippler, September 2001 package provide htmlutil 0.1 # parse HTML text, setting array elements along the way proc htmlparse {text {aref html
• Parsing ISO8601 dates and times
  20 Aug 2014 — more inclined to put it in [tcllib] than in the Tcl Core proper.) ---- ====== package provide iso8601 0.1 package require Tcl 8.5 namespace eval iso8601 { namespace export parse_date parse_time
• Parsing Polish notation
  08 Jun 2012 — proc pop {name {- ""}} { upvar 1 $name s set res [lindex $s end] set s [lrange $s 0 end-1] set res } proc ppop {name {- ""}} { upvar 1 $name s set res [uplevel pop
• Parsing RFC2822 dates and times
  04 Aug 2009 — 1 0 0 0 } { if { ($zperm && $wperm && $mdperm) == $permissible } { AddDatePat $wpat $wgrp $ypat $ygrp \ $mdpat $mdgrp \ $spat $sgrp $zpat $zgrp } } } } } } return } # Initialize the date patterns namespace eval rfc2822 { InitDatePats 1 InitDatePats 0
• Partcl physics as retold by a layman
  14 Jun 2007 — an integer: ttt -1 e- Electron (finally, an old acquaintance...) VVV 0 ve e-Neutrino TTT 1 p Positron vvv 0 -ve Electron anti-neutrino The other four have fractional charge sums
• Partial Differential Equations
  07 Jul 2011 — proc laplacian {cnc} { upvar #0 laplace laplace upvar #0 $cnc conc foreach {n1 n2} [$cnc shape] {break} nap "col = 0.0*(0..n2)" nap "row = 0.0*(0..n1)" nap "idxc = 1
• Partial Differential Equations - performance benchmarks
  18 Oct 2004 — to create and expand the lists # set newmat {} for { set j 0 } { $j < $norows } { incr j } { set newrow {} for { set i 0 } { $i < $nocols } { incr i } { lappend newrow [expr {rand()}] } lappend newmat
• partial evaluation
  04 Jun 2011 — arglist 0 0] eq "args"} { # yes, yes, the "args" case makes all this code dirty set nonbracedcode $code while {[regsub "\\\{\[^\}\]*\\\}" $nonbracedcode "" nonbracedcode]} { continue } if {[lsearch $nonbracedcode "#@@@@__insert__partially_applied_args"] < 0} { set
• Particle System
  15 Jun 2014 — x 0.0 -5.0 5.0 Wind ; # x force factor (wind) defineVar force.y 0.3 -5.0 5.0 Gravity ; # y force factor (gravity) defineVar force.z 0.0 ; # z
• Pascal's triangle
  16 Apr 2011 — set row 1 set mod 5 set size 2 set xc 200 set yc 0 for { set i 0 } { $i < [expr {400/$size}] } { incr i } { showrow [tocolours [set row [pascalam $mod $row
• Pascal>TCL
  19 Jun 2010 — help % gets $p rotate setAngle setAxis inspectAxis lineCut bezierCut quit help % puts $p quit % eof $p 0 % gets $p % puts $p help error writing "file6": broken pipe % === More precise: with option ''-blocking
• Pass by reference
  02 Apr 2013 — by reference. ====== proc xproc {pname arglist body} { set preamble "" foreach arg $arglist { set arg [lindex $arg 0] if {[string match "&*" $arg]} { set barearg [string range $arg 1 end] append preamble "upvar 1
• Pass-word mixer
  27 Jan 2011 — word : the word to mix # proba : a probability between 0.0 and 1.0 proc mix-word {word {digit 0.3} {upper 0.5}} { foreach letter [split [string tolower $word] ""] { append mixed
• Passing arrays of data
  20 Jul 2018 — a list with the correct number of integer elements # for { set i 0 } { $i < $maxdata } { incr i } { lappend _data 0 } # # Convert the list to a byte array # set c_data [intsToByteArray $_data
• Password Generator and Trainer
  27 Jan 2011 — else { set perc 0 } append formattedStats [format "(%.1f%%)" $perc] return } # # set up the GUI # initStats set password [genPw] set displaypass $password set pwishidden 0 set formattedStats {0/0 (0%)} set feedback {} button
• PataElmo
  27 Aug 2012 — lindex $clist 0] 1])}}]}]} { set string [$string [lindex [lindex $clist 0] 0] [expr [lindex [lindex $clist 0] 1]]] } else { set string [$string [lindex [lindex $clist 0] 0] [lindex [lindex $clist 0] 1
• patch for rcs in tcl
  11 Aug 2015 — patch 0]] puts stderr "doing $pc" set patch [lrange $patch 1 end] switch -glob -- $pc { "" {} a* { foreach {start len} [split [string range $pc 1 end]] break set adding [join [lrange $patch 0
• PATH
  01 Dec 2012 — works for me to find an executable in $PATH on Linux: proc inpath {prog} { set exok 0 # Original Linux version of "pathlist": set pathlist [split $::env(PATH) ":"] # Modified non-Linux version of
• pathentry
  02 Mar 2005 — error $err } rename $path ${path}_entry proc $path {cmd args} { upvar #0 [set vname [[set pat [lindex [info level [info level]] 0]]_entry cget -textvariable]] acc switch -- $cmd { complete { if {[llength [set
• paths and cycles
  25 May 2012 — if {[llength $path]>2} { set from [lindex $path 0] set to [lindex $path end] if {[lsearch $g $from,$to]>=0 || [lsearch $g $to,$from]>=0} { set t([normalizeCycle $path]) . } } } lsort [array names
• Pattern Searches on Blocks of Text
  20 Jun 2017 — F G" -nocase 1 -exact 0]" ;# -token "" -verbose 0 puts "4) [pattern_search "d*" "A B C DOG E F G" -exact 0 -nocase 1]" ;# -token "" -verbose 0 puts "5) [pattern_search
• Patterns with pentagons
  26 Jan 2012 — set rot_angle [expr {(180.0-360.0/7.0)*3.1415926/180.0}] #set no_per_generation 14 set list_vertices {1.0 0.0 0.0} .c create line 300
• Paul Obermeier
  26 Apr 2018 — Tcl stuff at http://www.poSoft.de Current main Tcl project is [Tcl3D]. New version 0.5.0 [http://www.tcl3d.org/html/history.html#releases] released on 2010/12/31. Member
• Paved Widgets
  28 Sep 2018 — ABU] 26-jan-2005 - Paved Widgets 1.0 [ABU] 13-feb-2006 - Paved Widgets 1.1 - This page contents and live-links updated. [ABU] 20-feb-2012 - Paved Widgets 1.2 - This
• PBKDF2
  26 Mar 2018 — dk ""] 0 [incr dklen -1]] H* r # return $r return [string range [join $dk ""] 0 [incr dklen -1]] } proc ::pbkdf2::debin {vat} { binary scan $vat Iu* rl return [expr {([lindex $rl 0
• PCOM one-to-one instant messaging and file transfer
  02 Sep 2015 — forceclose {{max 30} {from 0} {type sock}} { log "forced closed: " for {set i 0} {$i <30} {incr i} { set name "$type[expr $from + $i]" if {[catch "close $name"] == 0} { log " $name" } } log
• PCX2GIF
  02 Jul 2007 — set p2c(0) \#000000;set p2c(1) \#FFFFFF} 2 - 4 { if {$pcx(bitsperpixel) == 2} { set bytes 12 } else { set bytes 48 } binary scan $pcx(palette) c$bytes l set i 0 foreach
• PDEs and the Tensor package
  03 Apr 2009 — noCells+2}] set zero [expr {$noCells/2}] solution = scalar 0.0 solution section $zero = scalar $value work = scalar 0.0 deriv = scalar 0.0 } # nextTime -- # Compute the solution for the next time
• Pdf canvas
  03 Jul 2011 — as a [PDF] file. Version: 0.1 (in development) Documentation: http://sarnold.free.fr/spip/spip.php?article49 Requirements: Tcl/Tk 8.4, Snit 1.1, pdf4tcl 0.2 Date: 2007/09
• pdflib
  03 Jul 2011 — There is a free version with a subset of the full package.) Currently at version 7.0.3 . Updated: 03/2009 Contact: See web site === ---- See also [pdf4tcl]. <<categories>> Package | Printing | PDF
• pdict: Pretty print a dict
  28 Sep 2018 — e -> 'r' # k -> 'o' # % pdict d # dict d # a -> # ... proc pdict { d {i 0} {p " "} {s " -> "} } { set fRepExist [expr {0 < [llength\ [info commands tcl::unsupported::representation]]}] if { (![string is list $d] || [llength
• Penney numerals
  29 Apr 2018 — 1+''i'' ) and keep them in the list, ''powers'' ====== set y [list 1 0] set powers {} for { set i 0 } { $i < 32 } { incr i } { lappend powers $y foreach { a b } $y break
• Penpad
  10 Apr 2014 — ABU] 8-oct-2006 - Penpad Widget 1.0 [ABU] 11-oct-2006 - Just some small corrections (sample code). [ABU] 2-nov-2006 - Penpad Widget 1.1 (see below for details). [ABU] 8
• People and community
  25 Jun 2010 — and able to make fixes, accounting for side effects and consequences. See http://tip.tcl.tk/0 for some details. vanilla tcl user: nothing needed for this role; in fact, many users
• Percent Substitution
  05 Mar 2018 — length $text] > 0 } { set char [string index $text 0] if { ![string compare $substChar $char] } { set text [string range $text 1 end] if { [string length $text] } { set whichChar [string index $text 0] if
• Perfect Aqua Look
  10 Aug 2009 — 200 -highlightthickness 0] .t configure -background systemTransparent # the drop shadow only seems to appear when you click on another window then back at the moment .t create oval 0 0 150 150
• Performance difference tcl 8.5 vs 8.6
  19 Dec 2016 — BAILOUT global MAX_ITERATIONS set cr [expr {$y - 0.5}] set ci $x set zi 0.0 set zr 0.0 set i 0 while {1} { incr i set temp [expr {$zr
• Performance of string reversing algorithms
  09 May 2012 — str 0]" } elseif { $length % 2 == 0 } { set half [expr {$length/2}] set halfp1 [expr {$length/2+1}] return "[rev_recursive [string range $str $halfp1 end]][rev_recursive [string range $str 0 $half
• Periodic decimal fractions
  09 Jun 2012 — 7 = 0.p142857 {1 3 2 6 4 5} 2/7 = 0.p285714 {2 6 4 5 1 3} 3/7 = 0.p428571 {3 2 6 4 5 1} 4/7 = 0
• Perl
  02 May 2016 — set s $::_ } elseif {[llength $args] == 1} { set fd stdout; set s [lindex $args 0] } else { set fd [lindex $args 0] set s [join [lrange $args 1 end]] } puts $fd $s } ;# dkf while
• Perl-like command line options
  21 Aug 2007 — hello world"' and an implementation of '''wc''' tcl.tcl -begin 'set l [set w [set c 0]]' -end 'puts [join [list $l $w $c] \t]' -a -n -e 'incr l; incr w
• Perplexing issue with Tcl DDE
  09 Feb 2014 — DdeCreateStringHandle(ddeInstance, app, 0); ddeTopic = DdeCreateStringHandle(ddeInstance, top, 0); ddeConv = DdeConnect(ddeInstance, ddeService, ddeTopic, NULL); DdeFreeStringHandle(ddeInstance, ddeService); DdeFreeStringHandle(ddeInstance, ddeTopic); ddeItem = DdeCreateStringHandle(ddeInstance, item, 0); ddeData = DdeClientTransaction(NULL, 0, ddeConv, ddeItem
• Persistent arrays
  19 Sep 2018 — array {} while 1 { set kvp [lindex [$cur get -next] 0] if {$kvp == {}} {break} puts -nonewline [lindex $kvp 0].. set tmp_array([lindex $kvp 0]) [lindex $kvp 1] } $cur close if {$cmd == "names
• Persistent incr-Tcl objects
  02 May 2008 — so this specialization must take no further # action and should return 0 to make any further specialization # do likewise. return 0 } } Prior to saving the state of a hierarchy, call DeepCopy::init
• persistent itcl
  21 Feb 2007 — Version 1.0 of the itcl persistence stuff I wrote is here: http://sourceforge.net/projects/libtclpq/ [CMcC] ---- Persistent itcl This source package contains three programs: Persist.tcl which persists the instance
• PersistentCache
  21 Sep 2018 — a [TclOO] class. ** Code ** ====== package require sqlite3 package require TclOO namespace eval percache { variable version 0.3.0 } oo::class create percache::PersistentCache { variable _db variable _exp variable _table variable _keep # $db
• Personalausweis
  09 Feb 2014 — rand() * [llength $behoerdenkennzahlen])}] } proc laufendeNr {} { format %05d [expr {int(rand() * 100000)}] } proc pruefZiffer n { set sum 0 foreach {a b c} [split $n ""] { incr sum [expr {$a * 7}] if {$b ne ""} then
• Petri Nets
  22 Dec 2015 — in the Specification and Description Language (SDL) of ITU-T (also part of the upcoming UML2.0), as Finite Automata, in a simple parallel programming language or in a CCS-like process
• pgsql
  06 Sep 2013 — pgsql''' was allegedly an enhanced interface library to [PostgreSQL] 6.0 backend. Derived from Postgresql's [Pgtcl%|%libpgtcl]. Intended to be used by NeoWebScript, but should be generally useful. Provides additional features
• phasemachines
  30 Aug 2012 — inphase2:$str # puts helu # after 1000 # phase_go 0 bar [expr $num + 1] # } # #test hrm 0 #vwait done # # #------------------------------------------------------------------------------ namespace eval ::phasemachine { set _id 0 } proc ::phasemachine::fixvar { v } { regsub {([^(]*)\(.*\)} $v {\1} var
• pheap
  15 Aug 2012 — b] expr {($x<0)?1:($x>0)?-1:0} } # ************************************************************************ proc pheap::cmp-userdef-decr {cmp a b} { set x [{*}$cmp $a $b] expr {($x<0)?1:($x>0)?-1:0} } # ************************************************************************ proc pheap
• Phoenix
  26 Oct 2013 — uwinnipeg.ca/localfiles/infofiles/phoenix.html website (historical): http://http.bsd.uchicago.edu/%7El-newberg/phoenix-0.1.8.html ??? contact: l e e n at b i o - 3 dot b
• Phone book example using Metakit
  21 Nov 2017 — itens [.tv item [.tv selection] -values] foreach i [mk::select db.phonebook -exact Name [lindex $itens 0]] { #tk_messageBox -message $i mk::row delete db.phonebook!$i } .tv delete [.tv selection] } } # proc
• Photo Crop
  22 Apr 2017 — sw} { .c create rect 0 0 0 0 -fill black -width 0 -tag [list thumb thumb_$corner] .c create rect 0 0 0 0 -fill red -width 0 -tag [list thumb2 thumb2
• Photo format - HPL (Fitzhugh)
  23 Aug 2010 — packages-7.6/devel/graphics/hpl-1.0.tar.gz |& &|Description|Two extensions to add [TIFF] and [PNM] file format handlers to the Tk 4.0 image photo type.|& &|Updated|10/1998
• Photo Gradients
  28 Jan 2014 — to 0 $i 600 [expr {$i + 1}] } for {set i 1} {$i < 256} {incr i} { set col [format "FF%2.2XFF" $i] set yi [expr {$i + 256}] $im put "#$col" -to 0
• photo image equality in Critcl
  23 Jul 2011 — return 0; if (b1.width != b2.width) return 0; rowsize = b1.width * b1.pixelSize; for(row = 0; row < b1.height; row++) { off1 = b1.pitch * row; off2 = b2.pitch * row; if (0 != memcmp
• Photo images
  22 Apr 2017 — incr Tk] Photo Images'''| |Where:| ftp://ftp.uniovi.es/pub/extras/tcl/ | |Description:| New [itcl] 2.0 command to manipulate [photo] [image]s. Includes such things as line, rectangle, circle, quantize, put
• Photo reflection
  19 Sep 2012 — set bg$color])/256))}] if {[set $color] > 255} {set $color 255} if {[set $color] < 0} {set $color 0} } lappend rowdata [format #%02x%02x%02x $red $green $blue] } lappend data2 $rowdata set alpha
• Photo Sorter
  07 Jun 2011 — jpg" \ "to_sort/*/*/*/*/*.avi" \ "to_sort/*/*/*/*/*.jpeg" \ "to_sort/*/*/*/*/*.3gp" \ ] # utility vars set filecount 0 set newdircount 0 #loo foreach myfile $file_list { puts $myfile puts [file stat $myfile ctime] set file
• PhotoAlbum -A Web Gallery Creation Tool
  12 Jul 2011 — border=\"0\" cellpadding=\"0\" cellspacing=\"0\">" puts $fp "<tbody>" puts $fp "<tr>" set col 0 # create thumbnails foreach i $files { puts "$i"; update # delete any old thumbnails if {[string range $i 0
• Photographic Picture Frame in CSS
  30 May 2018 — bind .c <Leave> {.c itemconfigure crop -width 1} .c itemconfigure crop -width 5 lassign {0 0 0 0} pointerx pointery dx dy proc basicBinding {{canvas .c}} { global width height bind $canvas <1
• Phototools - Interactive Editing Of JPG-Comments
  28 Sep 2018 — only). '''Be warned - use it at your own risk'''!!! Currently (as of April 2014) at version '''0.65'''. For a history, download the program and call it with the -doc switch or
• Phototools - Interactive Editing Of JPG-Comments - Old Version
  22 Apr 2017 — pBuf(0,currPic) > 1} { incr pBuf(0,currPic) -1 } else { set pBuf(0,currPic) $pBuf(0,numPics) } showPic } proc nextPic {{cloneComment 0}} { global pBuf savePicInfo if {$pBuf(0,currPic) < $pBuf(0,numPics
• PHP
  18 Dec 2013 — bgcolor="white"> <?php function print_sequence ($start, $stop, $increment) { if ($start > $stop) { return(FALSE); } elseif ($increment <= 0) { return(FALSE); } else { for ($i = $start; $i < $stop; $i = $i + $increment) { print "$i "; } } return(TRUE
• PHP under Tclhttpd
  07 Jun 2012 — SockClose set data(header) 0 ;# Have not read header yet set data(headerlist) {} ;# list of read headers set data(headercode) "200 data follows" ;# normal return fconfigure $fd -blocking 0 # Set up a
• PhysicsPlayground
  31 Jan 2009 — 50.0 set vec_x 0.0 ; set vec_y 0.0 set timediv 50.0 array set input { joy_sz 64 target null dragging 0 dx 0.0 dy 0.0
• pi
  04 Nov 2017 — e 0 for {set b 0} {$b <= 8400} {incr b} {set f($b) 2000} for {set c 8400} {$c > 0} {incr c -14} { set d 0 for {set b $c} {$b > 0
• picoirc
  31 Aug 2015 — A Tcl [IRC] related program that started on the [IRC] page, developed into [picoIRC 0.2] (see also [PicoIRC 0.2 explained]) and then into [picoIRC 0.3]. ---- !!!!!! %| [Category Internet] |% !!!!!!
• Picol
  22 Apr 2018 — 0.3.4, [dbohdan]'s fork) | | | http://wiki.tcl.tk/_repo/wiki_images/picol0-1-22.zip (version 0.1.22) | | Description | A tiny Tcl interpreter. | | Updated | 2018-04-21 (version 0
• pidigits benchmark
  06 Aug 2011 — global pidigit set pidigit(z) [list 1 0 0 1] set pidigit(k) 0 return } proc generatePidigits {n} { set pi_digits [newPidigit] for {set i 0} {$i < $n} {incr i} {append pi
• Pie menu
  08 Sep 2018 — 0 is always the central one array set angles { 1 {} 2 {0 359.999} 3 {180 180 0 180} 4 {90 120 210 120 330 120} 5 {90 90 180 90 0
• Piece wise Profits and eTCL Slot Calculator Demo Example
  09 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• piemenu
  29 May 2018 — net/Studios/Hackers/Hopkins/Don/piemenus/%|%piemenu for Tk] ,by Don Hopkins: ** Description ** Current version : Beta, '''0.3''', home [http://piemenu.sourceforge.net/index.html], download [http://sourceforge.net/project/showfiles.php
• Pig Latin
  10 Jul 2016 — width 40 -height 20 -bd 0 -highlightthickness 0 .plain2pig create line 5 10 35 10 -tag z -arrow last -width 5 grid .lplain x .lpig -row 0 grid .tplain x .tpig -sticky
• Pils
  30 Aug 2012 — llength $val] == 2 && [lindex $val 0 0] == 1 && [regexp ^(set|quote)$ [lindex $val 0 1]]} then { array set specialChar { quote \' set \$ } set result $specialChar([lindex $val 0 1]) append result [unParse [lindex
• Pils -- concept
  30 Aug 2012 — a macro define as [Pils] recognises the type of its data. A list containing atom x == {0 {{1 x}}} does not equal the atom x == {1 x} itself. (That's the difference
• Pingpong
  21 Nov 2012 — y)}] .c move $ppdata(ball) $dx $dy set angle [expr {3.1415926*(1.0+(0.5-rand())/2.0)}] set ppdata(ball_x) [expr {$ppdata(ball_x)+$dx}] set ppdata(ball_y
• Pinyin, ASCII to Unicode Converter
  03 Apr 2014 — The following mapping should be used: ====== #--------------- #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" #--------------- set pinyin_map { a1 ā a2 á a3 ǎ a4 à a5 a ai1 āi
• pipe
  20 Aug 2013 — non-blocking. package require Tclx pipe rpipe wpipe; fconfigure $rpipe -blocking 0 puts $wpipe "test" flush $wpipe set buff "" set done 0 while { !$done } { set appstr [ read $rpipe 1000 ] append buff $appstr
• Pipe servers in C from Tcl
  12 Feb 2010 — 0]=="close"} { close @fp rename [lindex [info level 0] 0] {} ;# suicide } set line } $fp ibody proc $instname {args} $ibody set line } $nname body proc $name {instname args} $body set name } if 0
• pipeline
  14 Jun 2014 — Is there any ability to write to or read from child process file descriptors other than 0, 1, and 2 (stdin, stdout, and stderr, respectively)? Demultiplexing stdout and stderr can be done
• Pipeline programming
  08 Nov 2013 — if {$n < 0} { set n [llength $args]; lappend args | } set a [lreplace $args $n end] if {[llength $a]} { set cmd [eval [linsert $a 0 $cmd]] } set args [lreplace $args 0 $n] } return
• Pipes vs Expect
  25 Jun 2012 — s) [pid $pipe] started... please wait..." fconfigure $pipe -buffering line -blocking 0 fileevent $pipe readable [list gotpipereadable $pipe] set done 0 vwait done puts "done!" } proc gotpipereadable {pipe} { global done set got
• piTcl
  07 Sep 2013 — PiTcl/0.5/piTcl0.5.tar.gz%|%alternate]): ** Documentation ** [http://www.oche.de/~akupries/soft/pitcl/download/piTcl0.5.README%|%README] ([ftp://ftp.tcl.tk/pub/tcl/all/p/PiTcl/0.5
• PiX
  04 Feb 2018 — 0/PiX-1.0-win32.exe/download] '''PiX 1.0 for Win 32''' * [https://sourceforge.net/projects/irrational-numbers/files/PiX-1.0/PiX-1.0-win64.exe/download] '''PiX 1.0
• Pixane
  08 Feb 2018 — piximg $file]] console eval [list .console image create end -image $im] } [RS] has tested that pixane 0.3 as came with [eTcl] 1.0pl6, on [PocketPC], works well with the following formats
• pixmix
  18 Oct 2017 — 0. When I try to run the demos there is an error loading Ffidl: couldn't load library "D:/Tcl8.6/lib/pixmix-1.0/lib/WinGdi-1.0/lib/ffidl-0
• pkgIndex.tcl
  13 Jul 2015 — file, so it is doing: package ifneeded foo 1.0 "load [file join $dir foo.dll]" instead of: package ifneeded foo 1.0 "load [file join [list $dir] foo.dll]" (or one
• PkgIndexUtil.tcl - determining a platform name
  04 Nov 2012 — oslibextension] where # required in the load statements. proc platform {args} { if {[llength $args] > 0} { set cmd [lindex $args 0] set arg [lindex $args 1] switch -- $cmd { machine { global tcl_platform if {$tcl
• place
  30 Apr 2016 — m.fd -relx 0 -rely 0 -relwidth 1.0 -relheight 1.0 frame .m.fo -background LightGreen place .m.fo -relx 0 -rely 0 -relwidth 1.0 -relheight 1.0 frame .m
• Planet Mass Calculator and eTCL Slot Calculator Demo Example, numerical analysis
  09 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• Plasma Surface Interaction Codes
  04 Jul 2011 — of FORTRAN 77 routines for generating physical and chemical sputtering, and radiation enhanced sublimation. Currently at version 0.1 . Updated: 09/2001 Contact: mailto:manoj@ipr.res.in <<categories>> Package | Chemistry | Science
• platform
  06 Apr 2016 — contains functions such as: : ::[platform::identify] : ::[platform::generic] : ::[platform::patterns] [HE] tried to use platform 1.0.2 with TCL/TK 8.4. It works (at least with 8.4.7 on
• Play RTTL ringtone as beeps
  17 Mar 2009 — C0 16.35 C#0 17.32 Db0 17.32 D0 18.35 D#0 19.45 Eb0 19.45 E0 20.60 F0 21.83 F#0 23.12 Gb0 23
• Play WAV and MP3 on Win32 with Odyce
  12 Dec 2008 — sndopts |= SND_NOSTOP; } Tcl_ResetResult(interp); rc=TCL_OK; if (filename==NULL || filename[0]==0 || (filename[0]=='-' && filename[1]==0)) { PlaySoundW(NULL,NULL,sndopts); } else { nativename = Tcl_WinUtfToTChar(filename, -1, &ds); if
• playing BLT
  22 Dec 2010 — 0.31 0.3 5 0.001 0.1 1,1 b ::b -1.01 1.0 5 0.002 0.5 1,2 c ::c -4.01 4.0 4 0
• Playing Bourne shell
  30 Sep 2012 — 90 0 0 11 3 86 701 0 0 0 1.90 0 0 2 2 96 672 1 0 0 1.90 0 0 2 0 97 815 0 0 0
• Playing C
  16 Oct 2013 — uargs , uargs if [regexp {^\((.*)\)$} $uargs -> in] {set uargs [split $in ,]} foreach $args $uargs break set n 0 foreach i $args { if [uplevel 2 info exists [list [set $i]]] { uplevel set $i [uplevel
• Playing C4.5
  23 Sep 2012 — foreach partition { {{1 0 0 0 1} {1 1 1 1} {0 0 1 1 1}} {{1 1 1 0 0 0} {1 1 1 1 1 1 0 0}} } { puts [list
• Playing CGI
  23 May 2014 — sock "HTTP/1.0 200 OK" puts $sock "Content-Type: text/html\n" puts $sock $res close $sock #cleanupChannel $channel } } elseif {[file readable $name]} { puts $sock "HTTP/1.0 200 OK" if
• playing channels with coroutines
  15 Nov 2009 — alive out { if {[llength $VL_buf] == $VL_max} { set $VL_var {} } set args [lindex $VL_buf 0] set VL_buf [lrange $VL_buf 1 end] puts ($VL_buf) } ::CO_lchan pM_ini
• Playing CLIPS
  01 Jul 2011 — end 0 while { ! $end } { set end 1 ;# If no rule has been invoked, then we quit for { set i 0 } { $i < $ruleIndex } { incr i } { if { [CanRuleBeActive $i] } { InvokeRule $i set end 0
• Playing Haskell
  30 Nov 2015 — expressions. proc optimize {expr} { match $expr { {Plus {Const 0} $x} { return $x } {Mul {Const 1} $x} { return $x } {Mul {Const 0} $x} { return [Const 0]} $etc } } ====== this is somewhat wordy comparing to
• Playing HTTP
  06 Apr 2013 — i -foreground $i} focus .e raise . proc go {w url} { set token [http::geturl $url] upvar #0 $token arr $w insert end \n$arr(url) blue if [info exists arr(error)] {$w
• Playing Joy
  21 Apr 2017 — see [Custom curry]) into an [interp] alias: interp alias {} factorial {} primrec 1 * interp alias {} sumTo {} primrec 0 + which approaches the original ''Joy'' style: DEFINE factorial == [1] [*] primrec . Brackets are used in Joy
• Playing LISP
  30 Jun 2006 — with default recursion limit, fail on lists longer than 231 elements: proc car L {lindex $L 0} proc cdr L {lrange $L 1 end} proc lrevert L {if [llength $L] {concat [lrevert
• Playing machine translation
  22 Apr 2010 — 0} {$i<=[llength $list]-$lsub} {incr i} { set to [expr {$i+$lsub-1}] if {[lrange $list $i $to]==$sublist} { return [list $i $to] } } } proc atomar? list {expr {$list eq [lindex $list 0
• Playing newLISP
  26 Dec 2015 — body ${procns}::$name]] while {[llength $lines]} { set cmd [lindex $lines 0] uplevel 1 $cmd set lines [lreplace $lines[set lines {}] 0 0] } } proc stepeval {proc args} { set fullname [uplevel [list namespace which
• Playing OO
  09 Feb 2014 — eval class {variable count 0 names ""} proc class {{name ""} {superclasses ""} args} { upvar #0 ::class::names names if {$name == ""} {return $names} ;# another introspection helper if {[lsearch $names $name]<0} {lappend names $name} # -- maybe
• Playing predicate logic
  06 Jul 2011 — or 0), so you can try mortal Socrates ;# => 1 mortal Diogenes ;# 0 - binary logic: all that's not true is false The generated procedures look like this: proc human {0} {expr {$0
• Playing Prolog
  08 Mar 2012 — i [lsearch $d_a $adj]]>=0 && [regexp {^[A-Z_]} $dir]} { uplevel set $dir [lindex $d_a [incr i -1]] } elseif {[set j [lsearch $d_a $dir]]>=0 && [regexp {^[A-Z_]} $adj]} { uplevel
• Playing SAX
  19 Mar 2016 — argv] {puts "usage: $argv0 file..."} foreach file $argv { foreach i {nEl nAtt nChar nPi} {set $i 0} ;# reset counters set p [expat -elementstartcommand el \ -characterdatacommand ch \ -processinginstructioncommand pi ] if [catch {$p parsefile
• Playing Scheme
  19 Sep 2016 — Number {x 0}} { ::closure x {args} { if {[llength $args] == 0} { set x } else { set args [lassign $args action] switch -exact $action { + { incr x [lindex $args 0] } - { incr x -[lindex $args 0] } * { set
• Playing SHARK
  29 Jun 2014 — x %y $t] incr x 28 } } } wm geometry . 240x280+0+0 bind . <Up> {exec wish $argv0 &; exit} bind . <F1> {console show} if 0 { ====== After downloading this page via GPRS, the Shark runs
• Playing Simulink
  27 Jul 2011 — uout 0.0 multiply -0.1 uout uscaled add I uscaled U output I output uout preparePlot 0.0 10.0 -2.0 2.0 loop 0.0 10.0 0.05
• Playing SIR
  13 Apr 2014 — if 0 {[Richard Suchenwirth] 2004-03-08 - In the "software museum", today I play with the Semantic Information Retriever SIR (Raphael, 1964), a software that takes natural-language sentences (a very restricted
• Playing Smalltalk
  19 Sep 2013 — args} { if {[string is integer [lindex $args 0]]} { return [expr $args] } if {[string index [lindex $args 0] 0] == "@"} { set astring [string range [lindex $args 0] 1 end] set numArgs [llength $args] for
• Playing Strong/Weak References
  01 Sep 2015 — 0] [lrange $cleanup 1 end]] proc ${objNs}::owc_obj_clean_cmd {} $body } return [swr::strong $objNs] } # procedure context command proc ::owc::ocontext {args} { clean uplevel upvar this this if {[llength $args] != 0
• Playing TRAC
  01 Oct 2013 — I added some trace support: ====== if ![info exists Trace] {set Trace 0} proc TN {} {set ::Trace 1} proc TF {} {set ::Trace 0} proc trac form { while 1 { set new [subst $form] if
• Playing VFS
  01 Sep 2012 — dir)] {set arr($dir) {}} if {$dir ne "/"} {mkvfs arr $dir} if {[lsearch -exact $arr($dir) $item]<0} { lappend arr($dir) $item } } } ====== Test: set data { /foo/f1/g1 /foo/f1/g2 /foo/f2
• Playing VHDL
  22 Apr 2011 — set signalWait($fullName) {} set signalValue($fullName) {} upvar \#0 $fullName var if {[llength $args] > 0} { set var [lindex $args 0] set signalValue($fullName) [lindex $args 0] } trace add variable var write [list vhdl
• Playing with bar charts
  06 Jul 2009 — Frame \ {world_matrix canvas_matrix} \ { 0 0 0 1 100 0 0 1 } \ { 0 0 0 1 0 100 0 1 } \ { 0 0 0 1 0 0 100 1 } proc draw_frame
• Playing with bits
  17 Jan 2016 — variable $i if {[lindex $result end-1] == 0} { set $i $i } else {set $i 0} } compute } proc compute {} { variable positionalValues variable result set res 0 foreach i $positionalValues { variable $i incr res
• Playing with Bwise and a ethernet connected FPGA
  24 Jan 2011 — 10} {incr i} {append in "[uplevel #0 set FPGA.i$i] "} set r [exec ./relay.exe << $in] for {set i 1} {$i <= 10} {incr i} {uplevel #0 set FPGA.o$i [lindex
• Playing with circuits
  27 Oct 2008 — x 6] } Point ${name}0 $w $x0 $y Point ${name}1 $w $x1 [- $y 5] Point ${name}2 $w $x1 [+ $y 5] Wire W$name .c ${name}0 ${name}1 set ::g
• Playing with Denavit and Hartenberg coordinates
  27 Nov 2004 — 0 0 0 1 0 0 0 1}} interp alias {} draw_world_frame {} \ uwp_wireframe_draw_reference_frame World_Frame \ { world canvas } {yes {50 0 0 0 0 50 0 0 0
• Playing with homogeneous coordinates
  03 Sep 2005 — 0 0 0 1 0 0 0 1}} interp alias {} draw_world_frame {} \ uwp_wireframe_draw_reference_frame World_Frame \ { world canvas } {yes {50 0 0 0 0 50 0 0 0
• Playing with matches
  17 Jul 2007 — if 0 {[Richard Suchenwirth] 2005-05-07 - Matches (small wooden sticks to light fire) are popular for playing games, too (Martin Gardner devotes chapter 2 in ''Mathematical Circus'' to them, for example
• Playing with obfuscation
  10 Jul 2016 — applied some manual obfuscation, with variable names 0, 1, O, l and bad indentation for this "user" version: ====== proc < 1\ 0\ {l\ ""} {foreach O [split $0 $l] { append l [format %c [expr
• Playing with planes in 3D
  06 Dec 2017 — 0 0 0 1 0 0 0 1}} interp alias {} draw_world_frame {} \ uwp_wireframe_draw_reference_frame World_Frame \ { world canvas } {yes {50 0 0 0 0 50 0 0 0
• Playing with rationals
  09 Jun 2012 — if d==1: ====== proc rat {n d} { if {!$d} {error "denominator can't be 0"} if {$d<0} {set n [- $n]; set d [- $d]} set g [gcd $n $d] set n [/ $n
• Playing with recursion
  25 Mar 2014 — n} {[= $n 0]? $m: [- [pred $m] [pred $n]]} test {- 12 7} 5 {- 1 1} 0 {- 0 0} 0 #-- the inequality predicate <= func <= {m n} {[= $m 0]? 1: [= $n 0]? 0: [<= [pred $m
• Playing with sound effects
  07 Nov 2012 — varName {dt 0} {damp 1.0}} { upvar #0 $varName sound foreach {filter freq amplitude} $sound break set a $amplitude set t 0 ;# abstract integer units if {$damp <= 0} {set damp 0.1
• Playing with Spirals in 3D
  21 Apr 2012 — 0 0 0 1 0 0 0 1}} interp alias {} draw_world_frame {} \ uwp_wireframe_draw_reference_frame World_Frame \ { world canvas } {yes {50 0 0 0 0 50 0 0 0
• Playing with TclOO
  01 Nov 2016 — 1}} { set delay $interval set tBase [clock microseconds] set t0 0 set e { 0.0 } set k0 0.0 set sum 0.0 set aid [after $delay [namespace code {my Step}]] } destructor
• Playing with Windows file associations
  20 Jan 2014 — if {$ret != 0} { return -code $ret -errorcode $errorCode \ "error in unknown while checking if \"$name\" is a unique command abbreviation: $msg" } if {[llength $cmds] == 1} { return [uplevel [lreplace $args 0 0 $cmds
• Playing with with
  13 Jan 2014 — 1 [expr {200+[lindex $list 1]}] } lappend result "[lindex $list 0],[lindex $list 1]" } chan seek $handle 0 chan truncate $handle 0 puts [join $result \n] chan puts -nonewline $handle [join $result
• Playing XPath with JSON
  28 Apr 2016 — llength $dta]%2 == 0 } { if { [::json:listof? $dta integer] || [::json:listof? $dta double] } { return 0 } foreach {k v} $dta { if { ![string is wordchar $k] } { return 0 } } return 1 } return 0 } proc ::json
• plist
  24 Jan 2011 — 1 $varname var set len [string length [expr {[llength $var]-1}]] incr len 2 set i 0 foreach val $var { puts $channel [format "%s%-*s = %s" \ $varname $len \[$i\] [lindex $var $i
• Plotchart and HTML
  19 Feb 2018 — anchor $value } "-fill" { set fill $value } } } # Ignore the test string - "M" drawn at (0,0) if { $xt == 0 && $yt == 0 && $text eq "M" } { return } # Accept any other string lassign [CorrectForAnchor $xt $yt
• Plotchart gallery
  14 Mar 2014 — set s [::Plotchart::createXYPlot .c {0.0 100.0 10.0} {0.0 100.0 20.0}] set r [::Plotchart::createRightAxis .c {0.0 0.1 0.01}] # # Add the data to
• Plotting a simple graph
  22 Apr 2016 — expr {$xb+0.5*$dx}] set yc [expr {$yb+0.5*$dy}] } else { set xc [expr {$xb+0.5*$dx-0.1*$dy}] set yc [expr {$yb+0.5*$dy+0.1
• Plotting data
  03 Jan 2016 — ac.at/pub/src/X11/wafe/1.0.19/ ftp://ftp.wu-wien.ac.at/pub/src/X11/wafe/1.0.19/wafe-1.0.19.tar.gz ftp://ftp.wu-wien
• Plotting Tcl Benchmarks
  04 May 2010 — m [menu $base.menu.[string tolower $m] -tearoff 0] $base.menu add cascade -label $m -underline 0 -menu [set $m] } $File add command -underline 0 -label "Open..." -command myAppFileOpen $File add separator
• Plplot
  23 Jun 2015 — lyon1.fr/%7Ethiebaut/TiM/TiM.html ftp://ftp-obs.univ-lyon1.fr/pub/thiebaut/TiM/tim4.0.tar.gz Description: TiM is a Tcl extension designed to process 2 dimensional arrays of
• plplotter
  08 Sep 2012 — plplotter5.1.1.zip | | Description:| A unified Itk extended widget for Plplot.| ||Currently at version 0.0 .| | Updated:| 03/2003| | Contact:| mailto:vince@santafe.edu | ---- See also [incr tcl], [incr tk]. <<categories
• pluginmgr
  21 Nov 2009 — example::plugin::slang 0.1 ~/.example/plugin/pkgIndex.tcl package ifneeded example::plugin::simple 0.1 [list source [file join $dir simple.tcl]] package ifneeded example::plugin::slang 0.1 [list source
• Plume
  05 Jun 2014 — apps/plume-0.6.2/plume-0.6.2.tar.gz http://www.glinx.com/%7Ehclsmith/tcltk/plume/ ??? Description: Tcl/Tk WorldWideWeb (WWW) browser. Supports HTML v1.0 and v2.0, along
• Plus Patches
  02 Mar 2005 — packages-8.0/devel/ ftp://ftp.procplace.com/pub/tcl/sorted/packages-8.0/devel/tcl8.3.1plus.patch.gz ftp://ftp.procplace.com/pub/tcl/sorted/packages-8.0/devel/tcl8
• PMI
  19 Oct 2011 — at [Stu] Man page: NAME pmi - Package Make Index SYNOPSIS package require Tcl package require pmi 0.1 namespace import ::pmi::* pmi dir DESCRIPTION Simple replacement for Tcl's [pkg_mkIndex] command
• Pmw
  29 Jan 2007 — sf.net/ http://www.dscpl.com.au/pmw/ ftp://ftp.dscpl.com.au/pub/pmw/Pmw.0.8.tar.gz http://www.dejanews.com/getdoc.xp?AN=423519318 Description: A megawidget framework
• png
  10 Sep 2012 — Opacity: ( 0, 0, 0,255) #000000FF Colors: 339 2560: ( 0, 0, 0,255) none 1: (129, 75, 75, 0) #814B4B00 1: (133, 79, 79, 0) #854F4F00 1: (137, 82, 82, 0) #89525200
• PNG Decoder
  13 Oct 2018 — a scanline for color type 0 -- grayscale # proc PngDecoder::_DecodeRow_0 {token filter raw_scanline} { variable $token upvar 0 $token state set img_row {} for {set col 0} {$col < $state(width)} {incr
• PNG Dump
  17 Feb 2015 — finally { close $fh } ShowLine 1 "" if {$::verbose == 0} { set msg "$fname: $IHDR(width)x$IHDR(height) " append msg "$IHDR(color)/$IHDR(depth)/$IHDR(interlace)" ShowLine 0 $msg } } proc ERROR {msg} { puts stderr
• Pocket Soccer
  01 Sep 2013 — set n$g1 0 .c create text 15 120 -tag n$g1 trace var n$g1 w ".c itemconfig n$g1 -text \[set ::n$g1\];#" set n$g1 0 .c create rect
• Pocket Space Invaders
  27 Jun 2007 — ngame if { $cafter >= 0 } {after cancel $cafter} variable cstat 0 variable clvl 0 variable cscore 0 variable cbln 0 $ngame configure -text Pause -command ::si::pause ::si::init_cv 0 ::si::loop
• PocketPC
  25 Nov 2012 — look better on a PocketPC wm geometry . 240x268+0+1 . config -menu [menu .m] .m add casc -label Game -menu [menu .m.game -tearoff 0] .m.game add comm -label Undo -comm
• PocketPC socket/fileevent strangeness
  10 Oct 2011 — BE HERE \ exec tclsh "$0" ${1+"$@"} package require Tk proc telnet {{server localhost} {port 23}} { global sock set sock [socket $server $port] fconfigure $sock -buffering none -blocking 0 fileevent $sock readable [list
• PocketPC TapAndHold
  14 Oct 2006 — tcl: ---- namespace eval ::tapandhold { variable ballcount 0 variable afterid "" variable nrballs 8 variable balldistance 20 variable ballsize 10 variable PI [expr {atan(1.0) * 4.0}] proc showball {command w m x
• POE
  26 Jul 2011 — a related problem (hey, it's perl), see Stem http://search.cpan.org/author/URI/stem-0.10/ Less mature, not as much mindshare, and geared slightly more towards network-transparent message
• Poet
  18 Jan 2013 — to Mykhaylo Sorochan for finding several bugs. ---- Version 2.1.0 released. This release has been updated for Tcl/Tk 8.5.0, including the assimilation of Ttk widgets. Poet has now
• Pointer clean-up!
  07 Sep 2012 — vname ] > 1 } { continue } switch -regexp -- $vname { {^_[0-9a-f]+_Frame_p$} { set seqpt "destructFrame($vname):" if { [ catch { uplevel $level destructFrame $vname } err ] } { lappend msg "$seqpt $err" } } {^_[0-9a-f]+_Element_p$} { set
• Poker Probability and Calculator Demo Example
  05 Mar 2017 — 0.3**1 | 0.441 | -90|-39.89 |& &|3 choose 2 | 3. | 0.7**1 | 0.3**2 | 0.22 | 50|11.0|& &|3 choose 3 | 1.0 | 0.7**0 | 0
• Polling web images with Tk
  12 Jul 2011 — variable masterurl variable afterid variable stopped set stopped 0 set refresh 0 Status "Fetching master web page." set tok [FetchUrlToken $masterurl] if {$tok != {}} { upvar \#0 $tok state array set meta $state(meta
• Polygon area
  12 Mar 2018 — list: } ====== proc polygon::area coords { expr { [llength $coords]<6? 0 : [triangle'area [lrange $coords 0 5]] + [area [lreplace $coords 2 3]] } } ====== if 0 { [KBK] 2004-07-23: Theres a shorter bit of
• Polygon clipping
  03 Oct 2017 — p2} { set p2_ {} foreach {x y} $p2 {set p2_ [linsert $p2_ 0 $x $y]} concat [lrange $p1 0 1] [lrange $p2 0 1] $p2_ $p1 } ====== That's all. On a canvas where
• Polygon intersection
  20 Jan 2013 — center coords { # returns the x y coordinates of the center set xsum 0.0 set ysum 0.0 set n 0 foreach {x y} $coords { += xsum $x += ysum $y incr n } list
• Polygon order
  08 Dec 2004 — prod1 > $prod2 } {return 0} if { $prod1 < $prod2 } {return 1} if { $dx1*$dx2 < 0 || $dy1*$dy2 < 0 } {return 1} if { $dx1*$dx1 + $dy1*$dy1 < $dx2*$dx2 + $dy2*$dy2 } {return 0} counterclockwise [lrange $polygon
• Polynoms and power series
  09 Jun 2012 — Run the program # namespace import ::polynoms::* puts "Simple parabola" polynom parabola {0.0 0.0 1.0} for { set i 0 } { $i < 10 } { incr i } { puts [parabola $i] } puts "Exponential function" proc
• poor man's progressbar
  28 Jun 2016 — 20 -bd 1 -relief groove -highlightt 0 .c create rectangle 0 0 0 20 -tags bar -fill navy proc run {percent} { .c coords bar 0 0 [expr {int($percent * 2)}] 20 } pack
• Poor Yorick
  06 Sep 2018 — indexing . Does faux-Brush `$$name{0}` mean the same as Tcl `[[set [[lindex $name 0]]]]` or Tcl `[[lindex [[set $name]] 0]]` ? Instead write `$"$name{0}"` or `$"$name"{0}` to make the intent
• pop3
  07 Oct 2017 — clock format $systemTime -format %H:%M:%S]: [lindex $mBoxStat 0] messages on the server..." ::pop3::close $mch wm title . "m - [lindex $mBoxStat 0]" set tid [after [expr 1000 * 60 * 10] checkMailBox] } } checkMailBox
• POP3 with TLS
  20 Jan 2013 — 0 retr_mode retr limit {} ssl 0} log::log debug "pop3::open | [join $args]" while {[set err [cmdline::getopt args {msex.arg retr-mode.arg ssl.arg} opt arg]]} { if {$err < 0
• pop3d
  29 Aug 2012 — peerport" fconfigure $chan -translation crlf -buffering line set userauth 0 set passauth 0 set deletes {} puts $chan +OK while {[gets $chan input] >= 0} { log "received $input" if {![regexp {^(\S+)(?: (.*))?$} $input _ command arguments
• pop3line
  29 Jul 2011 — fd "" puts $fd "# Sollen die Emails nach dem Abholen" puts $fd "# geloescht werden (1) oder nicht (0)?" puts $fd "set delete 1" close $fd puts "Created configuration file: $config ." puts "Please edit
• poPhotoUtil
  29 Nov 2010 — coef < 0.0 || $coef > 1.0} { error "bad coef \"$coef\": should be in the range 0.0, 1.0" } if {$coef < 1.e-5} { return $phImg } set coef2 [expr {$coef / 8.0
• poPhotoUtil TestSuite
  28 Nov 2010 — bind $btnName <Leave> { ui_hideToolhelp } bind $btnName <Button> { ui_hideToolhelp } } proc ui_init {title {winPos "+0+0"} } { global ui_curImgNo ui_noImgs ui_top catch {wm withdraw .} set ui_top .testWindow ui
• Population Density Rectangular City Calculator and eTCL Slot Calculator Demo Example
  07 Mar 2017 — 0 2E6 0.34 155.0 1.55E4 100.} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 64.0 32.0 10000.0 7.9E5 0.618 790. 4.8E6 6181.0
• popup
  21 Jul 2012 — Identifier: popup Version: 0.0.1 Title: popup package for Tcl/Tk. Creator: Mark G. Saye <markgsaye@gmail.com> Description: A popup widget. Rights: BSD URL: http://www.binarism.com/tk/ Available
• Popup Menus -An all in one solution for application wide popup menus.
  09 Nov 2008 — popup { set VERSION 0.1 } #define menus, works for cascades too.. set ::popup::menu(main) { {cascade -label "New" -hidemargin 0 -compound left -image im_new -command {.txt1 delete 1.0 end}} {cascade
• Popups -Using popup menus to offer variations in displayed text
  17 Dec 2011 — any pre-exising menu with the same name destroy $m # create new menus menu $m -tearoff 0 foreach i $a { $m add command -label $i -command "popup::swap $m $i" } popup::config
• port 0 networking
  07 Jan 2012 — on Windows XP as well: % set tcl_platform(platform) windows % info patchlevel 8.4.7 % fconfigure [socket -server blah 0] -sockname 0.0.0.0 0.0.0.0 4728 <<categories>> Networking
• Port Forwarding in Pure-Tcl
  23 Nov 2009 — x,*} return; } fconfigure $conn($x,out) -translation {auto lf} -blocking 0 -buffering line fconfigure $conn($x,in) -translation {auto auto} -blocking 0 -buffering line fileevent $conn($x,out) readable [list channelData $x
• Port scanning in tcl
  31 Aug 2012 — wait {varname} { while {[set $varname] > 1} { vwait $varname } } if {$::tcl_interactive} { puts "call 'scan 192.168.0 port' then examine the hosts array" } else { eval [list scan] $argv wait ::nodes parray hosts
• Portable keystate
  18 Nov 2012 — Control 0 variable Control_L 0 variable Control_R 0 variable Alt 0 variable Alt_L 0 variable Alt_R 0 variable Shift 0 variable Shift_L 0 variable Shift_R 0
• PortMon
  10 Jan 2008 — servers to be certain they are still up and talking. Uses Tcl/Tk/Bwidgets . Currently at version 0.6 . Updated: 09/2001 Contact: mailto:scfiead@hotmail.com +++ ---- !!!!!! %| [Category Windows] | [Category System Administration] |% !!!!!!
• PosiTcl
  08 Mar 2013 — is a GUI which has also been tied to Python, Perl, Scheme, ... * As of version 8.0, Tcl compiles to bytecodes on the fly * Unlike Perl, this happens not only on startup
• poSoft utilities
  26 Apr 2018 — Version 2.3.2 2018/04/26| | Contact:| See web site| See also [bitmap]. Older versions (0.3 - before switching to Tcl/Tk 8.5 and ttk widgets) run with [AndroWish] on
• Possible Grid Enhancements
  27 Jan 2012 — it occupies. If different slaves or a row/columnconfigure want to set contradicting weights (not counting 0), this is an error. ---- **Setting up slave defaults in a master** grid slavedefaults .f -padx
• post-Euclidean Tcl
  30 Mar 2010 — replaces. (E.g. "Given a line ''l'' and a point ''P'' not on ''l'', there are 0 lines through ''P'' that do not intersect ''l''".) It is sometimes possible to get something
• Postgres_pqatcl
  08 Sep 2013 — pqatcl/1.0/README.libbetcl%|%README.libbetcl]: ** Download ** [ftp://ftp.tcl.tk/pub/tcl/all/p/Postgres_pqatcl/1.0/Postgres_pqatcl-1.0.tar.gz%|%Postgres_pqatcl-1.0.tar.gz
• PostgreSQL
  22 Jan 2018 — exec [lindex $args 0] [lindex $args 1]} getrow {pg_result [lindex $args 0] -getTuple [lindex $args 1]} clear {pg_result [lindex $args 0] -clear} status {pg_result [lindex $args 0] -status} rowcount
• Posting to Google's Blogger
  27 Jun 2008 — memory used ::http::cleanup $token return $login(httpcode) } }; # end namespace ::gpost A reply like: HTTP/1.0 200 OK Server: GFE/1.3 Content-Type: text/plain SID=DQAAAGgA...7Zg8CTN LSID=DQAAAGsA
• Postits -Providing Embedded Annotation Functionality to TK Text Widgets
  29 Oct 2016 — Lock \ -command { if { [.pipopup entrycget 0 -label] == "Unlock" } { .postit.txt configure -state normal .pipopup entryconfigure 0 -label "Lock" } else { .postit.txt configure -state disabled .pipopup entryconfigure 0 -label "Unlock" } } #--- .pipopup add separator
• Postscript
  23 Sep 2015 — x -sticky news grid rowconfig . 0 -weight 1 grid columnconfig . 0 -weight 1 set im [image create photo -file [lindex $argv 0]] .c create image 0 0 -image $im -anchor nw .c
• pps
  31 May 2014 — menubar menu .menubar.help -tearoff 0 .menubar add cascade -label Help -menu .menubar.help -underline 0 .menubar.help add command -label {About Hello ...} \ -accelerator F1 -underline 0 -command showAbout # Define a procedure
• PQTcl
  08 Sep 2013 — ftp://ftp.tcl.tk/pub/tcl/all/p/PQTcl/0/PQTcl.README%|%README]: ** Download ** [ftp://ftp.tcl.tk/pub/tcl/all/p/PQTcl/0/PQTcl.tar.gz%|%PQTcl.tar.gz]: <<categories>> PostgreSQL
• practcl
  20 Feb 2018 — practcl.md%|%Practcl Markdown Documentation%|% https://www.tcl.tk/community/tcl2016/assets/talk42/practcl-paper-v1.0.1.pdf%|%Tcl'2016 paper%|% Abstract: === Practcl is a library of tools for assembling Tcl
• Practical Introduction to Upvar and Uplevel
  30 Apr 2013 — basic proc's for this "tutorial": ---- Number One:(upvar) ====== proc pass {val {bdy "puts $LOCAL"} {lvl "#0"}} { upvar $lvl $val LOCAL eval $bdy } ====== Description: A flexible proc that accepts various arguments: val
• Pragmatic use of Pernicious Popups
  25 Oct 2007 — seconds] -format %T] $msg\n" } set m [menu .m -tearoff 0] $m add command \ -label Party! \ -command [list ins "Noob Party!"] \ -underline 0 bind $noob <Button-3> [list showpopup %X %Y] proc
• predicate logic
  31 May 2014 — g. Socrates) are mapped onto objects in the domain (in this case, the person called Socrates). 0-ary predicates (e.g. Sunny) are mapped onto {True,False} (i.e., whether they are
• Preferences Widget
  01 Mar 2012 — puts "[info level 0]" set _args $args set index [lindex $_args 0] set _args [lreplace $_args 0 0] set nodeText [lindex $_args 0] set _args [lreplace $_args 0 0] # if we have
• Primary Transfer vs. the Clipboard
  19 Jul 2008 — Also, it violates the nature of the cut buffer; whenever data is copied to it, buffers 0 through 6 all cycle forward by one so that a track of the 8 most
• primeCheckFermat
  21 Feb 2013 — if {[binaryModExpo 2 $p $p] == 2} { # possible prime (or fermat liar) return 1 } else { #puts stderr "failed fermat check ..." # not possible return 0 } } ====== <<categories>> Mathematics | Arts and crafts of Tcl-Tk programming
• Primitive Directory Browser
  17 Jul 2013 — v1.0a, which does work well on Windows: [http://www.geocities.ws/thezipguy/tcl/pdb_file_0.png] It does have a menu (with added icons), a panedwindow style (which you can
• Primitive objects visualization with VTK and Tcl/Tk
  25 Aug 2018 — renWin switch $color { 0 { set rgb "0 0 1" set color 1 } 1 { set rgb "0 1 0" set color 2 } 2 { set rgb "1 0 0" set color 0 } } for {set
• Print Area Selector
  07 Jul 2011 — stipple gray25 -width 0 -tag {pBox B} $W create rect 0 0 0 0 -fill $color2 -stipple gray25 -width 0 -tag {pBox TL} $W create rect 1 0 1 0 -fill $color2
• printing
  28 Jan 2014 — puts -format ps -- $Printer [read [open file.ps]] chan puts -format txt -- $Printer [$Text get 0.0 end] chan puts -format img -- $Printer [image create photo -format window -data $win] chan close
• Printing a canvas using GhostScript
  28 Jun 2012 — moveto 0 $WIN(FRM) postscript -channel $CUR(gs) -pagey $sftx$unit -pagex $sfty$unit -rotate $rot\ -width $fwdt$unit -height $fhgt$unit -pageheight $fhgt$unit -pagewidth $fwdt$unit -x 0 -y 0
• Printing DYMO Labels with Tcl and tcom
  18 Jan 2014 — createobj DYMO.DYMOLabels] $dymo Open Address.lwt $label SetField Address "Name\nAddress\nTown" $dymo Print 1 0 ====== ---- **Using [tcom]** ====== package require tcom # The DYMO has two objects for the highlevel API # AddIn
• Printing html files under Windows with optcl
  08 Sep 2011 — optcl # Proc to call to print a file proc printhtm {f} { if {![file exists $f]} {return 0} if {![info exists ::htm]} { catch {::optcl::new -window .htm Shell.Explorer.2} ::htm } if {![catch
• Printing proc sequence
  07 Jan 2012 — set thisproc [lindex [info level 0] 0] for {set lvl 0} {$lvl > -[info level]} {incr lvl -1} { set inf [info level $lvl] set procname [lindex $inf 0] set parms [lrange $inf 1
• Printing under Windows
  21 Sep 2012 — USER\Software\Microsoft\Internet Explorer\PageSetup] "header"=" " "footer"=" " "margin_bottom"="0.75000" "margin_left"="0.75000" "margin_right"="0.75000" "margin_top"="0.75000" "font"="" "Print_Background"="yes" "Shrink_To_Fit"="yes
• prioqueue
  18 Jan 2017 — struct::prioqueue -integer] # get some random things an put them in the queue for {set i 0} {$i < 100} {incr i} { $pq put item$i [expr {int(rand()*500)}] } # Iterate over the
• private namespace
  05 Sep 2013 — trapdoor}]]} then { uplevel 1 {::proc trapdoor script {::eval $script}; ::namespace export trapdoor} } uplevel 1 [linsert $args 0 ::original_set] } rename set original_set; rename trojan_set set Private namespaces would not give
• pro_args
  03 Jul 2012 — p} {ar} } { set o {} set c 0; set maxc -1 foreach a [info args $p] { set m {}; foreach j $ar { if [string match $a [lindex $j 0]] { set m 1 set arr
• Probability Exponential Density Calculator and eTCL Slot Calculator Demo Example, numerical analysis
  07 Mar 2017 — 500.0 1000.0 1500.0 0.0014 0.50 0.49 0.124 1.} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 1000.0 1200.0 1500.0 0.0014 0
• Problems with list handling in connection with the "unknown" proc
  07 May 2014 — db proc unknown args { puts $args set sql "select * from proc where proc_name = '[lindex $args 0]' order by proc_ref desc limit 1" if {[procdb exists $sql]} { procdb eval $sql { proc
• proc
  28 Mar 2018 — 1] 0]]] - ([llength [info level -1]]-1)} } ====== Trying it out: ====== proc test {a {b 1} {c 2}} {puts [defaultvalues?]} test 1 ;# -> 2 test 1 2;# -> 1 test 1 2 3;# -> 0 ====== [HaO
• Proc to bytecodes: when, how does it happen
  08 Oct 2014 — B (which cause its compilation). Both are # compiled OK A 0 ;# returns b A 1 ;# runtime error: invalid command name "this" A 0 ;# returns b, all is still OK # define a proc
• Proc's For Waiting (after)
  24 Aug 2018 — Waits until minutes is a multiply of INTERVAL # 60 % INTERVAL should be 0 proc waitMinutes {interval} { if {[expr {(60 % $interval) != 0}]} { error "[getProcName]: 60 is not a multiply of $interval" } after [getWaitMinutesTicks
• proc-local alias
  10 Feb 2012 — context # set context [lindex [info level -2] 0]; # check if an alias in this context is really defined # if {[info exists contexts($context.$alias)] == 0} { error "no such defined proc-local alias
• procedure decorators
  01 Jul 2008 — level 0]]]} {return } uplevel 1 [list set __[info level 0] exists] variable memoize_storage set invocation [info level 1] set caller [lindex $invocation 0] set procname [lindex [info level -1] 0] if
• Procedures stored in arrays
  15 Apr 2011 — generator, at first call gives 1, then 2, 3, ... proc intgen {{seed 0}} { set self [lindex [info level 0] 0] proc $self [list [list seed [incr seed]]] [info body $self] return $seed
• Process Info on Linux
  10 Apr 2015 — EIP (instruction pointer). signal %lu The bitmap of pending signals (usually 0). blocked %lu The bitmap of blocked signals (usually 0, 2 for shells). sigignore %lu The bitmap of ignored signals. sigcatch
• Processing arguments
  21 Apr 2017 — different meanings. proc > {args} { upvar args argl set j 0 foreach arg $args { set val [lindex $argl $j] if {[string index $val 0] eq "&"} { set val [string range $val 1 end] uplevel
• processing dirs with tpool
  16 Nov 2015 — tp [tpool::create -minworkers 10 -maxworkers 200] foreach dir [glob -nocomplain -type d -dir [lindex $argv 0] -- *] { lappend res $dir lappend threadList [tpool::post $tp [format { if {![catch {glob -nocomplain -type d
• procmail sux
  07 Jan 2012 — Web page, with plenty of encouragement for anyone to reuse the code. ---- ====== #!/bin/sh # \ exec tclsh "$0" "$@" package require sound proc playwav {myWavFile} { snack::sound s -file $myWavFile; s play -block 1
• ProcMeUp
  26 Jul 2011 — row 0 \ -column 0 \ -sticky news grid rowconfigure . 0 -weight 100 grid columnconfigure . 0 -weight 100 grid .pw.ftop.pw \ -row 0 \ -column 0 \ -sticky news grid rowconfigure .pw.ftop 0 -weight
• Procs as data structures
  15 Sep 2012 — item < 0 ) || ( $item >= 5 ) } { return ? } return [ lindex [ $nameb ] $item ] } buildDataProc book2 {boot fit good} buildDataProc SillyPoem {author W.Shakespeare written 1567} proc any_part_of_tcl_program {} { puts [ trans book2 {0} ] puts
• Procs as objects
  16 Aug 2011 — value} { # - rewrite a proc's default arg with given value set procn [lindex [info level -1] 0] ;# caller's name set argl {} foreach arg [info args $procn] { if [info default $procn $arg
• Procs as variables
  16 Dec 2002 — the above raw calls into a [set] look-alike: proc setp {name args} { switch [llength $args] { 0 {#fall through} 1 {proc $name {} [list return $args]} default {error "usage: setp name ?value?"} } $name
• Procs_window
  25 Feb 2004 — info procs] { if {[string match {tk*} $i] == 0 && [string match {tcl*} $i] == 0 && [lsearch $defaultprocs $i] == -1 } { lappend o $i } }; .f.fl.l del 0 end; foreach i [lsort $o] {.f.fl
• procstep
  15 Jul 2016 — disallows `[lindex]`: ====== ::tcl::proc cmdhandler {namespace command} { if {[namespace eval $namespace [ list namespace which [lindex $command 0]]] eq {::lindex}} { return {error "lindex not allowed"} } ::puts stderr [::list {now executing} $command] return $command
• Product Lifetime at Operating Temperature and eTCL Slot Calculator Demo Example , numerical analysis
  09 Mar 2017 — fillup 10.0 20.0 10.0 5. 0.5 30971. 1290. 3.5 } ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 10.0 20.0 10.0 8. 0.5 38130
• Production Systems
  05 Mar 2014 — set fired 0 foreach {cond action} $ACTIONS($GOAL) { if {[uplevel #0 [list expr $cond]]} { uplevel #0 $action set fired 1 break; # Only first matching action fires } } if {!$fired} { uplevel #0 $ELSE($GOAL
• profiler
  28 Jun 2017 — sets and later analysis through a graphical frontend. http://fossies.org/linux/misc/old/sage-1.0.tar.gz/%|%Sage%|% is a profiling tool for Tcl/Tk programs. It can collect and
• Profiling a TclOO class
  09 Jan 2015 — set name ${class}::$method set ::profiler::callCount($name) 0 set ::profiler::compileTime($name) 0 set ::profiler::totalRuntime($name) 0 set ::profiler::descendantTime($name) 0 set ::profiler::statTime($name) {} set ::profiler::enabled($name
• Profiling Tcl
  27 Jun 2017 — Description: A Tcl/Tk runtime code analyzer profiling tool for Tcl/Tk applications. Requires Tcl 8.0, and was tested on Linux i386 and SunOS/Solaris. Currently at version 1.1 . Updated
• programmed story telling
  03 May 2016 — fill both #$cnv create rectangle 0 0 300 160 -fill blue -outline blue $cnv create oval 30 30 50 50 -fill yellow -outline yellow $cnv create line 0 160 300 160 } # showOverview
• Programming with Prototypes
  16 Mar 2015 — Cascading variable and command access. Methods are subcommands of a namespace ensemble, and use [info level 0] to bind to an object when called. Upmethods bind to an object by using [upvar
• Progress
  18 Jan 2013 — lowercase) method progress {pos} { if {[expr $state + 4] < [expr 1.0 * $pos / $options(-size) * 100]} { if {[expr $state % 20] == 0 && $state > 0} { puts -nonewline stderr " $state " ; } else { puts -nonewline stderr "#" } incr state
• progress -Progress Bar Widget with Minimal Options
  23 Jul 2011 — progress bar with minimal options # # Notes: Value sent to bar must be within range 0.0 - 1.0 # #--------------- # Credits: http://wiki.tcl.tk/1146 #--------------- #--------------- # simple progress bar #--------------- proc progress {w args} { eval
• progressbars
  20 Jan 2013 — status} -extent 0 } } $w create text [expr [$w cget -width] / 2] [expr $h / 2] \ -text "0 %" -tags txt rename $w _$w proc $w {args} { set w [lindex [info level 0] 0] if
• proj
  08 Aug 2018 — 0; /* a coordinate union representing Copenhagen: 55d N, 12d E */ /* note: PROJ.4 works in radians, hence the proj_torad() calls */ a = proj_coord (proj_torad(12), proj_torad(55), 0, 0
• proj4tcl - deprecated
  10 Jul 2018 — gtx" set lat [expr {-(45.0+59.0/60.0)}] set lon 108.0 set deltalat [expr {1.0/60.0}] set deltalon [expr {1.0/60.0}] set rows 2280 set
• Project Ideas for Google Summer of Code 2008
  04 Apr 2013 — Intelligence, Vol 19(1), Sept. 1982, http://dx.doi.org/10.1016/0004-3702(82)90020-0 * U. Zdun, M. Strembeck, G. Neumann: ''Object-Based and Class-Based Composition of Transitive Mixins
• Project Ideas for Google Summer of Code 2009
  11 Mar 2011 — Ctk ] (for Tk 4.0b ) and [ck] [http://www.ch-werner.de/ck] (for Tk 8.0 ); however, for current versions of Tk nothing is available (other than the tcllib term package
• Project Ideas for Google Summer of Code 2010
  11 Mar 2011 — also incorporated in base Tile. ---- New suggestions: 1. Fix binary-support with low-level tempfile-creation API, so that 'exec ... << "$data"' doesn't fail with \0-bytes - very long overdue. <<categories>> Community
• Project Ideas for Google Summer of Code 2012
  29 Mar 2012 — One possibility is to let color names be augmented with an alpha value 0.0-1.0 (or 0-255, whatever). Another is to add a separate -alpha option. Each approach has
• Project wish list
  16 Oct 2013 — Compiler:''' (a specialty of [MS] at the moment) * Simple post-pass optimization (making things like ''if 0'' completely disappear) * Byte-compiling of more commands (switch, l*, ...) - Jazz it up by better reusing
• promise
  18 Jan 2018 — proc on_failure {message error_dictionary} { puts $message # On errors, return 0 as used space after printing the error return 0 } ====== Assume paths contains the list of paths of interest. ====== set paths
• prompt
  14 May 2010 — if { $continue } { set complete 0 } else { set complete [info complete $buffer] } if { !$continue && [info complete $buffer] } { set code [catch {uplevel #0 $buffer} result] set std [expr {$code > 0 ? "stderr" : "stdout"}] if { [string
• promptdialog
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/promptdialog.html and http://purl.org/tcl/home/man/iwidgets3.0/promptdialog.n.html ---- [Category Command], a part of [incr Widgets]
• Properties editor
  07 Jan 2012 — Result: # The widget name # proc propertiesEditor { widget properties valuesName } { upvar #0 $valuesName values set group 0 set row 0 set count 0 set w [frame $widget] set wg $w foreach {type name
• Protecting a TCL program against piracy
  09 Jun 2010 — set uidl [split $uid {}] set sw 1 set key "" foreach letter $uidl { if $sw {set sw 0} else {set sw 1} set n [scan $letter %c] if $sw { set n [expr $n
• Prototype Pattern in Tcl
  16 Mar 2015 — variable prototypes # Peel off just the proc name regexp {::(.*)$} [lindex [dict get [info frame 1] cmd] 0] -> self lassign $args name value switch -- $cmd { get { set obj $self while 1 { if [dict
• pshook
  28 Aug 2012 — level 0] if [info exists obj($name)] { return $obj($name) } error "no such member '$name' in: [info level 0]" } proc class.lget {self names} { assign $self obj # puts [info level 0] set
• PSPad
  13 Aug 2013 — file for PsPad ===Start of File ======================= ;PSPad user HighLighter definition file [Settings] Name=Tcl/Tk HTMLGroup=0 Label=1 FileType=*.tcl,*.tk CommentString=;# SharpComment=1 SQLComment=1 IndentChar={ UnIndentChar=} TabWidth=4 CaseSensitive
• Pstack
  27 Sep 2007 — y} D {-x -y} E {} --- pstack A {} E {} # don't trace calls ---- package provide Pstack 1.0 # -------------------------------------------------- # This package prints the sequence of calls that # preceeded the execution of a selected procedure
• PTL - a pretty test language
  13 Dec 2005 — tcltest], a typical looks like: Name: expr-1 Description: Check that number + 0 equal to number Result: 6 Test: { 6+0 } It is currently being used for testing Wind/Diesel Systems at
• PTL: implementation
  13 Dec 2005 — Author: author "Author of this test" {} 0 Ask: ask "Ask a question of a human to check output" {} 1 Project: project "Project for these tests" {} 0 Remarks: remarks "Remarks about this test
• PTL: implementation -1
  09 Dec 2005 — options($kw) {$a}] } proc Test: {a} { set ::options(-test) $a eval tcltest::test $::options(name) $::options(description) \ [list [array get ::options -*]] } ---- if {0} { Note to Phil, he better test this :-). } ---- [Category Testing]
• ptparser
  27 Mar 2004 — statevar { upvar $statevar state set state [list EOL] } proc ptparser::parser {text tokenvar indexvar statevar {dosubst 0}} { upvar $tokenvar token $indexvar i $statevar state set token {} set inside {} set dontstop $dosubst while
• PTwidgets
  23 Jan 2013 — interface elements allow for simple user interaction but with powerful entry features.| || Currently at version 1.0.| | Updated:| 11/2011| | Contact:| mailto:phase1geo@gmail.com| ---- The tokenentry widget allows users to quickly
• pty.tcl
  18 May 2012 — ok { int master; static int pty_count = 0; char slave[256]; Tcl_Channel masterC; char masterChan[64]; Tcl_Obj *result; Tcl_ChannelType *chanTypePtr; int flags = 0; if (rdwr) { flags |= O_RDWR; } if
• Public IP
  08 Jun 2017 — reaper -x 44451 0 > publicip-0.3.1.tm` ** See also ** * [how to find my own IP address] ** Code ** ====== #! /usr/bin/env tclsh # Public IP library for Tcl, version 0.3.1
• Pull down menus in XML
  05 Jan 2012 — upvar 0 $handle menu upvar 0 menu(tests) tests set menu(hull) $handle if {[llength [info commands $handle]] == 0} { menu $menu(hull) -postcommand [list ::pdmenu::VerifyStates $handle] \ -tearoff [$root getAttribute tearoff 0
• Pulsing Squares
  05 Jan 2012 — Animate {} { foreach aid [after info] { after cancel $aid } if {! $::S(animate)} return _RotateItem .c s 0 0 [expr {$::S(dir) * $::S(step)}] after $::S(delay) Animate } ################################################################ DoDisplay Animate return ====== <<categories>> Applications using
• punycode
  10 Sep 2012 — decodeGeneralizedNumber {extended extpos bias errors} { set result 0 set w 1 set j 0 while {true} { set c [lindex $extended $extpos] if {[string length $c] == 0} { if {$errors == "strict"} { error "incomplete punicode
• pure list
  13 Jan 2016 — equivalent that always returns a pure list, they can do'' ====== interp alias {} list {} lreplace x 0 0 ====== ---- [jcw]: Is it essential that there be no string rep - isn't a list rep
• Pure Tcl JPEG decoder
  12 Oct 2018 — pure Tcl baseline [JPEG] decoder library. |& &| Prerequisites | Tcl 8.5, Tcl 8.6 or [Jim Tcl] 0.75 or later. |& &| Updated | 2017-05 |& &| License | MIT |& ** Glitch pictures ** [dbohdan] 2018-10-12: At
• pure-Tcl
  24 Sep 2012 — polysemies to this term. Sometimes we say, "pure Tcl" in contrast to Tk; thus the 2.0 version of [sockspy] is useful for certain contexts because it can be run as "pure
• pure-tcl BMP reader/writer
  12 Oct 2018 — format s 0] puts -nonewline $fh [binary format s $bpp] puts -nonewline $fh [binary format i 0] puts -nonewline $fh [binary format i 0] puts -nonewline $fh [binary format i 0] puts
• Pure-tcl readline
  04 Mar 2016 — totalLen 0 set cursorLen [expr {$env(CMDLINE_CURSOR)+[string length $prompt]}] set row 0 set col 0 # Render output line-by-line to $out then copy back to $txt: set found 0
• Pure-tcl readline2 prompts
  13 Jul 2016 — path} { set splitPath [file split $path] set result {} foreach fragment [lrange $splitPath 0 end-1] { lappend result [string index $fragment 0] } return [file join {*}$result [lindex $splitPath end]] } # Looks like this: # tclsh
• purse
  11 Jan 2016 — Purse 0.2 namespace eval ::purse {} # param - sets a purse's parameters # dir - directory in which purses are stored (default [pwd]) proc ::purse::param {var val {control purse}} { variable $control upvar 0
• purse NG
  12 Jan 2016 — while. proc ::purse::LatestWrite { name {control purse}} { variable $control upvar 0 $control cont set nofile [dict get $cont() nofile] if { $nofile > 0 } { dict set cont($name) access [clock clicks] } } # Make space to
• pushbutton
  30 Oct 2012 — iwidgets/pushbutton.gif] Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/pushbutton.html and http://purl.org/tcl/home/man/iwidgets3.0/pushbutton.n.html <<categories>> Command | incr Widgets
• pushdpopd.tcl
  16 Jan 2011 — pushdpopd $here } else { if { ! [ string length $dir ] } { if { [ llength $::__pushdpopd ] >=2 } { set ::__pushdpopd \ [ concat \ [ lrange $::__pushdpopd 0 end-2 ] \ [ lindex $::__pushdpopd end ] \ [ lindex $::__pushdpopd end-1 ] ] cd [ lindex $::__pushdpopd end ] } } return {} } } else
• putty
  14 Oct 2018 — entry .path -width 50 button .button -text get -command action .from insert 0 jorge@192.168.1.82 .path insert 0 /home/jorge/sample.txt pack .from .path .button <<categories>>Enter Category
• PVM
  11 Dec 2014 — packages-8.0/devel/ ftp://ftp.procplace.com/pub/tcl/sorted/packages-8.0/devel/tcl8.3.1plus.patch.gz ftp://ftp.procplace.com/pub/tcl/sorted/packages-8.0/devel/tcl8
• Pythagoras Tree
  29 Apr 2018 — F2> {console show} } ##+########################################################################## # # ResizeWindow -- Keeps 0,0 in center of canvas # proc ResizeWindow {h w} { set h [expr {$h / 2.0}] set w [expr {$w / 2.0}] .c config -scrollregion [list -$w
• Pythagorean triple
  06 Nov 2012 — proc Pytriplet {H N} { .c delete all set pix [image create photo] .c create image 0 0 -anchor nw -image $pix set HN [expr {double($H)/(2*$N)}] set mid [expr {$H
• Python and JTcl
  12 Jul 2012 — set value [java::cast $class $value] set size [$value size] set result [list] for {set i 0} {$i < $size} {incr i} { lappend result [getResult [$value get $i]] } } default { set result [$value toString
• Q&D Dialog Box
  04 May 2014 — toplevel $dlgname wm protocol . WM_DELETE_WINDOW done wm title $dlgname $title set label 0 set row 0 foreach field $fields { clear name type var init foreach { name type var init } $field
• Q&D Unicode Character Selecter
  18 Jan 2013 — set currow 0 ; relabel} bind .top <Prior> {incr currow [expr -$nPerScreen] ; if {$currow < 0} {set currow 0} ; relabel} bind .top <Up> {incr currow [expr -$nCols] ; if {$currow < 0} {set currow 0} ; relabel
• qblx
  18 Oct 2017 — there's only block whose indexes are (0,0), whilst on Layer-(N-1) there are 2x2 blocks indexed as (0,0) (0,1) (1,0) (1,1). Don't confuse block
• qstarpack
  02 Jun 2014 — 0 [list source [file join $dir app.tcl]]} close $fh set fh [open [file join $outFile lib app app.tcl] w] fconfigure $fh -translation lf puts $fh {package provide app 1.0
• Qt
  31 Oct 2017 — The homepage of Qt is at http://www.trolltech.com [TS] - An Intro to Qt 3.0 from Cameron Laird http://linux.oreillynet.com/pub/a/linux/2001/11/16/Qt.html
• quadratic time
  20 Aug 2004 — color { 1 red 2 blue 3 green 4 black } set i 0 foreach tag $args { .c create line 0 500 0 500 -fill $color([incr i]) -tag $tag } set list {} for {set
• Quarterstaff
  21 Nov 2012 — area. A logging system allows a site to be edited without changing files. Currently at version 0.2.8 . [SEH] 2005-01-24 -- A pure-Tcl web publishing app. Anyone have experience
• Quaternion
  10 Jun 2012 — this: [r r r 0] [r r r 0] [r r r 0] [x y z 1]. [gwm] Operate on [[abc1]] and you get: [r r r 0] *[a]=R*(a,b
• queue
  16 Sep 2013 — insufficient items in queue to fill request" } set index [expr {$count - 1}] return [lrange $queues($name) 0 $index] } ====== btw, the current queue implementation is smart enough so you just define this after
• Queue with default response
  14 Dec 2012 — area for easy package require (queue_with_default-0.0.1.tm), also first go at TclOO ====== package provide queue_with_default 0.0.1 package require TclOO oo::class create queue
• Quick Access to Formatted Date & Time
  24 Mar 2013 — lines: ====== proc date_format {args} { if {[lindex $args 0] eq "now"} {lset args 0 [clock seconds]} set p [lsearch $args -format] if { [incr p] > 0 } { set fmt [string map {% %% yyyy %Y yy
• Quick Debugging Feedback
  05 Jul 2009 — called set VERBOSE true proc _DEBUG_ {args} { if {$::VERBOSE} { puts "DEBUG:\t[lindex [info level 1] 0]\t MSG: $args" } } ====== Is there any way to introspectively determine where; in the calling procedure
• Quick Formatting ANSI Colour Escape Strings
  20 May 2014 — value} {r 1 g 2 b 4 c 6 m 5 y 3 wht 7 blk 0} { proc $name {} "return \033\\\[01\\;3${value}m" proc [string toupper $name] {} "return \033\\\[01
• Quick photo rotation
  12 Dec 2017 — proc imgrot90 {img {clockwise 0}} { set w [image width $img] set h [image height $img] set matrix [string repeat "{[string repeat {0 } $h]} " $w] if $clockwise { set x0 0; set y [expr
• Quick positioning in listbox
  24 Mar 2010 — return } # Initialize index where search begin if {[llength $sel] == 1} { set startIndex [lindex $sel 0] } else { set startIndex 0 } if {[info exists data(searchPrefix)]} { set searchPrefix $data(searchPrefix) } else { set searchPrefix "" } if
• Quick Slide Show
  15 Jul 2008 — argv argv set sizes {} if {[llength $sizes] == 0 && [llength $argv] == 0} { ciao "no images given" } if {[lindex $argv 0] eq "-?"} { ciao "" 0 } if {[lindex $argv 0] eq "-o"} { if {[llength $argv] < 2
• Quick VNC for MacOS
  07 Mar 2007 — server function. Another note for the configuration of the VNC client: ARD uses the display number 0. ---- CL now likes TightVNC for day-to-day work, but still occasionally uses "VNC Viewer
• Quick-n-dirty debugger
  29 Dec 2006 — 0 if { $q == 0.0 } { return $r } set logq [expr {log(abs($q))}] set sign [expr {$q > 0? 1.0 : -1.0}] set n 1 while { 1 } { set term [expr {2.0
• Quick-start guide to use of PostgreSQL with Tcl
  13 Sep 2017 — proc doit {} { set fp [open sampledata.txt] set conn [pg_connect -conninfo ""] while {[gets $fp line] >= 0} { lassign $line name address city state zip set statement "insert into peopletable values ( \ [pg_quote
• Quick-Tk
  15 Feb 2016 — awk in your path). Requires Tk 4.1 or newer. License is GPL. Currently at version 0.5. ** Attributes ** website: http://web.archive.org/web/20040806170518/http://www1.jump.net/~brooke/qtk
• QuickCheck: A Lightweight Random Test Tool
  03 Dec 2015 — verbose 0 } variable status 1 proc configure args { variable options if {[llength $args] == 0} { return $options } elseif {[llength $args] == 1} { return [dict get $options [lindex $args 0]] } elseif {[llength $args] % 2 == 0
• quickio
  07 Jul 2011 — stdin; else sscanf(handle,"%p",&fp); fgets(&buf, sizeof(buf)-1, fp); buf[strlen(buf)-1] = '\0'; return &buf; } cproc fputs {char* handle char* str} ok { FILE* fp; if(!strcmp(handle,"stdout
• QuickTimeTcl
  06 Sep 2013 — PNG, QuickDraw PICT, QuickTime image, Silicon Graphics, Targa, TIFF. Currently at version 3.1b5 . Version 3.0 is a Carbonized version. Graphics file formats supported include [BMP], [JPEG], [PNG], [TIFF]. [http://quicktimetcl
• Quill
  15 Mar 2017 — build $ ./bin/myapp-0.0a0-tcl.kit or $ ./bin/myapp-0.0a0-win32_ix86.exe === Install the application for local use: === $ quill install $ ls ~/bin myapp $ myapp my-project 0.0a0 === <<categories
• Quines
  06 Sep 2017 — still work, i.e. A is self replicating. proc Quine {} { set procName [lindex [info level 0] 0] set argList [info args $procName] set body [info body $procName] puts "[list proc $procName $argList
• Radial Hierarchical Pareto Plot
  14 Jun 2012 — moveto 0 $c yview moveto 0 # $c configure -scrollregion [list 0 0 $w $h] # set vw [lindex [$c xview] 1] # set vh [lindex [$c yview] 1] # if {$vw != 0 && $vh != 0} { # set
• Radical reform of the execution engine
  28 Dec 2014 — procedure for computing the inner product of two vectors: proc dot {a b} { set prod 0.0 foreach x $a y $b { set prod [expr {$prod + $x*$y}] } return $prod } What we
• radiobox
  06 Jun 2003 — http://incrtcl.sourceforge.net/iwidgets/iwidgets/radiobox.html and http://purl.org/tcl/home/man/iwidgets3.0/radiobox.n.html ---- [RS]: Although, with the modern [labelframe], such a megawidget can easily be
• radiobutton
  01 Mar 2015 — as expected. '''indicatoron''' Want conventional buttons instead of the little diamonds or circles? Use option '-indicatoron 0' for the array to be composed of ordinary buttons, which have width and height. <<categories
• Rain Storm
  09 Dec 2012 — id 0 } array set R {saved {}} array set SIZES {0 1 1 2 2 4 3 6 4 8 5 10 6 12 7 14 8 16} array set DROPS { 0 {Mist
• Rainbow Tunnel
  09 Dec 2012 — bbox $item] 0]<-50} {$w delete $item} } after 100 [list after idle [info level 0]] } #-- General-use utilities: proc lcycle listVar { upvar 1 $listVar list set first [lindex $list 0] set list
• raise
  20 Sep 2016 — may be set shortly as follows: ====== focus -force . raise . wm attribute . -topmost 1 wm attribute . -topmost 0 ====== The problem of this method is, that the window does not get the input focus
• Ramble
  01 Dec 2013 — html] * Ramble 0.1: [http://foothills.wjduquette.com/archives/000986.html] * Key Sequences: [http://foothills.wjduquette.com/archives/000987.html] (has some obscure details about multiple-key event bindings) * Ramble 0.2
• RamDebugger
  07 Mar 2018 — file '$file'" } set header [string range $data 0 255] if { [regexp -- {-\*-\s*coding:\s*utf-8\s*;\s*-\*-} $header] } { fconfigure $fout -encoding utf-8 } if 0 { # original: puts -nonewline $fout $data } else
• ramvfs
  06 Jan 2012 — vfs::posix(ENOENT) return } lappend res type file set mtime 0 lappend res dev -1 uid -1 gid -1 nlink 1 depth 0 \ atime $mtime ctime $mtime mtime $mtime mode 0777 size
• rand
  19 May 2018 — return 0.50} # Rename the mathfunc proc tcl::mathfunc::rand {} {myrand} ====== Trying it out gives ======none % math::statistics::random-uniform 0 1 5 0.5 0.5 0.5 0.5 0
• RandMT
  10 Jun 2012 — rand function generates numbers in the range (0,1) - randmt produces numbers in the range [[0,1]]. If required, it can also produce values within (0,1) as well as integer values
• random
  05 May 2011 — 0)} 0.548813502432 % expr {mt_rand()} 0.592844616527 # Seed and use the ISAAC PRNG % expr {isaac_srand(0)} 0.0943298905842 % expr {isaac_rand()} 0.187672290296 # Subtractive PRNG % expr {sub_srand(0)} 0
• Random Dot Stereogram
  02 Nov 2010 — 0 proc new_pic { } { global width height pic xpos ypos set pic {} set xpos 0 set ypos 0 for {set y 0} {$y<$height} {incr y} { set row {} for {set x 0
• Random Integers
  24 Aug 2018 — set repeatGen 5 for {set i 0} {$0 <= $repeatGen} {incr i} { array set count {} for {set j 0} {$j < $repeatCalc} {incr j} { set index [expr {[getRandomIntInRangeNix 0 $range c] / 20}] incr count
• random line from file
  28 Apr 2009 — memory, so we can deal with that in this case. proc random_line {chan} { set i 0 while {![eof $chan]} { set l [gets $chan] incr i if {rand()<1./$i} { set result
• Random name generator
  03 May 2016 — lpick list {lindex $list [expr int(rand()*[llength $list])]} #--Example output: % set n ""; for {set i 0} {$i<100} {incr i} {lappend n [randomname]} % set n HOFUKEN WEKOIB WIHUHAD ZADOLUW COLUBID PIQUEKOZ
• Random Walk Equation Slot Calculator Example
  07 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff " .frame.entry7 insert 0
• Raspi_gpiohelper
  20 Sep 2018 — puts stderr line:>>$line<< switch -- $line \ 23:0 { hands right } 23:1 { hands right 0 } 24:0 { hands left } 24:1 { hands left 0 } 25:0 { puts stderr Release } 25:1 { set
• rational
  10 Jun 2012 — 2/5 ... 1/1 1/2 1/3 1/4 1/5 ... 0/1 (0/2) (0/3) (0/4) (0/5) ... -1/1 -1/2 -1/3 -1/4 -1/5
• RBTree
  19 Dec 2012 — to array indices?'' '''The RBTree documentation is just a little out of date. In TCL 8.0 about 90% of the TCL core could use strings with embedded nulls. You could not
• RDF
  15 Dec 2015 — simple RDF triple store [http://www.ics.mq.edu.au/~cassidy/cgi-bin/cantcl/package/rdfstore-0.1/] which stores things in a metakit database. Currently this supports only the most trivial
• rdl
  06 Apr 2011 — tcl_extensions/rdl0.6.tar.gz Description: Provides a Tcl interface to GNU readline. Includes a callback interface. Currently at version 0.6 . Updated: 10/2002 Contact: See web site <<categories>>Package
• Re-using widgets specified in a Builder UI with gnocl::builder buffer
  09 Feb 2014 — next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl #--------------- # Create a simple layout, a widget with a button. #--------------- set builderBuffer {<?xml version="1.0"?> <interface> <requires lib="gtk+" version="2
• ReactOS
  04 Sep 2017 — Looking at the web site, the effort is currently working on version 0.3.13. It has gone through 0.0.8 releases in 3 years. [AMG]: I have to give them
• Read both a file and stdin
  16 Oct 2013 — made: * avoid using global variables cmd and res * properly handle scripts that return codes other than 0 (TCL_OK) or 1 (TCL_ERROR) (for example, [[break]]) ---- Note that the code above is
• Read-only combobox
  01 Feb 2014 — values $values] -padx 10 -pady 10 .cb1 current 0 pack [ttk::combobox .cb2 -state readonly -values $values] -padx 10 -pady 10 .cb2 current 0 ====== [tk_rocombo.png] Now I'd like to
• Read-only memory-mapped files
  04 Aug 2013 — d extension" }. * 00000020 20706163 6b616765 2070726f 76696465 * package provide* 00000030 206a6f6c 7420302e 300a7d0a 0a696620 * jolt 0.0.}..if * 00000040 7b5b696e 666f2063 6f6d6d61 6e647320 *{[info commands * 00000050 6d6d6170 5d203d3d 2022227d 207b0a20 *mmap] == ""} {. * 00000060
• Read-Only Text Megawidget with TclOO
  28 Jul 2016 — widget count $ro1 $index2] set c2 [$widget count $index1 $ro2] if {$c1 <= 0 || $c2 <= 0} { continue } if {$c1 > 0 && $c2 > 0} { return true } } return false } method delete {args} { foreach {index1 index2} $args
• Read-only text widget
  25 Jan 2014 — w compare anchor > 0.0" trying to get passed to the internal widget, and our smart interpreter picks off the "> 0.0" as "redirect output to file 0.0". Nice in general
• ReadChar
  20 Jan 2010 — eof {} { my variable ch my variable buf if { ![$buf size] && [eof $ch] } { return 1 } else { return 0 } } method peek {} { my variable ch my variable buf if {[$buf size]} { return [$buf peek] } else
• Reading a single character from the keyboard using Tcl
  15 Jun 2014 — desktop/ms683167%28v=vs.85%29.aspx%|%reference page for GetConsoleMode]. If you are using TWAPI 0.7 or above, you can use modify_console_input_mode[http://twapi.sf.net/v3
• Reading a Windows icon file
  20 Dec 2012 — set count [ico2img $fn] canvas .c -bd 0 -highlightt 0 set y 0 for {set i 0} {$i < $count} {incr i} \ { .c create image 0 $y -anchor nw -image img$i incr
• Reading and parsing RFC 822 headers
  12 Feb 2014 — 822::header-parse-line { arrayName line } { ## => 0 | 1 (done) variable re-header-name variable re-header-del upvar 1 $arrayName header if { [ string length $line ] == 0 } { ## end of header, store accumulated field
• Reading and writing NetCDF files
  18 Mar 2018 — if ( strcmp( type, "int" ) == 0 ) typeCode = NC_INT; if ( strcmp( type, "long" ) == 0 ) typeCode = NC_LONG; if ( strcmp( type, "float" ) == 0 ) typeCode = NC_FLOAT; if ( strcmp( type, "double" ) == 0 ) typeCode = NC_DOUBLE
• Reading Carla patchbay into BWise blocks and Tcldot
  12 Feb 2018 — lindex [lindex $i 2] 1] 0] == "Target" && [lindex [lindex [lindex $i 2] 0] 0] == "Source"} { append xmlo "[lindex [lindex [lindex [lindex [lindex $i 2] 0] end] 0] end],[lindex [lindex [lindex [lindex
• Reading GIS shape files
  23 Feb 2013 — all 0 0 2 -2 .c move all 360 180 # # Add the equator, meridians and such # .c create line 0 180 720 180 -width 2 -fill darkblue .c create line 0 150
• Reading ID3V2
  31 Aug 2013 — fr $allFrames $headSize]] > 0} { seek $fr $newPos continue } } if {$frameSize < 0} {puts "Wrong id3 tag structure!"; return -1} set data [read $fr [expr $frameSize]] if {[lsearch $frameToDisplay $frameType] >= 0} { puts "$frameMap($frameType
• Reading JPEG image dimensions
  22 Apr 2017 — frame) marker. The marker is a two byte code, ffcx where x is a value from 0 to 3. As Odeen noted, we can't just search on "ffcx" because most digital
• Reading messages that might be MIME-encoded
  06 Sep 2013 — ID: <Pine.BSF.4.10.10201311752520.60621-201000@somewhere.com> MIME-Version: 1.0 Content-Type: MULTIPART/MIXED; BOUNDARY="0-830506451-1012521212=:60621" Status: R This message is in MIME format. The
• Reading PNG Comments
  06 Jan 2012 — 0] set r [string range $r [expr {[string length $keyword] + 1}] end] binary scan $r cc comp method if {$comp == 0} { lappend text [linsert [split [string range $r 2 end] \x00] 0
• Reading PNG image dimensions
  05 Feb 2011 — Read IHDR chunk signature binary scan [read $f 8] c8 sig foreach b1 $sig b2 {0 0 0 13 73 72 68 82} { if {$b1 != $b2} { close $f error "$filename is missing
• Reading Portable Executable headers
  10 Dec 2011 — test(ImageBase) = 4194304 test(ImageSize) = 1777664 test(ImageVer) = 0.0 test(InitDataSize) = 16384 test(Linker) = 6.0 test(LoaderFlags) = 0 test(OS) = 4.0 test(SectionAlign) = 4096 test(Sections) = 3 test(StackCommit
• readline extension TclRl
  22 Aug 2011 — technion.ac.il/pub/staff/dimka/tclrl/tclrl-0.2.tar.gz ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/devel/tclrl-0.4a.tar.gz (both urls are 404
• Reasoning with rules
  18 Sep 2012 — answer if { [string first "Y" [string toupper $answer]] == 0 } { SET $var 1 } else { SET $var 0 } } else { set hasanswer 0 while { ! $hasanswer } { set choice 0 foreach {v t} $values { incr choice puts
• Recent Changes is virtually worthless
  10 Apr 2014 — page now would it? [Zarutian]: Sly, so you would rather recommend an slider with values between 0 and 10 that signifies the editor's subjective measure of 'minority' of a change? [KJN
• records
  05 Sep 2011 — lindex $args 0]] > 0} { if {[info exists instname]==0} { set instname [lindex $args 0] } else { append instname " " [lindex $args 0] } } set varname [ lindex $args 0 ] set args [ lreplace $args 0 0 ] upvar
• Rectangle Conversion
  10 Apr 2008 — rect2poly $w $item } } } # general notes: # -outline defaults to empty with polys, but black with rects # -width 0 yields 1 with polys, so making an outline absent, -outline must be "" # -fill is by
• Recursing Eliza
  24 Jan 2011 — we continue? Anything specific? So ... ? Shall we continue? set in1 "hi"; set oo {}; for {set i 0} {$i < 10} {incr i} { puts $in1; append oo $in1 \n; set in1 [Talk::replyto $in1
• recursion
  20 Apr 2018 — related to the C stack): ======none % interp recursionlimit {} 10000 10000 % proc Llength list {expr {$list eq ""? 0: 1 + [Llength [lrange $list 1 end]]}} % Llength [iota1 398] 398 % Llength [iota1 399] too many
• Recursive curves
  29 Apr 2018 — want set t [time {ccurve .c 120 0 2}] #set t [time {dragon .c 160 0 1 2.4}] wm title . "[expr {[lindex $t 0]/1000000.}] sec" bind . <Return> {exec wish $argv0
• Recursive curves (table based)
  06 Jan 2012 — parList [list 0.0 $minlen ];# 0 lappend parList [list $minlen0 $minlen0];# 1 lappend parList [list $minlen 0.0 ];# 2 lappend parList [list $minlen0 -$minlen0];# 3 lappend parList [list 0.0 -$minlen ];# 4
• recursive fileevent accumulator
  01 Jun 2012 — sock readable {} if {[catch {gets $sock line} numChars]} { close $sock interp delete $interp return } if {$numChars < 0} { if {[fblocked $sock]} { fileevent $sock readable [list Read $sock $interp $script] return } if {[eof $sock
• Recursive functions
  10 Jun 2012 — let rec Ack = fun (0,n) -> n+1 | (m,0) -> Ack (m-1, 1) | (m,n) -> Ack (m-1, Ack (m, n-1));; let rec llength = fun [] -> 0 | _::L -> 1 + llength L
• Recursive list searching
  23 Oct 2011 — list [lindex $list 0]} ====== ---- % lrsearch {a b {c {d e}}} a 0 % lrsearch {a b {c {d e}}} b 1 % lrsearch {a b {c {d e}}} c 2 0 % lrsearch {a b
• recursive_glob
  06 Jul 2012 — set fileTail [file tail $file] if {!($fileTail eq "." || $fileTail eq "..")} { lappend recurse $file } } } } if {[llength $recurse] > 0} { lappend result {*}[rglob $recurse $globlist] } return $result } ====== ---- [gavino] works great!! 6jly12 ---- [tjk] The above code
• redefining stdout
  21 Feb 2014 — args } { set fid [ open $file a+ ] if { [ llength \$args ] > 1 && \ [ lsearch \$args stdout ] == 0 } { set args [ lreplace \$args 0 0 \$fid ] } elseif { [ llength \$args ] == 1 } { set args [ list \$fid \$args ] } if { [ catch
• Reduce Colour Depth - Median Cut
  18 Sep 2012 — col,$i) != 0 } { lappend l($col) $i } } set range($col) [expr {[lindex $l($col) end] - [lindex $l($col) 0]}] } if { $depth == 0 || ($range(r) == 0 && $range(g) == 0 && $range(b) == 0) } { # Average
• Reducing the color depth of an image
  23 Jun 2010 — format gif toplevel .$n wm title .$n "$::count" canvas .$n.c -bd 0 -highlightt 0 .$n.c create image 0 0 -anchor nw -image $image foreach {- - width height} [.$n.c bbox all
• Refactored BLT Components
  18 May 2018 — out a small demo by: $ tclkit-8.4.19 % source rbc0.1.kit % package require rbc 0.1 % source rbc0.1.kit/lib/rbc0.1/demo.tcl tested as well with tclkit
• Reference
  08 Apr 2014 — idiom that everything is a string? What happens if someone goes eval lappend refs [linsert $otherRefs 0 [newRef xxx]] will the things appended to $refs still be references? (Sure, it is silly
• Reference counted command objects
  01 Jun 2014 — its argument. ====== package require counted package require Itcl namespace import itcl::* class Account { public variable balance 0 destructor { puts Account::destructor } public method deposit amount { set balance [expr $balance + $amount] } public method
• references in Tcl (a simple approach)
  01 Dec 2013 — the data structure is written, the reference is destroyed. package provide reftrace 1.0 namespace eval ::reftrace { variable seq 0 namespace export {[a-z]*} } namespace eval ::reftrace::v {} # Make a persistent reference
• References to proc-local vars
  28 Nov 2012 — this machinery and a FQ name is what should be returned. ====== namespace eval REF { variable count 0 proc {} varName { # Create a namespace variable to store the local's data, intitialize it # with
• reflected channel
  28 Apr 2016 — unset chan($chanid) puts [info level 0] } variable watching array set watching {read 0 write 0} proc watch {chanid events} { variable watching puts [info level 0] # Channel no longer interested in events
• reflected channel example
  03 Aug 2012 — 0} { return -code error "Cannot seek before the start of the channel" } elseif {$newloc > $myend} { # Here a different semantics is possible: Allow seeking # behind the end of the channel, auto-append \0
• Reformatting Lines of Chinese Text
  04 Nov 2010 — tabulate_Chinese_Columns {data nrows {pad -} } { set r 0 ;# row counter set str {} ;# list contain final, formatted list, returned by proc set m 0 ;# maximum string length, used for padding # Chinese has
• Reformatting Tcl code indentation
  14 Oct 2014 — index $newline 0] \}] if {$nbbraces>0 || $brace} { incr indent $nbbraces ;# [GWM] 010409 multiple open braces } if {$nbbraces<0 || $unbrace} { incr indent $nbbraces ;# [GWM] 010409 multiple close braces if {$indent<0} { error "unbalanced
• regexp
  31 Oct 2017 — whether the regular expression ''expr'' matches part or all of ''string''. Returns `1` if it does, `0` if it doesn't. Any additional arguments specified after ''string'' are the names of variables
• Register file types under Windows
  21 Jan 2014 — File" [file join $scriptDir CardFile.tcl] -mimetype application/x-cardfile -icon [file join $scriptDir cardfile.ico],0 -new 1 -text 1 Without further ado, here's the source for RegisterFileType: ---- #---------------------------------------------------------------------- # # RegisterFileType::RegisterFileType
• registry
  11 Feb 2014 — but yes in 8.0b2?), and bundled with 8.1.0. 8.3 -> 8.4 saw the move from tcl/library/reg1.0 to tcl/library/reg. ---- [ET] Here's my little
• regsub
  07 Jul 2017 — of the '''`replacement`''', so that it instead is a ''list'' to which each of the substrings (`\0`, `\1`, `\2`, …) are appended ''as elements''. The result is then evaluated (via `Tcl_EvalObjv
• Regular Expression
  01 Aug 2018 — hit with the RE hammer. To begin with, here are some definitions: '''atom''': a grouping of 0 or more characters which are to be treated as one entity by subsequent metacharacters, etc
• Regular Expression Debugging Tips
  30 Oct 2015 — b 0 $ regexp $r {abc} 0 $ regexp -- $r $b 0 $ regexp -about $r $b 0 {REG_UBRACES REG_UUNSPEC} $ set r {a{0,3}} a{0,3} $ regexp -about $r $b 0
• Regular Expressions Are Not A Good Idea for Parsing XML, HTML, or e-mail Addresses
  11 Oct 2012 — it is quite possible to evaluate tcl and produce useful results without parsing it (thus: [[if {0} {{mumble}wibble} else {something_useful}]]) Translating something in several phases is a reasonable thing to
• Regular polygons
  18 Jan 2012 — approximate ovals with polygons - just replace commands like $c create oval 0 0 50 50 ... with $c create poly [rp 0 0 50 50] ... where the rp function below computes a sequence
• Regular Polygons 2
  30 Jul 2013 — V(-sides) if {$n == 0} { ;# 0 sides => circle set n [expr {round(($rx+$ry)*0.5)}] if {$n < 2} {set n 4} } set dir [expr {$V(-extent) < 0 ? -1 : 1}] ;# Extent can
• Relation Oriented Programming with Raloo
  31 May 2014 — TclOO] (set of object oriented building blocks). Download from http://sourceforge.net/projects/tclral Requires TclOO (0.5.1), Tcl 8.5 (or better presumably; hasn't personally had time to try
• Relation Transitive Closure
  04 Feb 2016 — Okay, pull a file name off the command line and scan it set f [lindex $argv 0] cd [file dirname $f] set f [file tail $f] scanFile $f # The dependency graph has
• relational database
  08 Jan 2014 — proposed foundation for future database systems presented in Databases, Types, and The Relational Model: The Third Manifesto, 3rd edition, Addison-Wesley, 2006 (ISBN: 0-321-39942-0) <<categories>> Category Database | Category Concept
• Relations as Object Oriented Stacks
  01 Dec 2013 — namespace import ::ralutil::* if 0 { Like in [Relations as Stacks], we will be using a utility in '''ralutil''' to automatically add a consecutive integer identifier. } ::ralutil::sysIdsInit if 0 { In this design
• Relations as Stacks
  12 Feb 2007 — Stack] if 0 { +===+------+ |Id |Item | |int|string| +===+------+ |1 |Item 1| |2 |Item 2| +===+------+ } puts [peek] puts [pop] if 0 { Item 2 Item 2 } push "Item 3" puts [relformat $Stack] if 0 { +===+------+ |Id
• Relative File Paths
  03 Jun 2012 — cc 0] [lindex $tt 0]] && [llength $cc] > 0} { # discard matching components from the front set cc [lreplace $cc 0 0] set tt [lreplace $tt 0 0] } set prefix "" if {[llength $cc] == 0
• reload-self
  22 Sep 2012 — lindex $argv 0]} .tx insert end [file_get $LOADER] bind all <Alt-F1> run_another bind all <Alt-F2> reload_self proc run_another {} { set c [.tx get 1.0 end-1c
• ReloadableWidgets
  01 Sep 2013 — commands create_$class]] != 0} { return } rename $class create_$class interp alias {} $class {} create_or_configure $class } proc create_or_configure {class w args} { if {[llength [info commands $w]] != 0} { if {[string match
• Remote Control of Test Equipment Using Distributed Objects
  24 Oct 2008 — query commands. Server side code: % # start the server % package require Remote % Remote::config -port 5000 -local 0 Client side (sans comments that were on the slide--elided due to lack of time
• Remote debugging via socket
  31 Aug 2011 — fileevent $socket readable [list remo_go $socket] } proc remo_go {sock} { gets $sock line catch {uplevel \#0 $line} res puts $sock $res if [catch {flush $sock}] {close $sock} } remo_server ====== The "debugger
• Remote Editing
  01 Feb 2006 — s Internet Toolkit], take a look at ''Site.tcl' file. if {($::ENV == "dev") && ([info exist ::callback] == 0)} { put [tk::help::init] } Above code says that if the environment is "dev", include an
• remote execution using tcl and Pcom
  02 Sep 2015 — xterm -fn '-adobe-courier-*-r-*-*-*-140-*-*-*-*-*-*' -rightbar -sb -fg white -bg black -display amachine.mshome.net:0 " & ====== Which on the other side executes a tcl exec command which starts a bash spawned
• Remote input-output with Expect
  02 Apr 2015 — send $user\r expect Password: send $pass\r expect $prompt send "cat $filename\r" log_user 0 expect { ^$prompt { # ... } -re {^([^\r]*)\r\n} { puts "The line is '$expect_out(1,string)'." exp
• Remote Script Execution
  12 Nov 2015 — proc getline {sock} { upvar #0 [namespace current]::${sock} state if { [gets $sock line] < 0 } { closechan $sock return } state_$state(state) $sock $line } proc state_ready {sock line} { upvar #0 [namespace current]::${sock
• Rename and redate photo-files
  05 Apr 2018 — withdraw .} set dir "." set fnFormat "gurt%Y_%m%d_%H%M%S" set files 0 set ok 0 puts "# FotoRename2:" # Filenames: dscn#### sscn#### foreach fname1 [lsort [glob -nocomplain -dir $dir -types f
• Rendering a Wavefront Obj file in Canvas3d
  02 May 2013 — tags filename} { set line_count 0 set vertex_count 0 set face_count 0 set group {} set object {} foreach line [split $text \n] { switch [string range $line 0 1] { "g" { # Faces can
• Rendering mathematical formulae
  13 May 2012 — to render mathematical formulae # namespace eval ::MathFormula:: { variable poshoriz 0 variable offhoriz 0 variable posvert 0 variable offvert 0 variable offset_add 0 variable symbol array set symbol { ALPHA \u391 BETA \u392
• RenderTk
  13 Feb 2015 — set Gridder padX 0 dict set Gridder padY 0 dict set Gridder padLeft 0 dict set Gridder padTop 0 dict set Gridder iPadX 0 dict set Gridder iPadY 0 dict set Gridder
• Rendezvous
  13 Nov 2014 — ERROR); } if(Tcl_GetIndexFromObj( interp, objv[1], (const char **)subcommands, "subcommand", 0, &cmdIndex ) != TCL_OK) { return(TCL_ERROR); } switch(cmdIndex) { case 0: // start if(objc != 4) { Tcl_WrongNumArgs(interp, 2, objv, "<regtype
• Reparenting native applications on Windows
  17 Feb 2015 — Visible 0 set szUrl "www.google.com" $ie Navigate $szUrl twapi::resize_window $wIE 400 400 set wParent [ twapi::tkpath_to_hwnd . ] twapi::SetParent $wIE $wParent $ie Resizable 0 $ie MenuBar 0
• Repeatedly running a program
  26 Nov 2008 — cases and run the program # # TODO: safe interpreter # source [lindex $argv 0] if { $files(sequential) } { set files(continue) 1 set files(casecount) 0 while { $files(continue) } { prepareCaseAndRun } } else { prepareCases runProgram } ====== ---- !!!!!! %| [Category Application] |% !!!!!!
• Replace one color in an image with transparency
  13 Oct 2010 — expr [lindex $rgb 0]/256] [expr [lindex $rgb 1]/256] [expr [lindex $rgb 2]/256]] set h [image height original] ; set w [image width original] for { set x 0 } {$x < $w} {incr
• Replicated and distributed slave interpreters
  13 Jul 2018 — sync_proc {seed -1}} { proc [lindex [info level 0] 0] [list sync_proc [list seed [incr seed]]] [info body [lindex [info level 0] 0]] set interp [interp create -safe] foreach item { fconfigure
• report
  01 Sep 2015 — from the file # and initializes the matrix to that number of columns. if {[gets $channel line] < 0} { # here, you either continue, return with an error, or take some other action for when
• Resizable rectangles
  06 Sep 2012 — x0 y0 x1 y1} $coords break if {[between $x0 $y0 $X $Y $x0 $y1]} { set RSZPOS 0 } elseif {[between $x0 $y1 $X $Y $x1 $y1]} { set RSZPOS 3 } elseif {[between $x1 $y1
• Resize of the mp_digit type
  19 Oct 2011 — In Tcl releases 8.5.0 through 8.5.7, the public header file `tcl.h` contains the typedef: ======c typedef unsigned long mp_digit; ====== Starting in Tcl 8.5.8, this
• Resizing fonts on window resize
  01 Feb 2013 — proc adjustFont {font width ipt} { set newSize [lindex [math::interpolate::neville [lindex $ipt 0] [lindex $ipt 1] $width] 0] font configure $font -size [expr {int($newSize)}] } proc configureBinding {font ipt win width
• Resolving Table Creation Dependencies with tcldb
  29 Dec 2012 — finfo(reference) 0] if {![$g node exists $reftable]} { $g node insert $reftable } $g arc insert $tablename $reftable } } return $g } proc filterIsolated {g n} { if {[llength [$g arcs -out $n]]} { return 0 } else
• Resource Usage Tracker
  23 Jan 2013 — lindex $argv 0]] 0] if {![file executable $executable]} { puts stderr "cannot find executable: [lindex $argv 0]" exit 2 } # Start the execution of the monitored program set myArgv0 [lindex $argv 0] set myArgs
• Resources and Links
  28 Jan 2013 — com/cgi-bin/tclet2 . The article "Using Active Server Pages with Microsoft Internet Information Server 3.0", located at http://www.microsoft.com/iis/Evaluating/Guides/Whitepapers/aspwp.exe, implies that Microsoft
• ReSourcing Direct Domain procs when changed
  12 Nov 2005 — info script]] _proc $name $args $body } proc DirectDomain {prefix sock suffix} { global Direct global env upvar #0 Httpd$sock data # Set up the environment a-la CGI. Cgi_SetEnv $sock $prefix$suffix
• rest
  24 Sep 2013 — lindex $acceptedmimetypestack end] set acceptedmimetypestack [lrange $acceptedmimetypestack 0 end-1] http::config -accept $old return } method DoRequest {method url {type ""} {value ""}} { for {set reqs 0} {$reqs < 5} {incr reqs} { if {[info exists
• Restarting a tkcon application
  16 Oct 2013 — Remove unwanted procs if {[info exists kpv(p,$v)] == 0} { catch {rename $v {}} } } # foreach v [namespace children] { # if {[info exists kpv(n,$v)] == 0} { # catch {namespace delete $v} # } # } uplevel { ;# Get at global
• restful gdocs
  27 Jul 2011 — docs.google.com/feeds/default/media/%docid% method put body mime_multipart headers { GData-Version 3.0 Authorization {GoogleLogin auth=%token%} Slug uploaded.txt } opt_args { ocr: } } ====== but I always get a
• Restricted variables
  15 Jan 2006 — check $val]} proc check {val name el op} { if {[info level]<2 || [lindex [info level -1] 0] ne "secret::keeper"} { uplevel 1 [list set $name $val] error "forbidden" } } Testing - first set such
• Restricting the Movement of Canvas Items
  10 Mar 2005 — y + $yDiff] if {$x < $can(minx)} { return 0 } if {$y < $can(miny)} { return 0 } if {$x > $can(maxx)} { return 0 } if {$y > $can(maxy)} { return 0 } } #puts $item return 1 } #------- # test it
• Result caching
  21 Sep 2018 — Language" "Tool Command Languages"}} 0 microseconds per iteration % array get c {stringSimilarity "Tool Command Language" "Tool Command Languages"} 0.953488372093 The second call saves you more than 0.4 seconds...(on second
• Retrieve file icon using the Win32 API
  18 Jun 2018 — FORMAT_MESSAGE_IGNORE_INSERTS,0,GetLastError(),0,msg,255,0); /* lose the newline */ l = 0; while (msg[l]!='\r' && msg[l]!='\n' && msg[l]!='\0') { l++; } msg[l]='\0'; Tcl_AppendResult(interp
• Retrocomputing
  30 Sep 2012 — set twain [expr $row+1].0 } else { $w config -state normal $w delete 1.0 1.end+1c $w delete $row.0 $row.end $w insert $row.0 [format \n%[$w cget
• retry
  02 Sep 2016 — for string equality. The trouble with `[==]` and `[!=]` is in how they compare strings like "0" and "0.0". They're numerically equal but textually unequal. What's more, `[eq]` is faster due
• returneval
  14 Jun 2014 — wiki: ====== proc eproc_call args { if {[info level] > 1 && [lindex [info level 0] 0] eq [lindex [info level 1] 0]} { return -code -1 $args } set code -1 while {$code == -1} { set code
• Revert -Providing 'Revert' and Save Prompt Functionality to Text Editors
  01 Apr 2008 — menubar # add file menu menu .menubar.file -tearoff 0 .menubar add cascade -label File -menu .menubar.file # add edit menu menu .menubar.edit -tearoff 0 .menubar add cascade -label Edit -menu .menubar
• Revisiting TOOT with a store
  06 Sep 2012 — a is now $a" puts "let's lreplace a's wea 0 index with result: [{*}$a inval lreplace wea 0 0 99]" puts "a is now $a" puts "let's put a
• REXEC
  03 Aug 2016 — variable User $user variable Password $password } proc Read {channel} { # Channel read handle if {[gets $channel line] < 0} { if {[eof $channel]} { close $channel set ::remote::Flag EOF } } else { lappend ::remote::Output $line } } proc
• Rexx
  25 Sep 2011 — source] as of mid-2005, in light of IBM's release [http://www.devsource.com/article2/0,1759,1729098,00.asp] of Object Rexx. Howard Fosdick profile is now at http://web
• RHS's Bytecode Package
  21 May 2014 — 27} Continue -1 Break 36} } { {push1 0} {storeScalar1 0} {pop} {push1 0} {storeScalar1 1} {pop } {jump1 33} {push1 0} {storeScalar1 2} {pop } {jump1 12} {incrScalar1Imm 0 1} {pop} {break} {pop} {incrScalar1Imm 2
• Ribbon Graphs
  12 Oct 2011 — 0 -takefocus 0 #error? #-selectbackground white -selectborderwidth 0 pack .index -in .findex -expand 1 grid .fdir .flength .findex -in .bottom -sticky news -padx 20 grid columnconfigure .bottom {0 1 2} -weight 0
• Ricardo Jorge
  11 Aug 2012 — eti.br/wiki Also take a look at LinkedIn [http://br.linkedin.com/pub/ricardo-jorge/0/215/4bb] See Tcl Web Companion at SourceForge [http://sourceforge.net/projects/tclwebcompanion/] A set
• Rich tclsh command line (python-like options)
  26 Jul 2018 — info nameofexecutable]]) } { return } # parse args: set fileName {} set cmd {} set interact 0 set enc {} while {[llength $::argv]} { set o [lindex $::argv 0] switch -- $o \ "-c" { if {$cmd ne {} || [llength $::argv] < 2} { break
• Richard Stallman
  23 Mar 2016 — 17: [http://oreilly.com/openbook/freedom/%|%Free as in Freedom] ([https://archive.org/details/faif-2.0%|%PDF]), Sam Williams, 2002-03: Available online in its entirety: [http://www.gnu.org/gnu
• richards_bench
  27 Apr 2010 — list 0 0 0 0 0 0 0 0 0 0] set tasklist 0 set tcb 0 set taskid 0 set qpktcount 0 set holdcount 0 set tracing 0 set layout 0
• Rivet HTTP REST service example
  28 Apr 2013 — these methods actually implement the service operations... ## namespace eval service { proc index {} { ::json::write array \ [read 0] \ [read 1] \ [read 2] };# index proc create {object} { return id };# create proc read {id} { ::json
• RKzn
  30 Sep 2016 — Curiously, it is so [http://wiki.tcl.tk/_/diff?N=498&V=30&D=29&W=0#diff0%|%since you add it twice some 5 years ago]. [PYK] 2016-0403: Ah, I
• rlwrap
  21 Mar 2018 — 6 <<EOF #!/bin/bash bin=$(readlink -f $0).exe if [ $# -lt 1 ]; then exec socat READLINE,history=$HOME/.tclsh_history EXEC:$bin,pty,ctty,echo=0 else exec $bin $* fi ====== The same
• RMMADWIM
  10 Sep 2012 — 2 {test solve1 expr implementation} { solve1 1-1 } {0} tcltest::test solve-1 {test solve expr implementation} { solve [list "1+1" "1-1"] } {2 0} ::tcltest::cleanupTests ====== Note this implementation can already
• Robotics
  07 Dec 2017 — small, programmable robot used to teach block programming. * https://learn.adafruit.com/circuit-playground-lesson-number-0/library-reference?view=all%|%Circuit Playground%|% - A small hardware board with integrated sensors and outputs
• Robust environment variables on Windows
  27 Apr 2016 — lib32] } else { set libPath [file join [file dirname [file dirname [info nameofexecutable]]] share lib64] } set found 0 foreach path [split $::env(PATH) ";"] { set path [file normalize $path] if {$path == $libPath} {set found
• Rohan Pall
  15 Jun 2014 — a> ss s [sr] ; ss {1 2 3} a> . eval {lindex [ss] 0} a> drop eval {ss [lreplace [ss] 0 0]} a> ex eval {eval [.] ; drop} a> ? s errorInfo ====== '''|ex''' apply to
• Roll-Up -Modify MS-Windows palettes to provide Linux-like shading behaviour.
  02 Sep 2015 — winfo height $w] wm geometry $w [winfo width $w]x0 set ${w}::state 0 wm resizable $w 0 0 } else { # roll-down wm geometry $w [winfo width $w]x[set ${w}::height
• Rolling credits
  03 Apr 2014 — n" and in the the titleshow'roll proc if {$y1<0} {$w delete $i} to if {$y1<0} {$w move $i 0 $y} [schelte] gave most of the help to make this
• rope
  28 Dec 2014 — structures. They give detailed technical information about their solution here [http://vtd-xml.sourceforge.net/technical/0.html], and describe their ''Virtual Token Descriptor'' (VTD) format here [http://vtd-xml.sourceforge.net
• Rosetta Code Helper
  18 Oct 2015 — eval {script} { ::if {[lindex [info level -2] 0] eq "rosetta"} { tailcall code $script } else { tailcall ::eval $script } } proc if {args} { ::if {[lindex $args 0] eq "0" && [llength $args] == 2} { tailcall comment [lindex
• rot13
  27 Jul 2012 — ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz" set res "" set length [string length $text] set find_command [expr {$amount > 0 ? "first" : "last"}] for {set index 0} {$index < $length} {incr index} { set char [string index $text $index] set pos
• Rotate text and images using img extension
  15 Apr 2014 — dims 0] set height [lindex $dims 1] set colors [lindex $dims 2] set misc [lindex $dims 3] set bitimage [lrange $normdata [expr 3 + {$colors}] end] set currow 0 array set rotrow {0
• Rotated canvas text
  07 Aug 2011 — rotmatrix {size angle} { set size [expr {double($size)}] set angle [expr {double($angle)*acos(0.0)/90.0}]; # In radians set c [expr {$size*cos($angle)}] set s [expr {$size*sin($angle
• Rotated Text Font
  09 Jan 2011 — set img [image create photo -width 21 -height $h] set y 0 foreach ch $ltxt { $img copy ::img::rot::$ch -to 0 $y incr y [image height ::img::rot::$ch] } return $img
• Rotating a Tk Photo Image
  23 Jun 2010 — 360]] set cosTheta [cos $radian] set sinTheta [sin $radian] for {set y 0} {$y < $height} {incr y} { for {set x 0} {$x < $width} {incr x} { set col [$img get $x $y] foreach
• Rotating gears resulting in linear way of crankpin
  26 Aug 2018 — 280 -fill silver -tags outer -width 0 .c create polygon $outerGearCoords\ -fill white -width 0 -smooth yes -tags outer .c create polygon $innerGearCoords\ -fill grey90 -width 0 -smooth yes -tags inner drawGeometry
• Round Corner Text Widget
  25 Sep 2013 — frame $f.cont -style RR.TEntry pack $f.cont text $f.t -wrap word -borderwidth 0 -highlightthickness 0 \ -width 40 -height 6 bind $f.t <FocusIn> [list $f.cont state focus] bind
• RPC
  13 Nov 2015 — here. [ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/alcatel/extensions/tclipc1-0.tar.gz%|%tclipc1-0.tar.gz]: [winsend]: Uses Windows [COM] to implement send. Tk[pvm]: Claims to
• rpc-DB
  31 Jan 2003 — pos] { lappend found [list $key [lindex $pos 0] $data] } } switch [llength $found] { 0 {error "No match for $tofind"} 1 {Show $textw [lindex [lindex $found 0] 0] $table} default {choice $textw $table $tofind
• RPN in Tcl
  10 Jul 2016 — Stack if ![llength $Stack] {error "stack underflow"} set res [lindex $Stack end] set Stack [lrange $Stack 0 [expr [llength $Stack]-2]] if [llength $args]==1 {upvar 1 $args there; set there $res
• RS
  09 Oct 2018 — can edit - please contribute! [RLH] 2006-02-19: I have finally gotten all the wiki "if 0{" stuff out of it. "And there was much rejoicing!" ---- All code I post is free
• RS's RSS
  21 Jun 2014 — textwin $url } if 0 {This renders a RSS URL with titles and links into the given [text] widget:} proc showRSS {w url} { $w delete 1.0 end upvar #0 [geturl_followRedirects $url
• RSA
  10 Sep 2012 — Little Theorem, which says that if ''p'' is a prime then for all integers ''a'' between 0 and ''p''-1 inclusive, it holds that a^p = a (mod p) (where ^ means exponentiation
• Rshd and Rcp in Tcl
  21 Jul 2011 — sock -blocking 0 -buffering none append data(line) [read $sock ] if {[regexp "(.*)\0(.*)\0(.*)\0(.*)\0$" $data(line)]} { set l [split $data(line) "\0"] set data(stderr) [lindex $l 0] set data
• RSS
  29 Apr 2015 — Summary [http://www.purl.org/rss/1.0/] or Really Simple Syndication [http://blogs.law.harvard.edu/tech/rss] (at least as of RSS 2.0 [http://www.intertwingly.net/stories/2002
• RssPoint
  02 Feb 2012 — root nodeName] rss]} { set root [lindex [$name childNodes] 0] } set count 0 foreach n [$root childNodes] { if {[string equal -nocase [string range [$n nodeName] 0 3] "item"]} { incr count foreach o [$n
• RSSReader GUI
  31 Aug 2011 — enterTag { id } { set start [ lindex [.text tag nextrange $id 0.0 end] 0] set end [ lindex [.text tag nextrange [expr $id +1 ] 0.0 end] 1] .text tag add sichtbar $start $end
• rsync
  24 Sep 2018 — the full batch file: http://supremexen.com/download-wikit-rsync/ Synopsis: Ran the installer cwRsync_2.0.10_Installer.zip Then found the example batch file, modified it by adding one line
• Rsynth
  04 Apr 2006 — compared to other systems (only about 5k LOC). BSD ports/package systems have rsynth. Version 2.0 sources can be found here: http://www.speech.cs.cmu.edu/comp.speech/Section5/Synth
• Rsynth Say Frontend
  01 Feb 2018 — range $ff_var 0 0].[string range $ff_var 1 end] } elseif {[string length $ff_var] == 1} { set k_var ".0$ff_var" } else { set k_var 1.0 } #puts $k_var
• rtext
  02 Jan 2009 — style(italic) -font italicFont \ -onvalue 1 -offvalue 0 -font italicFont pack .tb.bold .tb.italic -side left set style(bold) 0 set style(italic) 0 .rtext tag configure normal -font normalFont .rtext
• Ruby
  10 Apr 2015 — f| f.read.split.map {|a| a.to_i}.each_slice(2).inject(0) {|sum, pair| sum + pair[0] * pair[1]} } puts sum [Dec] The Tcl, although I would code it slightly
• Ruff!
  02 Nov 2013 — documentation generation system for programs written in the Tcl programming language. [APN] 2009-06-20 Ruff! 0.4 has been released. Enhancements are cosmetic and improved cross-linking. * Ruff! documents namespaces, procedures
• Rule the World with Tcl, Tcom and Google Earth
  05 Mar 2018 — the center of Earth=0 # <azimuth> Azimuth angle in degrees. Looking North=0, East=90, South=180, West=270 # <speed> Speed factor. Must be >= 0, if >=5.0 it's the teleportation
• Run code from clipboard
  08 Mar 2006 — pstring} { .out.output insert end "> $pstring\n" } proc viewclip {w} { $w delete 1.0 end $w insert 1.0 [clipboard get] } set runsecure 1 . configure -padx 5 frame .ctrl -pady 5 -pady
• Runge-Kutta
  07 Jun 2012 — at time =0.5 decay should be exp(-1)=0.367879441171 the solver gives 0.367885238126 at time =1.0 decay should be exp(-2)=0.135335283237 the solver gives 0.135339548431
• Runnable Images
  12 Aug 2012 — of Tcl image viewing code that displays the image when executed. ====== #! /bin/sh # \ exec tclsh8.5 "$0" ${1+"$@"} set f [open $argv0] fconfigure $f -eofchar \x1a read $f seek $f 1 current
• Running an external program with a timeout
  01 Apr 2014 — 1 puts "Killed the process" }] vwait finished } proc getinput {infile} { global finished if { [gets $infile line] >= 0 } { puts $line } else { puts "Closing input ..." catch { exec tskill [pid $infile] } msg puts $msg close
• Running starkits without Tclkit
  18 Jan 2013 — error "unknown extension : $ext"} } $cmd $__load $__load.0 set argv0 [lindex $argv 0] set argv [lrange $argv 1 end] lappend auto_path $__load.0/lib source $__load.0/main.tcl ====== <<categories>> Tclkit
• Running tcl scripts directly on Windows command line
  23 Oct 2012 — a cmd.exe window: ====== C:\projects>argscheck.tcl 23 45 "the rain in spain" num args = 0 argv0 = '' argv = '' ====== After realizing that each file type has an associated executable I was able
• Running WEAP from Tcl with tcom
  20 Jan 2013 — weapobj Directory] "WeapErrors.txt"] $weapobj ActiveArea "Weaping River Basin" $weapobj ActiveScenario "Supply Measures" for {set GrowthRate 0} {$GrowthRate < 6} {incr GrowthRate} { set varobj [$weapobj BranchVariable {\Demand Sites\South City:Annual Activity Level
• Ruslish
  16 Oct 2013 — t delete 1.0 end switch $to_which { "to rus" { .out.t insert 1.0 [ruslish:cyr [.in.t get 1.0 end]] } "to eng" { .out.t insert 1.0 [ruslish:lat
• russian on-screen keyboard
  02 Aug 2011 — l -row 0 -column 0 -padx 5 -pady 5 grid .mf.min_l -row 0 -column 1 -padx 5 -pady 5 grid .mf.maj -sticky nsew -row 1 -column 0 -padx 5
• Sacks spiral
  10 Jun 2012 — proc IsPrime { n } { if {$n==1} {return 0} set max [expr {int(sqrt($n))}] set d 2 while {$d <= $max} { if {$n%$d == 0} {return 0} incr d } return 1 } # Return the
• Safe XOTcl object creation
  10 Aug 2010 — or [my]. } } SafeInit instproc birth-with {args} { set script [lindex $args end] set args [lrange $args 0 end-1] set name [SafeInit autoname ::xotcl::stk__#] return [my create $name [list -eval $script
• safe.eval
  05 Dec 2006 — list] set expand 0 foreach arg $args { if {"~~" == $arg} { lappend cmd ~ set expand 0 } elseif {"~" == $arg} { set expand 1 } elseif {$expand} { foreach a $arg { lappend cmd $a } set expand 0 } else { lappend
• SafeKit sets up a chroot jail
  20 Jan 2014 — argc, char** argv) { if (chroot(".") != 0) return 1; if (seteuid(getuid()) != 0) return 2; argv[0] = "/tclkit"; if (execv(argv[0], argv) != 0) return 3; return 0; } === [SEH] -- How portable is this
• safely source a file
  19 Jun 2011 — invokehidden safeinterp source $path}] != 0} { #Handle error, e.g.: puts stderr "An error occurred while reading $name from $path." } elseif {[llength [interp eval safeinterp info commands $name]] == 0} { #Handle error, e.g
• Sales Optimal Lot Order Size and eTCL Slot Calculator Demo Example
  30 Sep 2018 — 0 50.0 5.0 7.0 1.0 10.0 100. 1.4} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 100.0 1000.0 10.0 7.0 1.0
• Salvatore Sanfilippo
  31 May 2014 — variable Delay variable Flag set deliver 1 set Flag 0 set LastEvent [list $keycode 0 [clock clicks -milliseconds]] update if {$Flag} { set deliver 0 } if {$deliver} { $userHandler $keycode } } #################################### Example ################################### catch {console show
• Same Fringe
  04 Apr 2018 — return {} } proc worker {tree} { if {[llength $tree] == 0} { # empty subtree return } elseif {[llength $tree] == 1} { # leaf node yield $tree } else { # internal node worker [lindex $tree 0] worker [lindex $tree 1] } } ====== With that
• Same Game
  20 May 2008 — are retained in saved games * Save Game / Load Game capability * Requires TCL and TK versions 8.0 or newer to be installed * The Same Game source code for TCL and TK is
• Sample installation script
  27 Sep 2012 — create photo logo -file [file join [file dirname [info script]] mybanner.gif] $cnv create image 0 0 -image logo -anchor nw $cnv2 create text 20 5 -text "My app:" -anchor nw $cnv2
• SampleExtension
  19 Aug 2018 — all.tcl file included in sampleextension is quite old and seems buggy (It always reports "Sourced 0 Test Files" for me). So you may want to replace this file with the version
• SAOTk
  04 Jul 2011 — variable current(zoom) -value {0.0625 0.0625} -command {frame1 zoom to $current(zoom)} .menuBar.zoom add radiobutton -label "1/8" \ -variable current(zoom) -value {0.125 0.125} -command {frame1 zoom
• SAP NetWeaver RFC Tcl-API
  11 Jul 2017 — PROGRAM_ID=NWTEST1 GWHOST=192.168.0.100 GWSERV=sapservice ASHOST=192.168.0.100 SYSNR=123 CLIENT=001 USER=sapuser PASSWD=sappasswd LANG=DE TRACE=0 ====== The contents must be modified
• SASL and TWAPI
  14 Dec 2013 — sspi_handles($context) switch -exact -- $cont { continue { return 1 } done { return 0 } } } proc ::SASL::sspi::serverproc {mech context challenge args} { upvar #0 $context ctx variable sspi_handles if {$ctx(count) == 1} { # allocate
• Sather
  10 Jan 2015 — Where: ftp://ftp.icsi.berkeley.edu/pub/sather/Sather-1.1.tar.gz Description: Version v1.0.6 of Sather includes a Tk browser. More info available at http://www.icsi.berkeley
• save the whole runtime environment to a file and restore it later
  23 Jul 2012 — restore_state {} { uplevel { fileutil::foreachLine l $::statefile { if {[lindex $l 1] == "type"} { continue } if {[lindex $l 0] == "a"} { array set [lindex $l 1] [lrange $l 3 end] # puts "setting a [lindex $l
• savedefault
  19 Jul 2016 — name [lindex $item 0] set val [lindex $item 1] set arr($name) $val } return } set istream [::ini::open $ini(INI_FILE)] set sections [::ini::sections $istream] set cnt 0 foreach s $sections
• Saving all Procedures
  16 Dec 2011 — n} } { global nnn set nnn $n uplevel #0 { set ooo {} foreach i [lsort -dict [info procs]] { if {[lsearch $defaultprocs $i] == -1 && [string index $i 0] != "\$" && ![string match tcl* $i] && ![string match tk
• Saving Bwise widgets on the canvas
  24 Jan 2011 — uplevel #0 { set ooo {} foreach bi [tag_and {block}] { set b [block_name_fromid $bi] foreach i [lsort -dict [info vars $b.*]] { if {[string index $i 0] != "\$" && [array exists $i] == 0} { eval
• SAX
  10 Sep 2012 — if {$name eq "bar"} {array unset ::g} } proc ee name { global g set ::S [lrange $::S 0 end-1] ;# pop if {$name eq "bar"} { puts $g(grill)=$g(baz) } } proc ch str
• scale
  06 Feb 2017 — Linear'' numeric input (e.g. 1-100) it looks. For logarithmic input (e.g. 0.001-100.0) it looks I need to roll my own, and the scale widget is not
• Scale widget
  01 Jan 2015 — resolution <= 0) { return value; } value = value + scalePtr->fromValue; tick = floor(value/scalePtr->resolution); new = scalePtr->resolution * tick; rem = value - new; if (rem < 0) { if (rem <= -scalePtr->resolution/2) { new = (tick - 1.0
• Scaled Radiobutton
  16 Aug 2018 — padding {0 0 0 3}} 2 {chars {\u25cc \u25cf} padding {0 0 0 3}} 3 {chars {\u26aa \u26ab} padding {0 0 0 0}} 4 {chars {\u25cb \u25c9} padding {0 0 0 3
• scaling and scrolling a canvas
  28 Mar 2011 — rectangle 0 0 2 2 -fill black ;# Origin .c create rectangle 148 148 152 152 -fill black ;# Centre circle # # Set up a default scroll region # .c configure -scrollregion [list 0 0 [.c
• scan
  23 Nov 2017 — produces a list of numbers found in the data: ====== scan {planet1 0.330 planet2 4.87} {planet1 %g planet2 %g}; #-> 0.330 4.87 ====== ** [Unicode] Character to `\u` Sequence ** Simple, but handy
• Scan an EAN-13 barcode from an image
  19 May 2012 — 0] foreach item [lrange $list 1 end] { set val [expr {$val+$item/2}] } return $val } proc scanline { line {threshold 125} } { set isbar 0 set prev 0 set width 0 set c 0
• Scan and modify text files
  25 Feb 2017 — line] >= 0 } { set nextline 0 set id -1 set insection 0 foreach {start stop} $section_data active $section_active { incr id if { $active } { if { [regexp $stop $line] } { lset section_active $id 0
• scan tcp port
  08 May 2014 — format "%Y%m%dT%H:%M:%S"] puts -nonewline stderr "$now;" set k 65535 while {$k > 0} { if [catch { set s [socket -server accept $k] close $s }] { puts -nonewline stderr "$k," } set
• scanvas
  15 Sep 2011 — irrational/tcl/scanvas1.0/scanvas.txt] ---- [http://web.tiscali.it/irrational/tcl/scanvas1.0/demo.gif] ---- '''Download:''' * scanvas1.0.zip [http://web.tiscali.it/irrational/tcl/archive/scanvas1.0.zip] <<categories>> Package
• scanxxx without tclx
  09 Dec 2012 — scan 0 while {1} { incr __scan variable scancontext$__scan if {![array exists scancontext$__scan]} { break } } set scancontext[set __scan]() 1 return scancontext$__scan } } "delete" { variable [lindex $args 0] unset [lindex $args 0
• Scene
  02 Jul 2008 — 0} { set hue [expr {360.0*(0.2+0.7*($z-$zmin)/($zmax-$zmin))}] set color [hsv2rgb $hue 1.0 0.8] $w color $color } else { set red [expr {0.2+(0
• SCGI
  19 Sep 2018 — headers $sock $length $data]] return } else { set headers [string range $data 0 $length-1] set headers [lrange [split $headers \0] 0 end-1] set body [string range $data $length+1 end] set
• Scheme
  31 May 2014 — what how} { if {[llength $what] == 1} { uplevel 1 set $what [list $how] } else { proc [lindex $what 0] [lrange $what 1 end] $how } } ====== ======none % define x 42 42 % define {+ x y} {expr {$x
• Scheme Tk
  21 Aug 2017 — 1999-10-01 (version 4.0.1) |& &| License | Custom non-[copyleft] (since version 4.0) |& STk takes Tcl and Tk (8.0 in STk versions 3.99–4.0.1) and replaces Tcl
• SchrodingerTcl
  12 Feb 2018 — any Tcl program ## Author: Kristoffer Lawson, setok@setok.co ## Idea from Tiago Roberti Sampaio set ChaosFactor 0.5 set SchrodingerBody { ::chaos::if {rand() < $::ChaosFactor} { ::chaos::return } } proc chaosify {cmd} { rename $cmd ::chaos
• SciLab
  06 Jun 2014 — scale .w.scx -from 0 -to 200 -length 200 -resolution 1 -label X \ -orient horiz -bd 1 -showvalue true -variable x \ -command ComputeDistance scale .w.scy -from 0 -to 200 -length 200
• Scissors, stone, paper
  03 Jul 2012 — scissors 0 scissors,stone 2 scissors,paper 1 stone,scissors 1 stone,stone 0 stone,paper 2 paper,scissors 2 paper,stone 1 paper,paper 0 } switch $match($what,$computer) { 0 {flash
• SCM
  04 Apr 2015 — in [Fossil]. ** Non-Tcl Issue Tracking Tools ** [Bugzilla]: open-source, long history, widely-used. Bugzilla 1.0 was written in Tcl, with later versions written in [Perl]. ** Description ** The two expansions of
• scope
  27 Dec 2015 — string]. It is the namespace associated with the top-level call frame, as accessed via `[uplevel] #0`. `[global]` references the global namespace. '''call frame''': The local variable scope of an invoked command
• scope exit
  01 Oct 2009 — something];#" catch {uplevel 1 $script} rv ro return -options $ro $rv } proc test-hard-try {{yieldfromtheinside 0}} { try-sooo-hard { puts "Setting a variable" set fd 1 try-sooo-hard { puts "Nested
• scopebutton
  21 Aug 2009 — menubuttons because they # add interface and programming complexity. # ------------------------------------------------------------------------- package provide scopebutton 0.1 if { [info patchlevel] < 8.5 } { package require tile 0.8 } namespace eval ::scopebutton:: { variable wLocals namespace export scopebutton set
• scopedobject
  01 Jul 2012 — Doc can be found in http://purl.org/tcl/home/man/iwidgets3.0/scopedobject.n.html <<categories>> Command | incr Widgets
• Scotch Yoke
  21 Jun 2015 — lindex [.c bbox peg] 0] RotateItem .c peg 0 0 $dir set x2 [lindex [.c bbox peg] 0] set dx [expr {$x2 - $x1}] .c move rod $dx 0 } DoDisplay Gears Rod Blocks
• Scotty
  10 Nov 2015 — get 3.0 out of the door and hence the official version described on the Web page is still 2.1.X, even though many people are using 3.0 snapshots and
• Scotty in 2004
  28 Aug 2012 — seem monotonically to be falling away. [CL] no longer can easily find downloadable 3.0. I favor 3.0, even though Juergen calls it "alpha"; that simply reflects Juergen's high standards
• SCPI GPIB
  23 Jun 2012 — 2000} {tpoll 100} } { variable cpoll variable data set cpoll(0) 0 # Wait for Standard event OPC set time 0 set cpoll($id) 0 while { ([set res [gpib serialpoll -device $id]] & 0x20 ) != 0x20
• Scratchpad
  16 Sep 2013 — txt yview} grid .txt -sticky nsew -row 0 -column 0 grid .vbar -sticky ns -row 0 -column 1 grid columnconfigure . 0 -weight 1 grid rowconfigure . 0 -weight 1 bind . <Key-F5> {console
• screensaver
  11 Jan 2013 — zero or the widget will stand still.. set IncrementX($widget) 0 set IncrementY($widget) 0 while { $IncrementX($widget) == 0 && $IncrementY($widget) == 0 } { set IncrementX($widget) [expr { int(rand()*($IncrementThreshold*2)-$IncrementThreshold) }] set
• Script initialization - my own personal skeleton
  04 Sep 2013 — 14945 set auto_path [linsert $auto_path 0 [pwd]]; puts "\$auto_path: $auto_path\n" puts "package require initscript 0.4: [package require initscript 0.4]\n" puts "_initScript ...: [_initScript execx bgexec
• Script to merge C source files
  09 Jul 2012 — 2001 jcw@equi4.com set verbose 0 if {[lindex $argv 0] == "-v"} { set verbose 1 set argv [lrange $argv 1 end] } set inf [lindex $argv 0] set outf [lindex $argv 1] set
• scriptable OO
  27 Jul 2009 — lindex [info level -1] 1] set classmy [info object namespace $class]::my if {[llength [info level 0]] == 4} { uplevel 1 [list self method $name $args $body] } uplevel 1 forward $name $classmy $name
• scriptaculous
  01 Sep 2013 — li.selected { background-color: #ffb;} div.autocomplete ul li { list-style-type:none; display:block; margin:0; padding:2px; /* height:32px; */ cursor:pointer; } ---- Now we have a text field with autocompletion on
• Scripted Lexing
  28 Nov 2016 — Ruby, and Tcl into standalone applications. ---- '''lexbase.tcl''' ====== # -*- tcl -*- # Lexing in general package provide lexbase 2.0 namespace eval lexbase { namespace export DefStart DefEnd DefWS DefI DefP DefK DefM DefRxM lex } # Three
• Scripted List
  19 Feb 2018 — n]} { set parts {} set part [string trim $part] if {$part eq {}} { continue } if {[string index $part 0] eq {#}} { continue } #Here, the double-substitution via uplevel is intended! lappend res {*}[uplevel list $part
• scripted templates
  05 Mar 2018 — continue } if {[string index $part 0] eq {#}} { continue } set idx [string first [string index $part 0] $oldpart] set oldpart1 $oldpart set newws [string range $oldpart[set oldpart {}] 0+$offset $idx-1] if
• scripting
  24 Mar 2009 — Tcl's creator, [John Ousterhout], about scripting [http://home.pacbell.net/ouster/scripting.html] ---- "The State of the Scripting Universe" [http://www.devsource.com/article2/0,1759,1778141,00.asp] ---- !!!!!! %| [Category Glossary] |% !!!!!!
• Scripting formula manipulations in Maxima with results in PostgreSQL
  20 Apr 2015 — pg_quote "$rr"]"] 0] 0]]} 205614 114274 microseconds per iteration (Tcl) 361 % time {puts [string length [lindex [ lindex [dosql "select f from derivatives2 where f = [pg_quote "$rr"]"] 0] 0]]} 205614 115478
• Scripting with Tcl for computer graphics animation
  10 Nov 2014 — set i 0} {$i<50} {incr i 2} { set f [open rn.pyg w] puts $f $t puts $f "Rotate ( $i, 0,0,1)" puts $f "Rotate ( 0, 0, 0, 1 )" puts
• ScriptIt!
  29 Jul 2011 — a console to aid in debugging, without having to save the file. Currently at version 0.0.2b. Updated: 05/2001 Contact: mailto:indmold@publicnetworking.org ---- [SO] As the author of Tk
• scrodget
  18 Oct 2017 — changed that ''-padx/y'' to 0, ie:- grid $internalW -in $win -padx 0 -pady 0 -row 1 -column 1 -sticky news grid $sb -padx 0 -pady 0 -row $r -column $c -sticky
• scroll
  21 Jul 2012 — Identifier: scroll Version: 0.0.1 Title: scroll package for Tcl/Tk. Creator: Mark G. Saye <markgsaye@gmail.com> Description: A scroll widget, which contains a scrollable widget (such as a listbox
• Scroll bars that appear only when needed
  09 Jan 2016 — horizontal -command [list .t xview] grid .t -row 0 -column 1 -sticky nsew grid .y -row 0 -sticky ns \ -column 2; # change to -column 0 for left-handers grid .x -row 1
• Scrollbar tutorial
  01 Aug 2012 — sby set 0 1" be printed. This is what would be directly executed if we left out the "showargs", in order to set its slider to start at top (0) and extend
• scrolled area
  14 Apr 2016 — list_of_canvas_properties] grid $scrolling_area -row 0 -column 0 -sticky news grid rowconfigure $widget_path 0 -weight 1 grid columnconfigure $widget_path 0 -weight 1 set list_of_innerframe_properties
• Scrolled frame, canvas, auto scrollbars
  27 Jan 2014 — scrollbar $pa.x -ori hori -command "$w xview"] -sticky ew grid columnconfigure $pa0 0 -weight 1 grid rowconfigure $pa0 0 -weight 1 } #-- Example, with a canvas canvas .c -background beige .c create
• Scrolled listbox widget -Display a list, pick any item then perform some follow up action.
  22 Apr 2016 — fill y pack $w.list -side left -fill both -expand 1 set j true set indx 0 foreach i $values { $w.list insert end $i if {$j} { set j false $w.list
• scrolled.frame
  27 Jan 2012 — column 0 -sticky we grid .fm.yscroll -row 0 -column 1 -sticky ns grid .fm.sf -row 0 -column 0 -sticky news grid rowconfigure .fm 0 -weight 1 grid columnconfigure .fm 0
• scrolledcanvas
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/scrolledcanvas.html and http://purl.org/tcl/home/man/iwidgets3.0/scrolledcanvas.n.html ---- [Category Command], a part of [incr Widgets]
• scrolledframe
  21 Jul 2011 — at http://incrtcl.sourceforge.net/iwidgets/iwidgets/scrolledframe.html and http://purl.org/tcl/home/man/iwidgets3.0/scrolledframe.n.html ---- '''See also''' * [A Scrolled Frame] * [Scrolled.Frame] <<categories>> Command | Itcl | Widget
• scrolledhtml
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/scrolledhtml.html and http://purl.org/tcl/home/man/iwidgets3.0/scrolledhtml.n.html ---- [Category Command], a part of [incr Widgets]
• scrolledlistbox
  09 Aug 2012 — http://incrtcl.sourceforge.net/iwidgets/iwidgets/scrolledlistbox.html and http://purl.org/tcl/home/man/iwidgets3.0/scrolledlistbox.n.html ---- [LV] Is there a '''simple''' way to add the ability to reposition
• scrolledtext
  07 Feb 2016 — http://incrtcl.sourceforge.net/iwidgets/iwidgets/scrolledtext.html and * http://purl.org/tcl/home/man/iwidgets3.0/scrolledtext.n.html 2002-06-21 - [Marty Backe]'s example of displaying a file in
• ScrolledWindow
  29 Dec 2015 — resize the window to see the scrollbars in action for { set i 0 } { $i < 20 } { incr i } { for { set j 0 } { $j < 20 } { incr j } { set nm [format "%s.b_%s_%s
• scrolling explained
  06 Jul 2015 — t1) / ($t2 - $t1)}] } # some stuff for the demo proc hide {} \ { .c xview moveto 0.0 .c yview moveto 0.0 } button .v -text view -command {view hidden} button .h -text hide -command
• Scrolling widgets and borders
  11 Feb 2011 — w .c.f .c create window 0 0 -window [frame $w] -anchor nw -width 100 -height 150 bind $w <Configure> {.c configure -scrollregion [list 0 0 %w %h]} # Basic content; scrollable windows
• Scrolling widgets without a text or canvas wrapper
  02 Nov 2014 — set i 0} {$i<$width} {incr i} { grid columnconfigure . $i -weight 1 after idle grid columnconfigure . $i -minsize \[winfo reqwidth .lb0] } grid rowconfigure . 0 -weight 1 after idle grid rowconfigure . 0 -minsize
• scwsd
  04 Sep 2011 — line: $line" } return } set state [string compare $readCount 0],$data(state),$data(proto) switch -- $state { 0,mime,GET - 0,query,POST { push $sock } 0,mime,POST { set data(state) query } 1,mime
• SDX Enhancements
  18 Mar 2018 — compress - set vfs::mk4::compress 0 + if {[info exists vfs::mk4::compress]} { + set o $vfs::mk4::compress + } + if {[namespace exists vfs::mk4]} { + set vfs::mk4::compress 0 + } foreach f $explist { file delete
• sdx extensions
  08 Feb 2013 — vfs/lib. When looking for the package name it tries lowercase and also [[lindex [[split $pkg :]] 0]] (e.g. style::as). "sdx fill" isn't a replacement for a proper repository, but
• SDynObject
  14 Jul 2009 — but don't blame me. package provide SDynObject 1.0 set ::sd_instance_cmd { if {1 == [llength $args]} { return [set objAr([lindex $args 0])] } elseif {2 == [llength $args]} { array set objAr $args
• Sea Island Height Slot Calculator Example
  30 Sep 2018 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff " .frame.entry7 insert 0
• Sean Deely Woods
  01 May 2013 — Tcl/Tk Conference]. ---- '''Nerd Creds''' * I brought the serial port to the Macintosh in Tcl 8.0/8.1 with my Odie extension. * Developer for Tclhttpd * Wrote my own object system [Tao
• Search dialog package
  28 Jul 2016 — see documentation. License: [OLL] as always. Have fun! [wdb] Update: updated version 0.2 ====== #!/usr/bin/wish # # file: textSearchWindow-0.2.tm # # usage: textSearchWindow $textwidget # opens search dialog # # Button "Search" selects search
• Search Engine in Javascript
  10 Oct 2006 — 0] } else { set startFile [lindex [glob *.htm*] 0] } proc leadFragments word { lappend result $word while {[string length $word] > 1} { set word [string range $word 0 end-1] if {[lsearch $result $word] < 0
• Searching A Star In Space
  06 Jul 2011 — label .0 -textvariable solution(steps) -relief raised set ::searcher [lindex $::searchers 0] eval pack [winfo children .] -fill x # stepper for wish without stdin: bind .0 <1> {incr solution(steps)} bind .0 <3
• Searching in a text widget
  05 Mar 2018 — w what tag _status} { upvar #0 $_status status $w tag remove $tag 0.0 end if {$what == ""} { set status "" return } set cnt 0 set cur 0.0 while 1 { set cur [$w
• sed
  19 Nov 2014 — i" [string tolower $flag]]>=0} { lappend cmd -nocase } set idx [regsub -all -- {[a-zA-Z]} $flag ""] if { [string is integer -strict $idx] } { set cmd [lreplace $cmd 0 0 regexp] lappend cmd -inline
• SEE
  10 Sep 2012 — them all: tk::TextSetCursor $toplevel.text_widget 5.0 $toplevel.text_widget see 1.0 The first line positions the cursor at 5.0. The second line makes you "see" from the
• Seeker: A Case Tool Based on OO Sequence Diagrams
  03 May 2012 — you have to change the startup script Seeker.tcl: + # automatically loads Itcl and Itk ! # package require Iwidgets 3.0 + package require Iwidgets + + namespace import itcl::class <<categories>> Application | Dev. Tools | Object Orientation
• select
  05 Sep 2012 — associated variable contains, and does not change the variable if canceled. proc select {what _var} { upvar #0 $_var var set res "" switch -- $what { dir {set res [tk_chooseDirectory -initialdir $var]} file {set
• Selecting visually different RGB colors
  28 Sep 2018 — 0.0 ? 0.0 : $r > 1.0 ? 1.0 : double($r)}] set g [expr {$g < 0.0 ? 0.0 : $g > 1.0 ? 1.0 : double($g)}] set b [expr {$b < 0.0
• Selection Box
  24 Aug 2013 — pXoffs))>=([lindex $geo 0 0]+[lindex $geo 1])} { set x [lindex [split [split [wm geo .t] x] +] 0 0] } if {($y+$::selectionBox::Box(startY)-$::selectionBox::Box(pYoffs))>=([lindex $geo 0 1]+[lindex
• selectionbox
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/selectionbox.html and http://purl.org/tcl/home/man/iwidgets3.0/selectionbox.n.html ---- [Category Command], a part of [incr Widgets]
• selectiondialog
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/selectiondialog.html and http://purl.org/tcl/home/man/iwidgets3.0/selectiondialog.n.html ---- [Category Command], a part of [incr Widgets]
• Selenium
  17 Aug 2017 — 0.90 and FireFox 2.0.0.2 (at least on Mac OS X), which causes the Selenium proxy (written in Java) to hang on startup. AFAIK, FireFox 2.0.0.0
• self call
  08 Apr 2014 — index into the first element's list that indicates which actual implementation is currently executing (the first implementation to execute is always at index 0). <<categories>>Command | Tcl Syntax Help | Object Orientation
• Self Documented Online Library & Help
  08 Jun 2007 — s Internet Toolkit], take a look at ''Site.tcl' file. if {($::ENV == "dev") && ([info exist ::callback] == 0)} { put [tk::help::init] } Above code says that if the environment is "dev", include an
• SELF extension
  09 Feb 2018 — err # use the Point factory which will define x and y slots Point create p1 0 0 # to_s will now work puts [p1 to_s] ====== '''Intercepting slot calls for debugging purposes
• Self on a class-based OO system
  18 Oct 2017 — args 0]] set body "\[self\] slot [list $name] \$val" ::oo::define [oo::InfoObject class [self]] method $name: {val} $body } else { ::oo::define [oo::InfoObject class [self]] method $name [lindex $args 0] [lindex
• Self Programming Language
  25 May 2014 — lindex [info level 0] 0] set slot [lindex $args 0] set old_self [interp alias {} self] interp alias {} self {} ::self::selfcmd $self set slot_value {} if {[llength $args]==0} {return $self} if
• self-modifying code
  29 Apr 2013 — then! % Of course, this isn't restricted to rewriting the body of procedures: ====== proc intgen {{i 0}} { proc intgen "{i [expr {$i+1}]}" [info body intgen] return $i } ====== [RLE] (2011-05-21
• Self-rewriting code
  09 Jul 2011 — filename varlist} { set f [open $filename] set data [read $f] close $f set lines {} set inSaveSection 0 foreach line [split $data \n] { if [regexp "^ *#+ *VARIABLE SAVE SECTION" $line] { if {!$inSaveSection} { # Start of
• Selfish
  08 Apr 2014 — Description ** [MJ]: Is this a bug in slot lookup? ======none % set a [selfish::baseObject clone] ::selfish::0 % ::selfish::slot ::selfish::baseObject test {} {puts test} foo % $a test SelfishError exception thrown: Could not
• Semantics of the oo::class command
  09 Sep 2015 — class create Boo { method boo {} { puts "ouch" } } } ====== causes the following problem: `> package require boo` <<br>> `1.0` <<br>> `> package forget boo` <<br>> `> package require boo` <<br>> `can't create object "Boo": command
• semaphores
  13 Jul 2018 — integer >= 0, and supports two atomic operations: ''P(S)'' (or ''wait'') and ''V(S)'' (or ''signal''). ''V(S)'' atomically increments the value of ''S''; ''P(S)'' atomically decrements it if ''S > 0
• send
  26 Jan 2015 — proc send::send {args} { array set opts [list displayof {} async 0] while {[string match -* [lindex $args 0]]} { switch -exact -- [lindex $args 0] { -displayof { set opts(displayof) [Pop args 1] } -async { set opts
• Sendmail
  02 Sep 2013 — 03/06/02) ## ################################################################## ## Send SMTP to mail host. proc sendmail {smtphost toList from subject body {trace 0}} { if $trace then { puts stdout "Connecting to $smtphost:25" } set sockid [socket $smtphost 25] puts
• Sensus ldap
  22 Aug 2017 — heavy production use since mid 98'. ** Attributes ** website: [https://web.archive.org/web/20130730202916/www.sensus.org/tcl/] current release: 3.0 release time: 1999 license: bsd-style <<categories>> library | ldap | client
• separator
  28 Sep 2018 — width 0 -padx 0 pack [frame $path.inner -relief groove -borderwidth 1 -width 0 -padx 0] -expand yes -fill both pack [label $path.inner.lbl -text {} -borderwidth 0 -width 0 -padx 0
• Sequential correlations and the output of rand
  18 Jul 2011 — as follows: %| step | new index | ''y'' | ''index(0)'' | ''index($j)'' |% &| 0 | ''j'' | 0 | 0 | ? |& &| 1 | 0 | 0 | ''j'' | ? |& &| 2 | 0 | ''j'' | 0 | ? |& &| 3 | 0 | ? | 0 | 0 |& Finally, in a state with unknown
• Serial Port
  13 Sep 2017 — fh -blocking 0 -buffering none \ -mode 9600,n,8,1 -translation binary -eofchar {} # Loop nTries times, sending AT to modem and expecting OK. set nMatches 0 for {set i 0} {$i < $nTries
• Serial Port Logic Analyzer Screen Capture
  15 Dec 2015 — 0} {break} incr i1 4 set str [string range $r $i1 [expr $i1 + 85 - 1]] binary scan $str c85 l set x 0 foreach c $l { for {set i 7} {$i >= 0
• Serial summing
  31 May 2014 — 2}] add-dx $b] * $dx} } proc add-dx x {expr {$x+$::globaldx}} % integral0 cube 0 1 .0016 ==> 0.2499996800000055 ====== Here however I had to start to compromise: instead of Scheme's lexical
• serializable Safe Slave Interp
  12 Jan 2012 — command passThrough $interp $command } $interp alias rename slaveRename $interp } proc passThrough args { set interp [lindex $args 0] set command [lindex $args 1] set args [lrange $args 2 end] set temp [list $interp
• Serializing a bitmap
  30 Apr 2016 — cmd set cmd "image create bitmap" # set name switch -glob -- $args \ { -non* { } "" { append cmd " [lindex $image 0]" } default { append cmd " $args" } } # set options foreach option [lindex $image 1] { append cmd " $option" } # create
• Serializing a canvas widget
  17 Sep 2009 — non empty options list # ---------- proc options {options} \ { set res {} foreach option $options \ { set key [lindex $option 0] set value [lindex $option 4] # due to bugs in canvas widget, must save all options
• Serializing a photo
  05 Dec 2011 — non empty options # --------------------- proc options {name} \ { set res {} foreach option [$name configure] \ { set key [lindex $option 0] set value [lindex $option 3] if {$value != ""} { lappend res [list $key $value] } } return $res } # --------------------- # photo
• Serializing a text widget
  20 Jan 2013 — the state of the widget set dump [$w dump -mark 1.0 end] append dump " " append dump [$w dump -all 1.0 {end -1 ch}] # add more details foreach {key value index
• Serializing TclOO objects
  01 Sep 2010 — produces this output: ====== TclOO::serializer 0.1 {nsvars {{scalar foo ::f2}} name ::f1 class ::foo objects {{nsvars {{scalar foo <unset>}} name ::f2 class ::foo objects {}}}} 2840851482 0,0 fooooo!!-::f2 fooooo!!-<unset
• Serializing things via file locks
  23 Mar 2017 — lindex $args 0]==""?$curto:[lindex $args 0]}] set lockfile [expr {[lindex $args 1]==""?$curlf:[lindex $args 1]}] set trystart [clock clicks -milliseconds] while {([clock clicks -milliseconds] - $trystart) < $timeout || $timeout == 0} { if {![catch
• ServerBasics
  15 Apr 2011 — suffix} { upvar #0 Httpd$sock data outfile outfile tclLog "prefix $prefix sock $sock suffix $suffix" if {[llength $suffix] == 0} {set suffix /0} if {[string length $suffix] < 2} {set suffix /0} set myfile
• Service Bell
  25 Nov 2017 — The first part is a wish script which is running on her laptop: ====== wm resizable . 0 0 wm title . "Service Bell" wm attributes . -toolwindow true pack [canvas .canvas -width 100 -height 100
• setlocale API
  28 Jan 2009 — iCategory = 0; char *pocCategory = (char *) NULL, *pocLocale = (char *) NULL; pocCategory = Tcl_GetStringFromObj( argv[1], 0 ); if ( stricmp( "LC_ALL", pocCategory ) == 0 ) { iCategory = LC_ALL; } else if ( stricmp( "LC_COLLATE", pocCategory ) == 0 ) { iCategory
• SetOps
  12 Jun 2012 — NEP Format] * [SetOps, Union, Results] * [SetOps, Union, Timing results, v7.6] * [SetOps, Union, Timing results, v8.0] * [SetOps, Union, Timing Script II] * [SetOps, Union, Timing Script] * [SetOps, Union] <<categories>> Andreas Kupries | Package
• SetOps, Code, 7.6
  08 May 2011 — lsearch -exact $set $element] < 0 ? 0 : 1} } proc ::setops::union {args} { switch [llength $args] { 0 { return {} } 1 { return [lindex $args 0] } default { foreach __SETA__ $args { if {[llength $__SETA__] > 0} { foreach $__SETA__ {.} {break
• SetOps, Code, 8.x
  08 May 2011 — lsearch -exact $set $element] < 0 ? 0 : 1} } proc ::setops::union {args} { switch [llength $args] { 0 { return {} } 1 { return [lindex $args 0] } default { foreach __SETA__ $args { if {[llength $__SETA__] > 0} { foreach $__SETA__ {.} {break
• SetOps, Code, 8.x v2
  23 Apr 2008 — args] { 0 {return {}} 1 {return [lindex $args 0]} } foreach setX $args { foreach x $setX {set ($x) {}} } array names {} } proc ::setops::diff {A B} { if {[llength $A] == 0} { return {} } if {[llength $B] == 0
• SetOps, Contains
  07 May 2011 — set {0, 1}. 0 = element is no member of the set. 1 = element is a member of the set. ---- Implementation: ====== proc ::setops::contains {set element} { expr {[lsearch -exact $set $element] >= 0} #expr
• SetOps, Create
  07 May 2011 — if {[llength $args] == 0} { return {} } if {[llength $args] == 1} { return $args } foreach e $args { set aa($e) . } array names aa } ====== ---- Variant B. ====== proc ::setops::create {args} { if {[llength $args] == 0} { return {} } if
• SetOps, Create, Timing Script
  07 May 2011 — time {testA $a0} 1000] 0] set rb1 [lindex [time {testB $a0} 1000] 0] set rc1 [lindex [time {testC $a0} 1000] 0] set rd1 [lindex [time {testD $a0} 1000] 0] puts stdout " $ix
• SetOps, Difference
  07 May 2011 — lsort $b] while {1} { # Store lindex/0,1 in var, access later faster ? set n [string compare [lindex $a 0] [lindex $b 0]] if {$n == 0} { # A = B => element in both, so
• SetOps, Difference, Timing Script
  01 May 2011 — lsort $b] while {1} { # Store lindex/0,1 in var, access later faster ? set n [string compare [lindex $a 0] [lindex $b 0]] if {$n == 0} { # A = B => element in both, so
• SetOps, Emptiness
  07 May 2011 — given by value, as tcl-list. Result: * A boolean value. 0 = set is not empty, 1 = set is empty ---- Implementation: ====== proc ::setops::empty {set} { expr {[llength $set] == 0} } ====== ---- -- AK <<categories>>Data Structure
• SetOps, Intersect3
  07 May 2011 — lsort $b] while {1} { # Store lindex/0,1 in var, access later faster ? set n [string compare [lindex $a 0] [lindex $b 0]] if {$n == 0} { # A = B => element in both, add
• SetOps, Intersect3, Timing Script
  08 May 2011 — lsort $b] while {1} { # Store lindex/0,1 in var, access later faster ? set n [string compare [lindex $a 0] [lindex $b 0]] if {$n == 0} { # A = B => element in both, add
• SetOps, Intersection
  02 Sep 2015 — lindex/0,1 in var, access later faster ? set n [string compare [lindex $a 0] [lindex $b 0]] if {$n == 0} { # A = B => element in intersection lappend res [lindex $a 0] set
• SetOps, Intersection, Timing Script
  01 May 2011 — lindex/0,1 in var, access later faster ? set n [string compare [lindex $a 0] [lindex $b 0]] if {$n == 0} { # A = B => element in intersection lappend res [lindex $a 0] set
• SetOps, Symmetrical difference
  07 May 2011 — lsort $b] while {1} { # Store lindex/0,1 in var, access later faster ? set n [string compare [lindex $a 0] [lindex $b 0]] if {$n == 0} { # A = B => element in both, so
• SetOps, Symmetrical difference, Timing Script
  07 May 2011 — lsort $b] while {1} { # Store lindex/0,1 in var, access later faster ? set n [string compare [lindex $a 0] [lindex $b 0]] if {$n == 0} { # A = B => element in both, so
• SetOps, Union
  07 May 2011 — results, v8.0] Summary: * From fast to slow the order of variants is: A, B, C. * v7.6 does the tests faster than v8.0 * Test system: Linux 2.0.33, gcc
• SetOps, Union, Timing results, v7.6
  01 May 2011 — 10/10/0 1039 microseconds per iteration * 01 B 10/10/0 1321 microseconds per iteration * 01 C 10/10/0 1753 microseconds per iteration -------------------------------------- * 02 A 05/10/0 871 microseconds
• SetOps, Union, Timing results, v8.0
  01 May 2011 — 10/10/0 1542 microseconds per iteration * 01 B 10/10/0 1704 microseconds per iteration * 01 C 10/10/0 2743 microseconds per iteration -------------------------------------- * 02 A 05/10/0 1247 microseconds
• SetOps, Union, Timing Script II
  01 May 2011 — b0} 1000] 0] set ra2 [lindex [time {testA $a0 $a0} 1000] 0] set rb1 [lindex [time {testB $a0 $b0} 1000] 0] set rb2 [lindex [time {testB $a0 $a0} 1000] 0] set rc1
• Setting up the .profile in the script
  17 Dec 2011 — example: #!/bin/sh #\ exec tclsh "$0" ${1+"$@"} The "#\" gets skipped because /bin/sh thinks it is a comment. When the script calls itself with the "exec $0", Tcl reads the "#\" line as
• Settings as Tcl Scripts
  12 Dec 2013 — for save/restore arbitrary states. # @author Ron Fox <fox@nscl.msu.edu> package provide StateManager 1.0 package require snit ## # @class StateManager # # Provides a mechanism to allow packages in a program to
• SEXP
  15 Sep 2013 — ll offer these tcl results: % string range [split {a b c}] 0 1 a % string range [split {{a} {b} {c}}] 0 1 {{ ''[lars h]: and what is that supposed to prove? that
• sftp
  10 Sep 2012 — line if you don't want to see any output from the script #$Expect::Log_Stdout = 0; # set your username/password here my $sftpUsername = "gerogebush" ; my $sftpPassword = "texas"; my $sftpServer = "bush.texas
• SGI IMAGE HEADER
  26 Jan 2013 — 0); strcpy(iname,"No Name"); fwrite(iname,80,1,of); /* IMAGENAME */ putlong(of,0); /* COLORMAP is 0 */ for(i=0; i<404; i++) /* DUMMY 404 bytes */ putbyte(of,0); for(y=0
• SHA-256
  27 Jul 2012 — 16 integers at a time # for {set i 0} {$i < $len} {incr i 16} { # Prepare the message scheduler # set W {} for {set j 0} {$j < 16} {incr j} { lappend W [lindex $crunch
• Shade and Tcl
  29 Apr 2018 — RGB color set r 600 set X 0 set Y 0 set Z 0 set R 1.0 set G 0.1 set B 0.1 # The UI starts here begin_dialog
• Shading a Plane With Light
  07 Jan 2018 — py grid .fpoint.lx -row 0 -column 0 grid .fpoint.ex -row 0 -column 1 grid .fpoint.ly -row 0 -column 2 grid .fpoint.ey -row 0 -column 3 pack [button .b
• Shapes and Lights - a simple canvas script
  22 Apr 2016 — 0 $arrayname thisArray .c itemconfigure blueled -fill $thisArray(dkblue) .c itemconfigure yellowled -fill $thisArray(dkyellow) .c itemconfigure redled -fill $thisArray(dkred) .c itemconfigure greenled -fill $thisArray(brtgreen) } proc bluelight { arrayname } { upvar #0
• shared-memory
  04 Aug 2013 — package provide shm 1.0 namespace eval shm { critcl::ccode { #include <sys/ipc.h> #include <sys/shm.h> } critcl::cproc get { int key } int { return shmget(key, 0, 0); } critcl::cproc new
• shell
  02 Sep 2015 — http://incrtcl.sourceforge.net/iwidgets/iwidgets/shell.html and http://purl.org/tcl/home/man/iwidgets3.0/shell.n.html ** See Also ** [Invoking tclsh or wish from Bourne Shell]: [exec magic]: another
• shell.tcl
  20 Aug 2018 — shell.t delete 1.0 proc inputText {{win .shell.t}} { # content of last input line set promptRange [$win tag prevrange prompt end 1.0] lassign "$promptRange 0 1.0" - start if {[$win
• Shin The Gin
  02 Mar 2014 — 1. 1991 Smalltalk/V for Windows 1. 1992 HTML/JavaScript 1. 1993 Tcl/Tk on Linux-0.98 (SLS) 1. 1994 Smalltalk/V Win32 1. 1996 Perl 1. 1999 PHP ---- Since 2000
• shorthand dict set
  29 Jul 2014 — proc get {args} { # usage: get dict key... # get: get value if {[llength $args] == 1} { lindex $args 0 } else { try { dict get {*}$args } trap {TCL LOOKUP DICT} {} {} } } proc exists {args} { # usage: exists var
• Shout
  17 Apr 2014 — set fd [shout -user source -mount /tclradio -format mp3 \ -genre rock -name "Tcl Radio" 127.0.0.1 8000 hackme] fconfigure $fd -buffering none set playlist [glob -nocomplain *.mp3] nextsong $fd vwait
• show encoding
  10 Jul 2016 — character set of the specified encoding, an empty string is returned. ====== proc ShowEncoding {s enc {asciip 0}} { set res "" #We handle utf-32 separately because it isn't a supported encoding if
• Show me all!
  19 Oct 2005 — line [string repeat 0 [expr {int(rand()*50)}]] .t insert {end - 1 char} $line\n } # move the display to nw .t xview moveto 0.0 .t yview moveto 0.0 update # get
• Show me an example
  03 Jan 2018 — menubar menu .menubar.help -tearoff 0 .menubar add cascade -label Help -menu .menubar.help -underline 0 .menubar.help add command -label {About Hello ...} \ -accelerator F1 -underline 0 -command showAbout # Define a procedure
• Shrinking an image
  23 Jun 2010 — 1.0 0.8 0.6} \ { set image [shrink Photo $coef] toplevel .$n wm title .$n "shrink $coef" canvas .$n.c -bd 0 -highlightt 0 .$n.c create image 0 0 -anchor
• Shrinking generator
  28 Jul 2012 — 1 $body } } proc XOR args { if {[llength $args] == 1} { set args [lindex $args 0] } set work [lindex $args 0] set args [lrange $args 1 end] foreach item $args { set work [expr $work
• Shuffle a file
  18 Jan 2013 — a random order is useful for testing. ====== if { $::argc == 0 } { puts stderr "USAGE: $::argv0 filename" return 0 } set fd [open [lindex $::argv 0] "r"] set str [read $fd] set lst [split $str
• Shuffle a list: graph results
  30 Nov 2012 — study on list shuffle procedures canvas .c -width 640 -height 480 -bg white array set color { 0 black 1 blue 1a forestgreen 2 red 3 magenta 4 darkcyan 5 gray50 5a brown
• Shuffled words
  18 Oct 2007 — if 0 {[Richard Suchenwirth] 2003-09-19} set about {According to a study of Cambridge University, the order of letters inside a word does not matter much for readability, as long as
• SiCL - A Simple Command Language
  15 Dec 2014 — A list of expressions separated by commas: e.g., `(x, y, sin(0.5)*2)` --> `[[list x y [[expr {sin(0.5)*2}]]]]` * A dictionary of expressions separated by commas, where key
• signal
  03 May 2018 — of signal usage: ====== package require Tclx 8.0 set cntrlc_flag 1 proc mysig {} { global cntrlc_flag puts stdout "Aborting current routine" set cntrlc_flag 0 } signal trap SIGINT mysig ====== The procedure
• Signing a JWT header for Google OAuth2
  12 Feb 2015 — 2.0 for Server to Server Applications%|% === The signing algorithm in the JWT header must be used when computing the signature. The only signing algorithm supported by the Google OAuth 2.0
• similarity
  10 Jan 2011 — b])/$totalLength}] 0.0 } # Testing... % stringSimilarity hello hello ;# identity implies perfect similarity 1.0 % stringSimilarity hello hallo ;# changed one out of five letters 0.8 % stringSimilarity hello Hallo ;# case matters 0.6
• SIMPL
  16 Sep 2012 — Programming the SIMPL Way] ---- ''[escargo] 17 Jun 2005'' - Support for Tclets is mentioned. Has this been tried with Firefox (e.g., 1.0.4) with the plugin? <<categories>> Package | Interprocess Communication | Internet
• Simple AJAX Example
  16 Jul 2011 — q] { alice - bob {return 1} default {return 0} } } ::ncgi::parse if {[::ncgi::exists q]} { # Background operation: check query ::ncgi::header $ctx puts "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?> <response
• Simple Animation with Megaimage
  11 Jan 2008 — height 800 set obj [megaimage-blank $canvas_width $canvas_height] $obj rectangle 0 0 $canvas_width $canvas_height {0 0 0 255} $obj rectangle $obj_x $obj_y $size $size {255 255
• Simple Base64 Gif encoder
  26 Mar 2014 — txt delete 1.0 end set fileID [open [tk_getOpenFile] RDONLY] fconfigure $fileID -translation binary set rawData [read $fileID] close $fileID set encodedData [base64::encode $rawData] .txt insert 1.0 $encodedData } proc
• Simple BDD
  19 Sep 2016 — set r {} foreach l $bl { lappend r [linsert $l 0 $ii] } set ii [expr -($ii)] foreach l $al { lappend r [linsert $l 0 $ii] } return $r } {R $a} { # We ignore current input
• Simple Block Selection for Text Widget
  01 Feb 2010 — remove sel 0.0 end set fpos [split [$wid index "@$x,$y"] "."] catch { if {[lindex $fpos 0] > [lindex $::spos 0]} { for {set sl [lindex $::spos 0]} {$sl <= [lindex $fpos 0]} {incr sl
• Simple Chaos Theory with Tcl
  29 Apr 2018 — 0 1.0 1.0 0.0 glPointSize $::pixelsize set displayListBase [glGenLists $width] } proc tclReshapeFunc { toglwin w h } { glViewport 0 0 $w $h glMatrixMode GL_PROJECTION glLoadIdentity glOrtho 0.0 $w 0
• Simple Closures and Objects
  15 Jun 2014 — map {func env list end} { if {[llength $list] == 0} { closure apply -environment env [list {} $end ::] } else { closure apply -environment env $func [lindex $list 0] after 1000 [list map $func $env [lrange $list
• Simple connection script to guide you to the start
  21 Oct 2007 — chan -error]] ne ""} { puts stderr "failed to open socket: $err" close $chan return } fconfigure $chan -blocking 0 -buffering line -translation crlf -encoding utf-8 fileevent $chan readable [list Read $chan] puts $chan
• Simple Download Progress Widget
  17 Dec 2011 — close -sticky ew grid $w.bs -sticky ew -padx {0 10} wm title $w "0% of [file tail $to]" wm resizable $w 0 0 wm protocol $w WM_DELETE_WINDOW [list ::cancel
• Simple editor for diagrams
  03 Sep 2012 — editor # # TODO: # - Properly reset the diagram stuff # - Nicer GUI # source draw_diagram.tcl package require Diagrams 0.3 namespace import ::Diagrams::* # ShowDiagram -- # Draw the diagram via the commands entered in the text
• Simple encryption
  11 Jan 2012 — the length of the string be veiled?) # 12.02.2007 © M.Hoffmann package provide crypt1 0.1 package require rc4; # tcllib; für Kennwortschlüsselung namespace eval crypt1 { variable key [binary format H
• Simple ftp uploader
  17 Jul 2013 — d be tempted to replace: ====== if 0 { #--------------- # create filelist #--------------- set files "" foreach i {jpg html css} { upload $host $user $pass $directory [glob -nocomplain *.$i] } } ====== with ====== if 0 { #--------------- # create filelist #--------------- upload $host $user
• Simple HTTP Authentication Wrapper for http::geturl RFC 2617
  17 Mar 2016 — set keepalive [dict get $options keepalive] } else { set keepalive 0 } } set cnt 0 while { 1 } { if {$token != {}} { http::cleanup $token } if {$cnt == 0} { set token [::http::geturl_original $url {*}$args -keepalive $keepalive
• simple INI-files parser/writer
  10 Sep 2017 — the file was successfully written, 0 otherwise. proc dict2ini { filepath dic {separator =}} { if { $filepath == "" } { return 0 } if { [catch { set fh [open $filepath w] }] } { # Error happened! return 0 } dict for { sect keyval } $dic
• Simple Metakit viewer using Gnocl
  22 Nov 2017 — using tclsh \ exec tclsh "$0" "$@" package require Gnocl package require Mk4tcl #--------------- # simple loader and viewer #--------------- # proc mk:viewer {dbname} { set nb [gnocl::notebook -homogeneous 1] set i 0 mk::file open db
• Simple Newsreader
  19 Jul 2006 — new news... set oldfirst [lindex $news 0 0] set oldlast [lindex $news end 0] if {$oldfirst eq ""} { set oldfirst 0 } if {$oldlast eq "" } { set oldlast 0 } if {$last > $oldlast} { foreach item [$nntp
• Simple Program Menu
  10 Mar 2017 — 1|0} -@startmenu: {1|0} -askExit: {1|0} -autoStarts: {1|0} -const -ignoreCond -logFile: Log-Datei -logSize: KiloBytes -logWait: Millisekunden -minToTray: {1|0} -mnuDir: Ordner -mnuFile: .mnu-Datei(en) -readmak: {1|0
• Simple raytracing
  21 Aug 2011 — 0.0 set cy 0.0 set cz 0.0 set radius 1.2 # Point of view set from_x 0.0 set from_y 0.0 set from_z 6.0
• Simple Records
  16 Feb 2008 — dict set map $field [lambda {record args} [format { if {[llength $args] == 0} { lindex $record %d } else { lset record %d [lindex $args 0] } } [incr index] $index]] } set cmd [list namespace ensemble create -command
• Simple Reliability Slot Calculator Example
  05 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff " .frame.entry7 insert 0
• Simple remote Tk execution - distanciel
  01 Sep 2013 — proc getincr {var {increment 0}} { upvar $var x incr x 0 incr increment 0 return [expr {$x + $increment}] } proc normalize {varname} { set i [string first ( $varname] if {$i<0} { return [list $varname
• Simple search and replace
  30 Aug 2012 — replace) dialog implemented in a pretty minimal way, yet it feels usable to me. (Called with 0 as second argument, it skips the replace elements.) [WikiDbImage searchrep.jpg] You can tie it
• Simple Search and Replace commented
  29 Nov 2006 — insert+[string length $::Find]c $w insert insert $::Replace searchrep'next $w return 1 } else {return 0} } #-- Replace all proc searchrep'all w { set go 1 while {$go} {set go [searchrep'rep1
• Simple Server/Client Sockets
  10 Sep 2016 — lvl eq "debug" && $Debug == 0} {return} puts stdout "\[$lvl\] $msg" } proc server::ConnectionHandler {chan addr port} { log debug [info level 0] variable Clients if {[catch { fconfigure $chan -blocking 0 -buffering line -translation
• Simple Space Ship Game
  21 Nov 2012 — goto_Right 0 set goto_Left 0 set goto_Up 0 set goto_Down 0 set grav_Right 0 set grav_Left 0 set grav_Up 0 set grav_Down 0 # Data
• Simple TCP/IP proxy
  16 Aug 2014 — conn [socket -async $host $port] fconfigure $sock -translation binary -buffering none -blocking 0 fconfigure $conn -translation binary -buffering none -blocking 0 fileevent $conn readable [list xfer $conn $sock] fileevent $sock readable [list
• Simple TCP/IP to serial port gateway
  03 Jul 2012 — channel puts $client "Ok" flush $client fconfigure $client -blocking 0 -buffering none -translation binary set serial [open $::comport r+] fconfigure $serial -blocking 0 -buffering none -translation binary foreach {opt val} $::comopts { fconfigure
• Simple text editor
  24 Jun 2012 — frm -column 0 -row 0 -padx 5 -pady 5 -sticky e grid .cbxFilter -in .frm -column 0 -row 1 -padx 5 -sticky e grid .btnCharInfo -in .frm -column 1 -row 0 -padx
• Simple Text Widget Sort
  07 Feb 2006 — 1.0 end set i 0 for {set j 0} {$j<[llength $lst]} {incr j} { $w insert end [lindex $lst $j]\n } # trim away the last \n $w delete "$j.0 lineend
• Simple Tkhtml web page displayer
  10 Jul 2016 — is that the way it's supposed to work? '' [DDG] 14 Nov 2003'' I think this is fixed in the new version 0.2 see [snitbrowser]. ---- **See also** * [Tkhtml] * [http] <<categories>> Application
• Simple tree layout
  12 May 2011 — llength [set root [initials g]]]!=1} {return 0} foreach i [terminals g] {set t($i) 0} ;# init tally if [catch {pathes g $root} pathes] {return 0} foreach i $pathes {incr t([lindex
• Simple tree structure
  18 Sep 2012 — public::add $mytree 0 [list "TAG" html]] {-1 0 root} {0 1 {TAG html}} tclsh8.5 [~]set mytree [tree::public::add $mytree 1 [list "TAG" head]] {-1 0 root} {0 1 {TAG
• Simple triangulation algorithm
  13 Jun 2012 — angle 360.0 } } else { set angle 0.0 ;# Hm, this is a problem! Better raise an error error "Points are equal!" } if { $angle < 0.0 } { set angle [expr {360.0+$angle}] } return
• Simple vim script to drive wish on windows
  03 Sep 2013 — tcl_ipc_initialized") tcl package require dde let g:tcl_ipc_initialized = 1 endif let running = 0 tcl ::vim::command "let running = [expr {[dde services TclEval vimsh] ne ""}]" if !running execute "silent
• Simple way to parse command options
  06 Apr 2010 — to compare the passed # options against, we won't do comparison; set the flag set compareopts 0 } set listsize [llength $passedopts] if { $listsize < 1 } { # What are we going to parse, dude? return
• Simple zooming and scaling in a canvas
  18 Jan 2013 — 2.0)}] } else { .c scale all $x $y [expr {1.0/sqrt(2.0)}] [expr {1.0/sqrt(2.0)}] } } pack [canvas .c -bg white] -fill both .c create oval 0 0
• Simple, Single Series Histogram
  03 Dec 2015 — height * 90 /100) /$j]}]} { set sf 0 } # initialize block co-ordinates set cx(1) 0 ; set cy(1) 0 set cx(2) 0 ; set cy(2) 0 foreach {a b} $data { # bar
• simpleOO
  19 Dec 2012 — parent } proc method {cname cmd args body} { set args [linsert $args 0 this] set preCmd { upvar #0 ::%cname::cdata cdata ; upvar #0 ::%cname::$this idata } regsub -all {%cname} $preCmd $cname preCmd set
• SimpleTemplater
  04 Mar 2018 — Description | Django-style templates for Tcl. |& &| Prerequisites | Tcl 8.5? |& &| Update | 2013-10 |& &| License | ? |& ** Example ** ======none {% for addr in address %} <p>{{loop.count}} Firstname: {{addr.name.0}}</p> {% endfor %} ====== <<categories>> Package | Template
• Simpletracer
  08 Feb 2005 — lappend ::log [[info level 0]]; eval expr $args}' msw Hmm exec traces are too verbose... I like miguel's suggestion :) suchenwi proc expr args {lappend ::log [[info level 0]]; set res [[expr
• Simplification of the Tcl language
  09 Dec 2008 — a '*' at the end. ====== proc args {} {uplevel set args} proc return* args { set opts {}; set i 0 foreach {o v} $args { switch -exact -- $o { -code - -errorinfo - -errorcode { lappend opts $o $v; incr
• simplified grid
  22 Apr 2016 — x [l ""] ;# extra empty row grid x [b OK generate] -sticky ew wm resizable . 0 0 } set winid 0 #---------------------- Here come the simple widget wrappers: proc b {label cmd} {button .[incr ::winid
• Simplified Robot Arm
  18 Jan 2013 — 0 0 0 0 1 0 0 0 0 1 0 $x $y $z 1 } proc matrix_identity {} { list 1 0 0 0 0 1 0 0 0 0 1 0 0
• simulating latch behaviour in Bwise
  25 Jan 2011 — itemcget $c -tag] 3]; set e [lindex [$mc itemcget $c -tag] 0]; if {[set $e.$d] == "1"} {set $e.$d 0} {set $e.$d 1}; $mc itemco $c -text [set $e.$d
• simulation database
  31 Jan 2016 — tcl/all/s/sdb/0.1/README.html%|%README]: ** Download ** [ftp://ftp.tcl.tk/pub/tcl/all/s/sdb/0.1/sdb-0.1.tar.gz%|%sdb-0.1.tar.gz]: ** Description
• Simulation framework
  05 Jul 2009 — 2.0*acos(-1.0)/24.0}] set initTemp 10.0 set prevTemp $initTemp set heatCapacity 2.0e5 ;# J/K for the whole room set exchangeRate [expr {6.0*3600.0}] ;# 6
• Simultaneous Equations
  13 Jun 2012 — linearalgebra::mkMatrix 2 2 0.0] ;# there are 2 transactions buying 2 items set vc [math::linearalgebra::mkVector 2 0.] ;# 2 transactions math::linearalgebra::setelem mt 0 0 3 ;# 3 fish in
• sin
  29 Oct 2012 — if {$x < 0} then { set sine [expr {$x*(1.27323954 + .405284735 * $x)}] } else { set sine [expr {$x*(1.27323954 - 0.405284735 * $x)}] } if {$sine < 0} then { set sine [expr {$sine*(-0.225
• Single assignment variable
  08 Jun 2017 — foo 5 puts $foo ;# prints "5" incr foo ;# error *** Code *** ====== namespace eval ::singleAssignment { variable version 0.1.0 } proc ::singleAssignment::traceAssigned {name1 name2 op} { error "variable \"$name1\" can't be modified" } proc
• single command http fetcher
  04 Nov 2010 — list DIR $dir] } proc getC {args} { variable queue variable base variable limit variable loading 0 variable loaded 0 variable pending {} while {1} { if {[catch { lassign $args op path # first process any completed
• singleton application
  19 May 2010 — a time, or an object that can only be created once...'' [http://whatis.techtarget.com/definition/0,,sid9_gci854555,00.html] ---- I've refined the original implementation. The biggest change is due
• Sitemap Generator
  10 Jul 2016 — lappend new_urls [lindex [split $new_url ?] 0] # } foreach new_url $new_urls { puts "found $new_url" # don't visit excluded urls set drop 0 foreach ex $exc_urls { if {[string match
• Sitemap Validator
  20 Apr 2006 — sh \ exec tclsh "$0" ${1+"$@"} package require http proc validate {url} { set query [::http::formatQuery uri $url] set p [::http::geturl http://validator.w3.org/check?$query] upvar 0 $p state array
• Sixteenth Annual Tcl/Tk Conference (2009)
  29 Sep 2013 — tcloo-past-present-future%|%Presentation] ''(via SlideShare)'' * OO Best Practices and Frameworks - ''Sean Woods'' * Xotcl 2.0 A 10 yr Retrospective and Outlook - ''Stefan Sobernig, Gustaf Neuman'' ***Tutorials*** * Introduction to Tcl - ''Ken
• Size of running Tcl process
  18 Nov 2012 — datum } puts stderr "Something's rotten in the state of Denmark..." } } else { proc sysData { } { set done 0 set myname [ file tail $::argv0 ] set data [ exec ps -Ao "fname pid pcpu pmem vsz
• sizepanel
  28 Feb 2005 — h -showvalue 0 entry $top.x -textvar [here]::vals($toplvl,xOffset) -width 4 label $top.lx -text "x-offset : " -width 11 scale $top.sx -variable [here]::vals($toplvl,xOffset) -from 0 \ -to
• sizer control
  23 Jul 2011 — padx]}] set y [expr {-16+[$win cget -pady]}] place $config($win-widget) -relx 1.0 -rely 1.0 -x $x -y $y } } } proc ::sizer::sizer_start {win x y} { variable config set
• sk1
  04 Nov 2011 — sK1 is a Sketch [http://skencil.org] fork. [http://sk1.sourceforge.net/modules/about/images/sketch_0_6_15.png] [http://sk1.sourceforge.net/modules/about/images/sk1_pre01.png] Sk1 forked
• Skeleton OO
  13 Nov 2014 — namespace eval], before we can populate them with procs or variables: ====== namespace eval filetbl { variable n 0 } #---------------------------------- Constructor proc filetbl::create filename { variable n set fp [open $filename] ;# specific set tbl "put
• Skinable interfaces
  16 Oct 2018 — the package at https://web.archive.org/web/20060502095646/pragana.net/Skin-0.1.tar.gz%|%http://pragana.net/Skin-0.1.tar.gz. Save it and read the short README file
• SkipList Demo
  03 Apr 2014 — box,dy))}] if {$lvl > 0} {set cy [expr {$cy - 5}]} set l [expr {$cx - $S(box,x) / 2.0}] set t [expr {$cy - $S(box,y) / 2.0}] set r [expr {$l
• Skribante Maŝin-tradukon
  17 Jan 2011 — 10262 - English to Esperanto. Mi dankas saĝulon Tony Baldwin ĉe http://wiki.tcl.tk/26049 '''If''' 0'''{''' Maŝin-traduko, konvertas teksto en unu-fonta lingvo '''S''' en la ekvivalento-tekston en alia
• Skybot
  29 Oct 2008 — used [TWAPI] Could have used [Ffidl]--"like juggling a chainsaw to access" win32 dll Version 1.0: if {[twapi::Screensaver_running]} { set id [twapi::get_process_ids -glob -name Skype.exe] twapi
• Skype and Tcl
  17 Oct 2016 — winapi] (which really was written for that sole purpose). ====== package require winapi set topwin [::winapi::FindWindows 0 "*MainForm*" "Skype*efrecon"] puts "TOP:$topwin: '[::winapi::GetClassName $topwin]' '[::winapi::GetWindowText $topwin]'" proc waitForWins { top
• slate
  21 Oct 2014 — hierarchy, symbolic item aspects and interaction support. Release 3.0alpha supports Tcl 8.0 or [incr Tcl] 3.0. Updated: 07/1998 Contact: mailto:johnr@EECS.Berkeley.EDU (John Reekie) ---- [JMN] 2007
• Slate megawidget
  22 Feb 2007 — hierarchy, symbolic item aspects and interaction support. Release 3.0alpha supports Tcl 8.0 or [incr Tcl] 3.0. Updated: 07/1998 Contact: mailto:johnr@EECS.Berkeley.EDU (John Reekie) The link
• sleep
  21 Aug 2013 — end time proc evwait {var {end 0}} { set ct [clock clicks] if {$ct < $end} { after idle [list ::delay::evwait $var $end] return } else { set $var 0 } } } ====== I get much more accurate delays
• SlideDraw
  01 Aug 2012 — package designed to be a complete presentation graphics program. http://sourceforge.net/projects/slidedraw/ Version 1.0 - January 6, 2001 http://www.pragana.net/slidedraw.html [NEM] Includes a specialised canvas widget
• slideshow
  12 Jun 2007 — tcl.tk/starkits/]. ---- #! /usr/local/bin/tclkit package provide rsslide 1.0 package require Tk namespace eval present {set version 0.2} set pages { {{Tcl/Tk in der Praxis} { . + Original implementation: . Richard
• Slideshow of words for teaching reading
  20 Jan 2016 — with the next word on the list .words.t delete 1.0 end .words.t insert 1.0 [lindex $wordList 0] centered # Remove that word from the list. Rewrite the button callback
• Sliding panel
  24 Jan 2014 — widget slidepane { hulltype frame option -text "" option -font {Helvetica 8 italic} option -relief flat option -bd 0 option -barrelief groove option -barlocation top variable closebutton variable openbutton variable buttonpath variable panestate variable
• Slim Binaries
  17 Mar 2010 — order. - [RPN in Tcl] Some additional references: slim binaries [http://citeseer.nj.nec.com/context/128894/0], Oberon and slim binaries [http://www.oberon.ch/services/odf/tribune/trib3/Gazelle.html], Thesis
• slogan
  17 Mar 2018 — the TCT does not deal with these issues [http://www.tcl.tk/cgi-bin/tct/tip/0.html])''. So give your suggestion in this list: Suggested slogans: * "I love to code with
• Slow text
  23 Apr 2003 — happen on a typewriter ;-) ---- proc slowtext {w text} { if {$text != ""} { $w insert end [string index $text 0] $w see end after 100 [list slowtext $w [string range $text 1 end]] } } # little demo
• smake musings
  29 Feb 2008 — targets you also need to change (towards the end of smake.tcl) set target [lindex $argv 0] to: set target $argv ---- 2004-08-04 [VI] another bug. If a name exists as
• Small caps
  05 Jul 2007 — if 0 {[Richard Suchenwirth] 2004-08-20 - "Small Caps" is a typesetting style in which each letter is set with an uppercase glyph, but the logical "lowercases" are in a smaller point
• small formula rendering tests
  09 Sep 2008 — Math [1053] $ cat test1.c #include<stdio.h> main() { int i; long int y = 0; for (i=0; i<100000000; i++) y+=10*i; printf("%ld\n",y); } ~/Math [1054] $ gcc -o
• Small Tcl
  02 Mar 2017 — way include ... the introduction of [socket] (7.5 or 7.6) ... the new object system (8.0), and [Unicode] (8.1-8.3). Versions such as 6.7, 7.2, 7.3
• Small tool for the after command
  01 Apr 2004 — defaults to 0) # Result: # None # Side effect: # The calling procedure will be called again via an after command # proc reschedule {{delay 0}} { set call_list [lindex [info level -1] 0] set argvars
• Smallest Enclosing Disc
  30 Jul 2013 — disk proc MiniDisc {PTS0} { set PTS [Shuffle $PTS0] set pre0 [lrange $PTS 0 1] set D [SegmentCenter [lindex $PTS 0] [lindex $PTS 1]] foreach pt [lrange $PTS 2 end] { if {! [Within $D
• Smalltick
  13 Apr 2014 — args { switch -- [llength $arg] { 0 { set r [$obj->[set msg]] } 1 { set r [$obj->[set msg] [lindex $arg 0]] } 2 { set r [$obj->[set msg] [lindex $arg 0] [lindex $arg 1]] } 3
• Smalltick DrawingEditor
  05 Jul 2004 — row 0 -column 0 -sticky we -map [set botc [Container [new.object] $mw]] \ -row 1 -column 0 -sticky news -map [set de [DrawingEditor [new.object] $botc]] \ -width 400 -height 450 -row 0
• Smalltick Widgets with Inheritance
  27 Oct 2012 — gc] \ 0 0 0 $h gui.draw.line \ $pix \ [$self get bd-light-gc] \ 0 0 $w 0 gui.draw.line \ $pix \ [$self get bd-dark-gc] \ [expr {$w - 1}] 0 [expr
• smartcard
  18 Oct 2017 — a minute** [ABU] -- 24-apr-2012 '''SCard ''' [https://sourceforge.net/projects/irrational-numbers/files/smartcard-1.0.zip/download] is a suite of packages for working with smartcards. You can find a
• SMS
  13 Jun 2009 — text} { # the number must have international country code prefix package require http if {[string range $phonenumber 0 4] == "+354"} { switch -exact [GSM_which_Icelandic_provider?] { "OgVodafone" { # send the text message set token
• smtp
  30 Aug 2018 — smtp proc send_email {from to subject body} { set opts {} lappend opts -servers [list 10.0.0.1] lappend opts -ports [list 25] lappend opts -username user lappend opts -password pass lappend
• SMTP with attachments
  27 Oct 2017 — crypt.dll package require smtp namespace eval dg_mail { namespace export sendmail variable mailhost 127.0.0.1 variable mailport 25 } proc dg_mail::sendmail {to from subject body {headers ""} {bcc ""} {opt
• smtpd
  24 Oct 2012 — start 127.0.0.1 8025 or smtpd::start 0.0.0.0 2525 set iface 0.0.0.0 set port 25 if {$argc > 0} { set iface [lindex $argv 0] } if
• SMTPD Example
  11 Sep 2011 — start 127.0.0.1 8025 or smtpd::start 0.0.0.0 2525 set iface 0.0.0.0 set port 25 if {$argc > 0} { set iface [lindex $argv 0] } if
• SndBite
  21 Nov 2007 — can also be run in batch mode and/or without the GUI. Latest version is 3.0 Updated: 2007-11-21 Contact: mailto:billposer@alum.mit.edu [http://www.billposer.org/Software
• Snit cfg package
  09 Apr 2015 — delete <section> # <handle> section exists <section> # # Author: David Easton # Date: Nov 2003 # ################################################################################ package provide cfg 1.0 namespace eval cfg { package require snit snit::type cfg { typevariable cfgList [list] typemethod list {} { return
• Snit design patterns
  28 Sep 2018 — acct alter goldState } elseif {$balance < $lowerLimit} { $acct alter redState } } } variable interest 0.0 variable lowerLimit 0.0 variable upperLimit 1000.0 method deposit amount { $self configure -balance [expr [$self cget -balance] + $amount
• Snit Id/Label menubutton
  01 Jul 2012 — win.mb -padx 0 -pady 0 -expand 1 -fill x install mopts using menu $win.menu $win.mb configure -menu $win.menu upvar #0 $options(-idvariable) idvar upvar #0 $options(-listvariable) listvar
• Snit like Delegation in XOTcl
  19 Sep 2013 — updated version of delegate and unknwon based on the builtin forward, introduced by xotcl 1.3.0. This version is much faster, since it uses unknown only for the first invocation on
• snit toolbar
  09 Apr 2015 — port of the [Iwidgets] toolbar to [Snit]. Will support [TIP] 125 if present. Currently at version 0.1 . Updated: 06/2004 Contact: See web site === ---- There seems to be a `toolbar02.tgz
• Snit under Tcl/TK 8.3
  20 Nov 2012 — Current Version''': [Snit] V1.0.1 (for Tcl/Tk 8.3.4) [KMG] Snit is written and maintained under Tcl/Tk 8.4. However, for legacy customer-support reasons I am constrained
• snitbrowser
  28 Sep 2012 — menubar.file -tearoff 0] .menubar add cascade -label File -underline 0 -menu $mnu(file) set mnu(help) [menu .menubar.help -tearoff 0] .menubar add cascade -label Help -underline 0 -menu $mnu(help
• snitdnd
  16 Oct 2012 — black $target itemconfigure $lastIdx($target) -background white } $target itemconfigure $idx -foreground blue $target itemconfigure $idx -background "light blue" set lastIdx($target) $idx } } package provide snitdnd 0.1 ====== <<categories>> GUI | Example | Package | Snit
• SnitMPlayer
  23 Jan 2018 — tclsh # Author: Detlef Groth # License MIT # Version 0.2 working and usable # Version 0.2 adds support for direct play of youtube videos # Version 0.3 fixes issue if youtube-dl is
• Snitscope
  28 Sep 2018 — variables or options, we can know its namespace set specimenNS [if {[llength $specimenVars] > 0} { namespace qualifiers [lindex $specimenVars 0] }] # exclude the 'options' variable from the instance variables set specimenVars [lmap v $specimenVars
• snitScrollWindow
  28 Sep 2012 — y] -xscrollcommand [mymethod ScrollHandle $win.x] grid $mainWindow -row 0 -column 0 -sticky nesw grid columnconfigure $win 0 -weight 1 grid rowconfigure $win 0 -weight 1 if {[$self cget -scalewidget]} { scale $win
• SnitTtkNotebook
  05 Feb 2018 — Tcl/Tk 8.6 # # History : 0.1 initial release 2018-02-05 # ############################################################################## # # Copyright (c) 2018 Dr. Detlef Groth. # # License BSD ############################################################################## package require snit package provide SnitTtkNotebook 0.1 snit::widget SnitTtkNotebook { option
• snitvfs
  28 Sep 2012 — wrx]+, for a more chmod feel method parsePerms {value} { array set m {u 0 g 0 o 0 a 0} if {[regexp {^([ugoa]*)([+-=])([wrx]+)(.*)$} $value x who op what rest]} { # calc the
• snitwiz
  08 Mar 2012 — sticky ew grid columnconfigure $win 0 -weight 1 grid rowconfigure $win 0 -weight 0 ;# titleframe grid rowconfigure $win 1 -weight 0 ;# sep grid rowconfigure $win 2 -weight 0 ;# pretext grid rowconfigure $win
• SnitXSurf
  29 Jan 2018 — xprop # # History : 0.1 initial release 2018-01-29 # ############################################################################## # # Copyright (c) 2018 Dr. Detlef Groth. # # License BSD # package require Tk package require TkXext package require snit package provide SnitXSurf 0.1 snit
• SnitXUrxvt
  03 Feb 2018 — the_fly] [WikiDBImage SnitXUrxvt.png] Source Code: ====== package require Tk package require snit package provide SnitXUrxvt 0.1 snit::widget SnitXUrxvt { option -multi 1,1 option -rxvtargs "" constructor {args} { $self configurelist $args
• SnitXWindow
  17 Feb 2018 — installed on X-Window systems # # History : 0.1 initial release 2018-01-29 # : 0.2 embedding zathura, mupdf in the empty field # window title using xprop # : 0.3 avoid reparenting already embeded
• SNMP parser
  18 Jul 2008 — package provide ber 0.1 '''Sample usage for an SNMPv1 trap PDU''' package require base64 set trap [join {MIGXAgEABAZwdWJsaWOkgYkGCCsGAQQBgo17QATAqAAzAgEGAgID6EMBZDBtMBoGDCsFAQQBgo17?\ AQbOEAQKbG9jYWxob3N0IDBPBgwrBQEEAYKNewEGzhEEPyBzdShwYW1fdW5peClbMjUxMTVdOiBz?\ ZXNzaW9uIG9wZW5lZCBmb3IgdXNlciByb290IGJ5ICh1aWQ9NTAwKQ==} {}] ::asn::decodeBer [base64::decode $trap] gives: SEQUENCE {{INTEGER 0} {OCTETSTRING public
• SNTL
  30 Dec 2012 — sorted/packages-7.6/devel/sntl-0.4.2.tar.gz (dead) location: ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/devel/sntl-0.4.2p1.patch.tar.gz (dead
• SOAP
  10 Apr 2014 — of long-term requirements." : [http://web.archive.org/web/20090202095000/http://forrester.com/Research/Document/Excerpt/0,7211,35361,00.html%|%SOAP Versus REST: A Comparison], Randy Heffner and Mike Gilpin,2004
• SOAP Complex Data
  25 Jan 2014 — set args [lreplace $args 0 0] } -attr* { set opts(-attributes) [concat $opts(-attributes) [lindex $args 1]] set args [lreplace $args 0 0] } -- { set args [lreplace $args 0 0] break } default { # stop option
• socket -async
  24 Feb 2018 — something like "0.0.0.0 0.0.0.0 51063"|& &|8.6.2|returns the addresses of the connect tries which show up temporarily. Typically ::1, then 127.0.0.1
• SoftGuard
  01 Sep 2013 — profiler] module. Minor changes have been made to make it usable for older Tcl versions (>= 8.0) and print out never used procedures. There are at least 4 modules in this package
• Software Free to a Good Home!
  24 Feb 2010 — tcl.activestate.com/pub/tcl/mirror/ftp.procplace.com/sorted/packages-7.6/games/tclrobots-2.0 <<br>> Category: [Category Games] <<br>> Adopted by: [Jonas Ferry], with Tom Poindexter's approval <<br
• Solving a 2D diffusion problem with the Tensor package
  17 Dec 2010 — 0 [list 0 $end]] = scalar 0.0 u section [list $end [list 0 $end]] = scalar 0.0 u section [list [list 0 $end] 0 ] = scalar 0.0 u section [list [list 0
• Solving a wave propagation problem with the Tensor package
  15 Dec 2010 — 0 } else { set hvalue 0.0 } if { $time < 2.0 } { set hvalue [expr {0.5*(1.0-cos(3.1415926*$time)) * sin(3.0*3.1415926*$time)}] } else { set hvalue 0.0
• Solving cryptograms
  02 Dec 2012 — F { - 0.197258 A 0.065493 B 0.012243 C 0.018083 D 0.037663 E 0.097011 F 0.017431 G 0.016856 H 0.048503 I 0.058153 J 0
• Solving the advection-diffusion equation
  13 Jun 2012 — 0.0 boundary-values B2 0.0 initial-values 10 1.0 # # Now compute the solution # global time timeframe 0.0 10.0 0.01 initialise while { [nextstep] } { if { abs(10.0
• some of the rationale behind bwise
  05 Jul 2007 — of stack can be quite rewarding though, and is quite possible with bwise 0.34 (which is later than 0.5 mentioned on some older page), though I didn't at all
• Some ways to do set comparision
  16 Jul 2011 — lsearch -sorted -exact $list2 $i ] < 0 } { lappend out1 $i } if { [ lsearch -sorted -exact $list1 $j ] < 0 } { lappend out2 $j } } upvar #0 $out1Name x set x $out1 upvar #0 $out2Name x set x
• Sort Listboxes by Drag-and-Drop
  13 Nov 2016 — Eintraege]] Sort-by-Drag_ListboxScroll $base scroll 0.0 units # return $Canv } # # Scrollbar code. # proc Sort-by-Drag_ListboxScroll { base {was moveto} {Zahl 0.0} {Einheit units} } { global Pref global Index global
• Sorted Lists
  08 May 2011 — stdout set sum 0 for {set i 0} {$i < 5} {incr i} { screate lst set dur [time {$func lst [expr {int(rand() * $n)}]} $n] incr sum [lindex $dur 0] } puts [expr {$sum
• Sorting mail into Maildirs
  01 Jun 2014 — with the obvious: } #! /bin/sh # the next line restarts using tclsh \ exec tclsh "$0" ${1+"$@"} package require mime if 0 { If the program exits with an error, the MTA will send an
• Sorting nodes in tdom
  24 Feb 2010 — if {"-dictionary" in $options} { if {$value1 eq $value2} { return 0; } set list [lsort -dictionary [list $value1 $value2]]; if {$value1 eq [lindex $list 0]} { return -1; } return 1; } # compare non-numerical values # if
• Sound envelope generator
  17 Jan 2007 — 0} {$i < $npoints} {incr i} { puts [expr 1-pow($npoints-$i,2)/pow($npoints,2) ] } 0.0 0.19 0.36 0.51 0.64 0.75 0.84 0.91 0
• soundex
  03 Feb 2015 — soundexcode { a 0 b 1 c 2 d 3 e 0 f 1 g 2 h 0 i 0 j 2 k 2 l 4 m 5 n 5 o 0 p
• Soundgenerator
  12 Aug 2015 — generator 990 32767 0.0 sine] set var(veryhigh) [snack::filter generator 1650 32767 0.0 sine] # define some noise set var(noisy) [snack::filter generator 0 2000 0.0 noise] # define
• Source Documentation Tools
  15 Sep 2017 — tcl with a filter/pre-processor [http://therowes.net/~greg/software/tcl-doxygen-filter/tcl-dox-0.6.tar.gz] [http://therowes.net/~greg/download/tcl-doxygen-filter/] [A little doxygen converter
• source protection
  05 Jul 2015 — the best, as it translates to compilable C code, but it only works for Tcl 8.0. [[Why [Java], [C], ... aren't really all that hot for security.]] [[Distinguish [obfuscation] and full
• source with encoding
  01 Mar 2015 — 408 -height 36 grid columnconf $base.eingabe 0 -weight 1 grid rowconf $base.eingabe 0 -weight 1 grid $base.eingabe.03 \ -column 0 -row 0 -columnspan 1 -rowspan 1 -sticky nesw place
• Space Invaders
  21 Nov 2012 — ngame if { $cafter >= 0 } { after cancel $cafter } variable cstat 0 variable clvl 0 variable cscore 0 variable cbln 0 $ngame configure -text Pause -command ::si::pause ::si::init_cv 0 ::si::loop
• SpamMap
  14 Aug 2007 — header {} set body {} while { ! [ regexp {^$} [ lindex $data 0 ] ] } { append header "[ lindex $data 0 ]\n" set data [ lrange $data 1 end ] } while { ! [ regexp {^From } [ lindex $data 0 ] ] && \ ! [ regexp {^Received: } [ lindex $data 1 ] ] && \ ! [ regexp
• SpatiaLite
  24 Sep 2018 — db eval {SELECT CreateSpatialIndex('hal','geometry')} set n 0 set points [list 1.0 2.0 3.0 4.0 5.0 6.0] db transaction { foreach {x y} $points { db eval
• spawn
  25 Jun 2012 — 5 transmitted, 5 received, 0.00% packet loss. round-trip (ms) min/avg/max = 80.709/80.898/81.157 var/sdev/skew/kurt = 0.030/0.174/0.323/1.311
• Spawning new GtkTextviews
  20 Jul 2012 — text(1) [unSplitView $text(1)] } } ] # pack the main container $box(main) add $toolBar -fill {1 0} -expand 0 $box(main) add $box(texts) -fill {1 1} -expand 1 set main [gnocl::window
• SpecTcl
  15 Jan 2013 — is to code which creates a specPython executable which is compatible with SpecTcl 1.0 or SpecJava 0.3. SpecTcl is now at version 1.2a3 . Updated: 10/2001 Contact: mailto:SpecTcl
• Speech Synthesis, or Talk to me Tcl
  06 May 2012 — espeak.tcl #--------------- ## \file # File documentation. #\verbatim #!/bin/sh #\ exec tclsh "$0" "$@" #\endverbatim package require Gnocl ## # -f Text file to speak # -a Amplitude, 0 to 200, default is 100 # -g Word gap. Pause
• Speed issues
  05 Jan 2012 — procs. # "procless" loop % time {for {set n 0} {$n < 100000} {incr n} {set x $n}} 1378209 microseconds per iteration % proc a {} {for {set n 0} {$n < 100000} {incr n} {set x $n
• Speed Tables
  17 Oct 2012 — I tweaked the following directives: * set showCompilerCommands 1 * At the end of the file: set withPgtcl 0 In file '''ctables/mkConfig.sh''' I did: * tcl_versions="8.6" * tcl_prefixes="/mnt/tis
• speed up clock format and clock scan
  28 Nov 2016 — somepath namespace eval libc { variable tz [clock format 0 -format %z] variable tz_name [clock format 0 -format %Z] set tz_clock [clock format 0 -format %Z\ %z] set ::env(TZ) $tz
• speertext
  01 Nov 2013 — break } } ====== And here a test. ====== pack [speertext .spt] -side left -fill both -expand yes for {set i 0} {$i < 50} {incr i 1} { .spt insert end "Hello $i\n" } ====== <<categories>> Snit | Widget
• Spell correcter
  28 Dec 2014 — set out {} set n [string length $w] for {set i 0} {$i<=$n} {incr i} { lappend out [list [string range $w 0 $i-1] [string range $w $i $n]] } return $out } proc
• Spellcheck Widget using Aspell
  28 Dec 2014 — pipe} { set i 0 while { [set count [gets $pipe line]] >= 0 } { incr i if { $count == 0 || $line eq "*" } { continue; # nothing of interest } set list [split $line " "] if { [lindex $list 0] eq "#" } { # No
• spinbox
  20 Jan 2016 — 0 to disable the builtin button actions spinbox .spin -width 6 -from 0 -to 65535 -increment 0 -wrap true \ -command {spinhex %W %s %d %%04X} # Initialize the spinbox value spinhex .spin 0
• spinbox menubutton
  31 Aug 2003 — fill y pack $w.up -anchor n -ipady 0 -ipadx 0 -pady 0 pack $w.dn -anchor s -ipady 0 -ipadx 0 -pady 0 ghostarrows $cycle $w $fullvarname } # return the next element
• spindate
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/spindate.html and http://purl.org/tcl/home/man/iwidgets3.0/spindate.n.html ---- [Category Command], a part of [incr Widgets]
• spinint
  11 Oct 2012 — http://incrtcl.sourceforge.net/iwidgets/iwidgets/spinint.html] and [http://purl.org/tcl/home/man/iwidgets3.0/spinint.n.html] **See also** * [http://tix.sourceforge.net/man/html/TixCmd/tixControl.htm%|%tixControl
• spinner
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/spinner.html and http://purl.org/tcl/home/man/iwidgets3.0/spinner.n.html ---- [Category Command], a part of [incr Widgets]
• spintime
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/spintime.html and http://purl.org/tcl/home/man/iwidgets3.0/spintime.n.html ---- [Category Command], a part of [incr Widgets]
• spiral
  09 Sep 2012 — 0] -width 3] every 40 [list rotate .c $s 0 0 .1] } proc spiral {x0 y0 {max 500}} { set res [list $x0 $y0] set a 0 set cosa 1 set sina 0
• SPITE
  20 May 2015 — Cassoff VERSION : 0.3 LICENSE : ISC HOMEPAGE : http://www3.bell.net/stwo/software/ DISTFILE : http://www3.bell.net/stwo/software/spite-0.3.spite.gz $ mkdir /tmp/test $ gunzip < spite-0.3
• splash library
  03 Jul 2012 — library is a more lightweight implementation that does not spawn a separate process for the opening of the splash window. The splash library is currently at version 0.3 . <<categories>> GUI | Package
• split and join for nested lists
  19 Oct 2011 — args 0 ::join $list] } else { set ret [list] set next [lrange $args 1 end] foreach item $list { lappend ret [eval [linsert $next 0 join $item]] } return [::join $ret [lindex $args 0]] } } proc
• Split On Whitespace
  24 Aug 2018 — split object. Maybe it's also a motivation to improve the Tcllib method. % package require textutil 0.8 % set str " To show the problem. " To show the problem. % textutil::splitx $str {} To
• Splitting an amount in parts
  13 Sep 2015 — dividers {lead 0} {inter 1}} { set result {} foreach {unit divider} $dividers { if {!$lead && $amount==0} break; if {$divider eq {}} { set result "$amount$unit $result" break } if {$inter || !($amount%$divider == 0)} { set result
• Splitting strings into words
  18 Oct 2010 — block. set text [string range $block 0 \ [expr {[lindex $all 0] - 1}]] # Get the word with the quote set wordWithQuote [string range $block \ [lindex $all 0] [lindex $all 1]] # Remove all text
• Spot
  21 Apr 2011 — command" set agenda $instance_arr(class) while { [llength $agenda] > 0 } { set cls [lindex $agenda 0] set agenda [lreplace $agenda 0 0] upvar #0 spot_v_$cls class_arr if { [info exists class
• Spotlight
  18 Aug 2013 — c -width $S(w) -height $S(h) -highlightthickness 0 .c create image 0 0 -image ::img::img -anchor nw .c create image 0 0 -image ::img::small -anchor c -tag small frame
• spreadsheet/table widget
  11 Aug 2012 — spreadsheet/table widget Where: ftp://ftp.wn.com/pub/entryTable.tar.gz (???) Description: [incr Tcl] 2.0 [incr Widgets] table/spreadsheet widget. Features dynamic columns and rows creation, draggable column dividers, individual
• Sprite
  08 Sep 2012 — visible image private variable curImgIdx 0 #Size and location of the sprite private variable xpos 0 private variable ypos 0 private variable height 0 private variable width 0 #Holds the created canvas
• sproc
  15 Apr 2011 — array. set data(next) 0 set data(instances) [dict create] set data(lambda) [list $arguments\ "dict with [list $ns\::Sproc-$name](\[namespace tail\ \[lindex \[info level 0\] 0\]\]) {$script}"] set data(statics
• Spynergy
  26 Sep 2012 — platform independent file managment. It was developed to be compatible with Tcl 7.6 through 8.0, but hasn't been updated since then. The tools all seem to work fine with
• SQL
  13 Jul 2018 — w delete 1.0 end set txt [::tk::GetSelection $w CLIPBOARD] regsub -all {,} $txt "\n ," txt regsub -nocase -all {\sand\s} $txt "\n and " txt $w insert 1.0 $txt } text .t
• SQL JSP Tcl Responder
  22 Jan 2010 — Tcl Index 0 is reserved for SUCCEEDED or FAILED. If FAILED is returned an error has occured. Tcl Index 1 will give a description of the error. If Tcl Index 0 has
• SQL Relay
  08 Sep 2013 — layers. TODO: Get [TDBC] on the list of abstraction layers. ** Attributes ** author: David Muse current version: 0.51 release time: 2013-08-05 ** Description ** SQL Relay is a persistent database connection pooling
• SQLite introspection
  21 Nov 2017 — column prohibits NULL values (0=NULLs not prohibited, 1=NULLs prohibited) 5. default value for column 6. whether column is part of the table's primary key (0=not part of primary
• SQLite Optimization
  21 Nov 2017 — parray result } } ====== with this: ====== proc search_partial_match_quickly {str} { set sub_str [string range $str 0 end-1] set last_char [string index $str end] set end $sub_str[format %c
• sqlite_master
  21 Nov 2017 — elements set: * cid: Column ID: 0,1,2,... * name: column name * type: type. Example: varchar (16) * notnull: 0/1 * dflt_value: Default value * pk: Primary key: 0/1 ====== proc cols {db table
• ssh launcher
  27 Apr 2013 — dock pack [button .dock.b -text ssh> -padx 0 -pady 0 -font "[font actual Arial] -size 8" -command show_menu] menu .menu -tearoff 0 -font "[font actual Arial] -size 8" -bd 1
• SSL
  18 Oct 2014 — SSLtcl-0.42.tar.gz ftp://ftp.mc.hik.se/pub/users/mia95anp/ssl/SSLtcl-0.42.tar.gz ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/net/SSLtcl-0
• SSL Tunnel
  15 Sep 2016 — if {![info exists uid]} {set uid 0} variable opts if {![info exists opts]} { array set opts { targetUrl http://max.tclers.tk:443 serverAddr 127.0.0.1 serverPort 8080 proxyHost {} proxyPort {} proxyAuth
• SSLtcl
  16 Feb 2006 — SSLtcl-0.42.tar.gz ftp://ftp.mc.hik.se/pub/users/mia95anp/ssl/SSLtcl-0.42.tar.gz ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/net/SSLtcl-0
• St John's chapel
  28 Sep 2018 — poly towerbot {{0 0 0} {0 1 0} {1 1 0} {1 0 0}} -fill blue 3d'poly towerfront {{0 0 0} {0 0 4} {1 0 4} {1 0 0}} -fill
• stack-based calculator
  19 Oct 2011 — length) $len return $res } proc evaluate {str} { array set operandStack {length 0} array set operatorStack {length 0} set digit "" set paren 0 set parenStr "" set count 1 foreach char [split $str ""] { if
• stacking
  28 Dec 2015 — lindex [ info level 0 ] 0])" } pushproc test x { puts "second $x ([lindex [info level 0] 0])" callprev $x } pushproc test x { puts "third $x ([lindex [info level 0] 0])" callprev $x } test
• Stacking Commands
  11 Jan 2012 — keeping track instead. suchenwi The current name is easily found at runtime: [lindex [info level 0] 0]. Tomorrow so, you'd have a "stack foo onto set", which would rename set to
• Stacks and queues
  14 Jan 2015 — name { upvar 1 $name queue set res [lindex $queue 0] #set queue [lrange $queue 1 end] set queue [lreplace $queue [set queue 0] 0] set res } ====== Popping a '''priority queue''' requires sorting
• STAF
  10 Dec 2011 — and automation of test cases. Currently at version 3.4.8. License: Eclipse Public License 1.0 Updated: 2011-12-09 Contact: See web site ---- There is a Tcl API for STAF
• Standard starpack initialization routines
  25 Jul 2009 — Blank in Ordnernamen. # 21.04.2009: fconfigure für StdChannels nicht für v8.5 package provide initscript 0.6; package require readprof; # MHo ################################################################################ # Grundsätzliche Skriptinitialisierung: # - Automatisches Einbinden von Modulen anhand user-supplied VFS
• Star Trek
  28 Sep 2018 — Stardate 00000.0 % clock format [clock scan {1946-01-02 00:00}] -format %Q Stardate 00002.0 % clock format [clock scan {1946-01-03 00:00}] -format %Q Stardate 00005.0 % clock
• stardll
  13 Feb 2016 — lpfnBasekitInit != NULL && lpfnSetKitPath != NULL) { interp = lpfnCreateInterp(); if (interp != NULL) { Tcl_InitStubs(interp, "8.4", 0); Tcl_FindExecutable(argv[0]); GetModuleFileNameA(hTcl, szLibrary, MAX_PATH); lpfnSetKitPath(szLibrary); if (lpfnBasekitInit(interp) == TCL_OK) { Tcl
• starDOM
  28 Nov 2013 — att 0] } } proc starDOM::Eval {query} { variable info catch {uplevel #0 $query} res ;# execute any Tcl command puts "% $query\n$res" if {[string length $res]>70} {set res [string range $res 0
• Starfield
  19 Aug 2013 — cnt -1] >= 0} { set x [expr {rand() * $S(w) - $S(w2)}] ;# Select x,y,z for new star set y [expr {rand() * $S(h) - $S(h2)}] if {$x == 0 && $y == 0} {set
• Starkit boot sequence
  10 Aug 2012 — arise as to how starkits work. What *is* [[package starkit]]? ... what's the boot sequence? '''= Phase 0: before main.tcl is sourced =''' 1. mount the executable vfs under the path to the
• Starkit with Iwidgets
  07 Sep 2012 — bit tricky: * Create a child interpreter * Load Itcl 3.2, Itk 3.2 and Iwidgets 4.0.2 (those seem to match) into the child interpreter That made the [starkit] start and
• Starkits containing Tcl only extensions
  03 Mar 2008 — tcl.tk/fichiers/pub/tcllib_1.6.1.kit] and tklib 0.2 [http://wfr.tcl.tk/fichiers/pub/tklib_0.2.kit] for example). Once you've sourced them, you can
• Starsync
  14 Sep 2016 — Try the platform specific executable *kbsvq8.5-bi* from http://sourceforge.net/projects/kbskit/files/kbs/0.4/ Built into [sdx]? "The point of using starsync is that it transfers only what
• Starting Java from Tcl
  23 Apr 2004 — set success [catch [exec $j_exe -version] res] set vstart [string first "version" $res] if { $vstart >= 0 } { set vstart [string first "\"" $res $vstart] incr vstart set vend [string first "\"" $res $vstart] incr
• Starting Tclhttpd in a slave interpreter
  08 Jun 2012 — it enters [vwait forever] , so we have to use the after 0 trick # errors have to be handled by bgerror after 0 $httpd eval $cmd return $httpd } proc ShutdownEmbeddedHttpd {interp} { $interp eval
• Startmenu with Ubuntu Unity
  29 Aug 2014 — menu [menu .button.start -tearoff no -font $font] proc makeMenu {menu l} { global font set count 0 foreach {cmd label cmdOrMenu} $l { switch -exact -- $cmd { command { $menu add command\ -label $label\ -command
• state of dutch politics machine
  18 Jan 2013 — next_sodp $sodp,$try] == {}} { return "{} {0} {unknown input: define the transition first for $try and extend transition function input domain}" } if {[lsearch $dsodp $next_sodp($sodp,$try)] <0} { return "{$next_sodp($sodp
• State Space Searching in Tcl
  20 Jan 2013 — queue [list [createNode "rootNode" "starting" $initState 0]] return $queue } proc RemoveFront {n} { upvar 1 $n nodes set front [lindex $nodes 0] set nodes [lreplace $nodes 0 0] return $front } # The problem will
• Static call graph
  01 Sep 2015 — once and start at the beginning ## set len [string length $procName] set index 0 set callerList {} set skip 0 ## ## Find all occurrences ## while {[set pos [string first $procName $sourceCode $index]] != -1} { ## ## Verify
• static constant datasets stored in proc
  28 Aug 2018 — proc|1.04ms|0.47ms|0.47ms|0.47ms|& &|dict proc|1.4ms|0.69ms|0.77ms|0.76ms|& &|dict proc without else|1.36ms|0.64ms|0.76ms|0.78ms|& &|array
• static data in command procedures
  28 Sep 2016 — want an alternative? Most compelling reason is memory efficiency. Consider the script: ======c for {set i 0} {$i < 1000000} {incr i} { set a($i) [one] } ====== With the implementation of `one` above, 1
• static variables
  29 Sep 2011 — level 0] 1 end]] { if {[llength $var]==1} {lappend var $value} namespace eval $qname [linsert $var 0 variable] } } uplevel 1 [list upvar 0 ${qname}::$name $name] } #-- Testing: proc intgen {} { static i 0
• Statistics
  09 Mar 2013 — is freely distributable except for commercial resale. V2.2 of NeoWebScript works with Apache v1.2.0. The webdemos WWW page have some demos for NeoWebScript written by mailto:hav@hav.com
• Stats
  22 May 2011 — make a single pass through the data. proc ::math::SumSum2 {list} { set sum 0.0 set sum2 0.0 foreach x $list { set sum [expr {$sum + $x}] set sum2 [expr {$sum2 + $x
• status/'conky'
  02 Aug 2013 — s [split "$result" \n] { parse $s "inet" 0 0 ip 1}} foreach s [split [slurp /proc/acpi/battery/BAT1/state] \n] { parse $s "remaining capacity:" 0 1 remain 2 } foreach s [split
• stderr
  17 Nov 2013 — stdout_pipe {WRONLY NONBLOCK}] set r_stdout [open stdout_pipe {RDONLY NONBLOCK}] fconfigure $w_stderr -blocking 0 -buffering line # same for r_stderr, w_stdout, r_stdout fileevent $w_stderr readable ... fileevent
• stdin
  22 Oct 2010 — this [comm] will not work in interactive tclsh. namespace eval stdin { variable version 0.1 variable command "" variable detach 0 } proc stdin::Read {prompt} { variable command variable detach if {[eof stdin]} { set
• stdmetrics.tcl
  15 Oct 2009 — stdmetrics.tcl source: ====== package provide pdf4tcl::stdmetrics 0.1 # this file is auto-generated, please do NOT edit! namespace eval pdf4tcl { variable BFA variable Fonts variable FontsAttrs set Fonts [list Courier Courier
• Stefan Vogel
  04 Sep 2013 — is a Number with (4=csv; 19=html) $app FileSaveAs c:/test.csv 4 0 0 1 0 "Tablename" ====== ** Using bind for InternetExplorer to capture events with tcom ** I wanted to control
• Steppin' out
  27 Nov 2011 — 0):<=puts i=0 > info locals x i result (0):<=puts i=0 > set x 3 result (0):<=puts i=0 > before puts i=0 > i=0 result (0):<=puts i=0
• Steppin' out again
  08 Sep 2017 — this command from inside interact): step sreverse 0 puts [sreverse Goodbye] #-------------------------------------------- gives in a tclsh: {set res {}} enterstep --> ==> {for {set i [string length $str]} {$i > 0} {} { append res [string index $str [incr
• Steps to build Tcl/Tk 8.4.0 on MacOS X
  11 Jan 2006 — 8.4.0 from sourceforge] tar zxvf tcl8.4.0-src.tar.gz tar zxvf tk8.4.0-src.tar.gz mv tcl8.4.0 tcl mv tk8.4.0 tk cd
• STERNO
  30 Dec 2012 — intended to replace itcl - for instance, there is currently no inheritance. Built on top of Tcl 8.0 namespace, it was developed because it was needed by the contact. <<categories>> Object Orientation
• Steve Ball
  29 Nov 2013 — and XSLT transformations for the Tcl language. Now mainly working on implementing XPath 2.0 and XSLT 2.0 in libxml2 and libxslt. Also developer of non-Tcl packages for XML and
• Steve Redler IV
  14 Feb 2017 — proc main {} { package require Tk load [file join $::starkit::topdir TkXext.so] wm geometry . 0x0+0+0 wm overrideredirect . 1 set ::keymap "qwertyuiopasdfghjklzxcvbnm,./" set ::screenh [winfo screenheight .] set ::screenw [winfo screenwidth .] set
• stext
  13 Feb 2007 — and editing. Features include line numbers, syntax highlighting, code folding, and line markers. Currently at version 0.1 . Updated: 01/2007 Contact: Tim Baker ??? ---- The project was renamed [TkTextPlus] and moved to
• stippling
  18 Jan 2013 — hourglass info questhead question warning } pack [canvas .c -width 1000 -height 1000 -background skyBlue] set i 0 foreach bitmap $bitmap_list { incr i set num [expr 80 * $i] set num1 [expr $num
• STLViewer - a first approach for a wapp-lication
  24 Feb 2018 — content-security-policy {'unsafe-inline'} wapp-trim { $(document).ready(function() { var stats = new Stats(); stats.setMode( 0 ); stats.domElement.style.position = 'absolute'; stats.domElement.style.top = '2px'; stats.domElement.style.left = '2px
• Stomp
  11 Feb 2015 — followed by a body. Messages are ended by ^@, i.e. the zero character, aka ASCII 0, '\0'. STOMP advocates [utf-8] on the wire and provides mechanisms that keep the connection alive
• stooop sugar
  05 Sep 2012 — if {[string index $cmd 0] == "@"} { return [stooopSugar $cmd {*}$args] } else { error "unknown: $cmd $args" } } proc stooopSugar {cmd args} { set parts [split $cmd .] set this [string range [lindex $parts 0] 1 end] set
• Store
  25 Jan 2011 — NOT NULL" or "IS NULL" depending on the truth value of its associated value, so fred? 0 will succceed if the field fred is null. The name part may also be suffixed
• store cascaded settings in a database
  15 Sep 2003 — from level where id = '$id';"] 0] while {[string length $id]} { lappend chain $id set id [lindex [db eval "SELECT parent_id from level where id = '$id';"] 0] } db close return $chain } proc
• storing wiki history inside wikit
  19 Feb 2003 — tclhist:''' * Get a specific version, page 0, revision 50: http://my/wiki/0.50 * Version summary: http://my/wiki/0^ * Diff mode 1: http://my/wiki/0-48 Returns the diff between
• Straightforward implementation of complex numbers
  17 Oct 2017 — d == 0.0 } { return "$c" } else { if { $c == 0.0 } { if { $d == 1.0 } { return "i" } elseif { $d == -1.0 } { return "-i" } else { return "${d}i" } } else { if { $d > 0.0 } { if
• Strange figures
  19 Aug 2011 — 0.0 set dtime 0.02 proc position {time} { set twopi [expr {8.0*atan(1.0)}] # Note: incommensurable periods - so the pattern is not exactly repeating ... set x [expr {4.0
• Strange phenomen
  30 Jun 2010 — wm attributes . -alpha 0.4; update idletasks msgBox "debug-1" set code [catch {$cmdint eval $m($m(current),$curItm,code)} rc] msgBox "debug-2" wm attributes . -alpha 1.0; update idletasks : ====== I
• Strategic Space Command
  23 Oct 2007 — es/pub/extras/tcl/ftp.procplace.com/sorted/packages-7.6/games/tclrobots-2.0/tclrobots-2.0.tar.gz] and the two TclRobot Net Challenges [ftp://ftp.uniovi.es/pub/extras
• Streams
  21 Mar 2018 — proc prime? x { if {$x<2} {return 0} set max [expr sqrt($x)] set try 2 while {$try<=$max} { if {$x%$try == 0} {return 0} incr try [expr {2-($try==2)}] } return
• Strick
  28 Aug 2012 — slave % load "" xotcl slave % slave eval ::xotcl::Object o1 ::o1 - [BenThomasson] 2006-05-08: [ParentheTcl] release 0.5.1 now availabe; see http://smilax.org/99. Please try it! 2006-09-20
• Striding a list
  28 Feb 2005 — 5 => {0 1 2 3 4}) as first ''foreach'' argument, and retrieves them by ''eval''-ling a transformed ''list $0 $1 $2 $3 $4'': proc iota n { for {set i 0;set
• strimj animation
  10 Aug 2010 — first [lindex $film 0] } else return } $w configure -image $first set film [::concat [lrange $film 1 end] [lindex $film 0]] after $interval [list strimj::runFilm1 $w $interval $film] } if 0 { Here's
• strimj segmentation
  10 Aug 2010 — 1}]} {$y>=0} {incr y -1} { binary scan $data @[expr {$y*$nbytes+$offset}]B$nbits line append res [string range $line 0 [expr {$width-1}]]\n } string map {1 . 0 @} $res } proc
• strimj to XBM
  10 Aug 2010 — strimj2xbm strimj { set width [string length [lindex $strimj 0]] set height [llength $strimj] set bytes {} foreach line [string map {. 0} $strimj] { regsub -all {[^0]} $line 1 line ;# black pixel foreach bin [split
• string
  30 Aug 2014 — check for the ByteArray object type internally based on their bytecode versions (as of 8.5.0): * [string range] * [string index] * [string match] * [string length] * [string compare] (both objects must be ByteArrays
• string append
  29 Apr 2018 — ham-and-eggs % ====== Now test an "original" sub-command: ====== % string match -nocase ham and 0 % ====== Result is 0 -- indeed, that is true. Now test an erraneous situation: ====== % string match -nocase ham and
• String channels
  08 May 2015 — A string channel, for read/writing to a string instead of a file package provide schan 0.2 namespace eval schan { variable schan proc initialize {fd mode} { variable ::schan::schan set schan
• string chunk
  16 Jun 2013 — pieces. # proc ::tcl::string::chunk { data { size 70 } } { set len [expr { $size -1 }] for { set i 0 } { $i < [string length $data] } { incr i $size } { lappend reply [string range $data $i $i+$len
• string compare ...
  24 Feb 2012 — to make it available: ====== proc string_compare_dictionary {a b} { dict get {1 0 {0 1} -1 {1 0} 1}\ [lsort -indices -dictionary -unique [list $a $b]] } ====== Basically this uses [[lsort]] to
• string equal
  01 Dec 2012 — of 0) type comparison. Or it may seem similar to '''[string match]'''. The difference is that match uses patterns (e.g., === % string match "fred*" "freda" 1 % string equal "fred*" "freda" 0 % === string
• string forward compatibility
  19 Sep 2013 — format %d [lindex $args 0]} temp] == 0} { return 1 } else { return 0 } } # # This procedure processes the '-strict' option for # 'string is (boolean, false, int, or true)'. It returns: # 0 - '-strict' is specified
• string index
  07 Apr 2014 — string index''' ''string charIndex'' Returns the ''charIndex'' 'th character of the ''string'' argument. A ''charIndex'' of 0 corresponds to the first character of the string. ''charIndex'' may be specified as follows: : ''integer
• string insert
  27 Sep 2017 — specified index. If ''index'' is at or before the start of string (e.g., ''index'' is '''0'''), ''insertString'' is prepended to ''string''. If ''index'' is at or after the end of ''string
• string is wideinteger
  13 Jan 2016 — stored in the variable naed ''varname''. In the case of under or overflow in the value, 0 is returned and varname, if provided as an argument to -failindex, will have a value
• string length
  01 Dec 2012 — 0[regsub -all . $string +1]} ;# dkf ---- The ''functional'' way: proc strlen {s} { expr {[regexp {.(.*)} $s - s] ? (1+[strlen $s]) : 0} } ;# EB ---- [ulis], A ''recursive'' way: proc strlen {string} \ { if {$string == ""} { return 0
• String Manipulation Functions
  06 Dec 2016 — ما غغخعاتلا jhjhfdyigrwyih hruiehbbqbcvvb jenhwcbebeمااخؤصىقلاقىاؤ تااقصىقرثالا khwbvbrehb" ====== What I should get is this : ====== {{hello all peoebla } 0} {{ jhjhfdyigrwyih hruiehbbqbcvvb jenhwcbebe} 52} {{ khwbvbrehb} 121} ====== ***The Solution*** ====== proc list_of_all_ascii_parts_a
• string map
  14 Aug 2017 — effect for later key matches. For example, ====== string map {abc 1 ab 2 a 3 1 0} "1abcaababcabababc" ====== will return the string '''01321221'''. [[string map]] is often an alternative to [Regular expressions
• string mapx
  10 Aug 2017 — 2819 # by Keith Vetter 2017-08-07 # proc string_mapx {mapping str} { if {[llength $mapping] % 2 != 0} { return -code error "regex map list unbalanced" } # Difficulty is we must avoid double substition, meaning
• string match
  28 Sep 2018 — match''' ''?'''''-nocase'''''? pattern string'' ** Description ** Determine whether ''pattern'' matches ''string'', returning return 1 if it does, 0 if it doesn't. If '''-nocase''' is specified, then the pattern attempts to match against
• String occurrences
  20 Feb 2018 — offering. ====== proc string_occurrences {needleString haystackString} { set j [string first $needleString $haystackString 0] if {$j == -1} {return 0} set i 0 while {$j != -1 } { set j [string first $needleString $haystackString [incr j
• String Performance: split vs regexp vs scan
  13 Oct 2017 — set i [expr {$i * 10}]} { lappend iterations $i } # prep string set testlist [list var0=0] for {set i 0} {$i < $tokens} {incr i} { lappend testlist [list var[expr {int(rand()*1000)}]=[expr
• string range
  30 Oct 2012 — whose index is ''first'' and ending with the character whose index is ''last''. An index of 0 refers to the first character of the string. ''first'' and ''last'' may be specified as
• string replace
  01 Dec 2012 — whose index is ''first'' and ending with the character whose index is ''last''. An index of 0 refers to the first character of the string. ''First'' and ''last'' may be specified as
• string reverse
  01 Mar 2014 — 8.4: ======none proc string'reverse str { set res {} set i [string length $str] while {$i > 0} {append res [string index $str [incr i -1]]} set res } ;# RS % string'reverse "hello, world
• string totitle
  23 Nov 2012 — titleCase {word {pattern {\w}} {end "end"}} { if { [regexp -indices -- $pattern $word match] } { set num [lindex $match 0] return [string totitle $word $num [string map [list %START% $num] $end]] } else { return $word } };# titleCase
• string trimleft
  16 Jan 2012 — right thing: ====== proc TrimLeadingZeroes {n} { if {[string length $n] == 0} {return ""} set trimmed [string trimleft $n 0] if {[string length $trimmed] == 0} { return "0" } else { return $trimmed } } ====== I suggest always using such
• string wordstart
  09 Sep 2012 — salient examples: % set s "abc defgh i jklmnop" abc defgh i jklmnop % string wordstart $s 2 0 % string wordstart $s 3 3 % string wordstart $s 4 4 % string wordstart $s 7 4
• struct Var proposals
  06 Dec 2009 — APPEND_VALUE|TCL_LIST_ELEMENT); varPtr = TclObjLookupVarEx(interp, part1Ptr, part2Ptr, flags, "set the type of", /*createPart1*/ 0, /*createPart2*/ 1, &arrayPtr); if (varPtr == NULL) { return NULL; } return varPtr->userTypeObjPtr; } Tcl_Obj * Tcl_ObjSetUserType2
• Stubs
  12 Jul 2018 — was originally built for Tcl 8.0 should work with Tcl 8.1, and an extension built for Tcl 8.1 could work with Tcl 8.0. A shared object that doesn
• Stubs - Another explanation
  26 Mar 2018 — case in point. If the VStubs features as described above have been available in tcl 8.0, the TCL virtual file system (vfs), could have been implemented as an extension without any
• stunnel
  10 Jul 2018 — case stunnel actually binds to `127.0.0.1`. To listen on all address, use the wildcard address explicitly: ======none [https] accept = 0.0.0.0:443 connect = 80 cert = /etc/stunnel
• Styling the readonly combobox for the vista theme
  31 Aug 2018 — available for Windows Vista and later if { $::tcl_platform(platform) eq "windows" && $::tcl_platform(osVersion) >= 6.0 && [ttk::style theme use] eq "vista" } { # Set up a readonly combobox style that matches win
• SubCommands and named arguments
  20 Oct 2012 — set prototype [lrange $prototype 0 end-1] } foreach proto $prototype { switch [llength $proto] { 0 { error "You can't have an argument with no name." } 1 { if {[llength $optional] > 0} { error "You can
• subject observer logic bomb
  14 Sep 2018 — var list {{?do?} {}} {{?script?} {}}} { if {[string length ${?do?}] == 0 && [string length ${?script?}] == 0} { return [expr {[lsearch $list $var] > -1}] } set varname [lindex [info level 0] 1] set matches [lsearch -all -inline $list
• subproc
  22 Feb 2015 — body code: if {[llength $args] == 2} { set body [lindex $args 0] set args [lindex $args 1] } else { set args [lindex $args 0] } # Strip comments from the subproc body so that we can
• subsequences
  29 Jun 2013 — res "[expr {$x%2}] $res" set x [expr {$x/2}] } return $res } Testing: % bits 15 5 0 1 1 1 1 % subseq {a b c d} a {a b} {a b c
• subSQL
  21 Nov 2017 — but took 2.1 sec on sux000. A query with two ANDs took between 0.7 and 0.85 sec on sux000 from a database of 3007 entries loaded in 34..47
• subst
  13 Jul 2016 — such snippets can be pasted into a text widget and visualized by ====== subst [$t get 1.0 end] ====== ** Variable Substitution ** Even when the `-nocommands` option is used, variable substitution triggers any command
• Subst template expansion helpers
  02 Feb 2012 — template:foreach { args } { incr ::template:level set reply [uplevel [subst { set _${::template:level} {} foreach {*}[lrange $args 0 end-1] { append _${::template:level} \[subst {[lindex $args end]}] } set _${::template:level} }]] incr {::template:level
• Subtext
  07 Jan 2018 — storage [set the_prog_array($identifier)] if {[lindex $from_storage 0] == "data"} { return [set the_data_array($identifier)] } if {[lindex $from_storage 0] == "function"} { set incoming_links [lindex $from_storage 2] set
• Success-fail control structures
  30 Nov 2013 — One example might be ====== proc lcontains {list item} { set n [lsearch -exact $list $item] if {$n>=0} then {return $n} else {fail} } ====== which could be used as ====== f-if {set n [lcontains
• sudo
  28 Dec 2014 — pipe mypass} fileevent $pipe writable {} } proc sudo:read {pipe} { puts "sudo:read \[$pipe\]" variable $pipe upvar 0 $pipe _ set chars [gets $pipe line] puts " read \[$line\] ($chars chars)" append _(stdout) $line\n
• Sugar
  19 Feb 2014 — News''' 0.1 version released. This is the first real release in form of a Tcl package. See the download section for the download URL. '''Introduction''' [Sugar] is a macro system for
• Sugar command macros
  06 Apr 2016 — The following are four examples: ====== # [first $list] - expands to [lindex $list 0] sugar::macro first argv { list lindex [lindex $argv 1] 0 } # [rest $list] - expands to [lrange $list 1 end] sugar::macro
• sugar for Tcl/Tk 8.3
  20 Apr 2015 — lindex $args 0] set idx 0 set isquoted 0 while 1 { incr idx set arg [lindex $args $idx] if {$arg == {--}} { lappend result $arg incr idx break } if {[string index $arg 0] != {-}} break
• Sugar macros collection
  26 Nov 2011 — cmd TOK 0] } } if {$lastidx == -1} { return $code } set cmd [lindex $code $lastidx] set cmdname [lindex $cmd $cmdidx 1] if {[lindex $cmd 0 0] eq {SPACE}} { set space [lindex $cmd 0 1
• Sugar syntax macros
  30 May 2014 — i 0} {$i < [llength $argv]} {incr i} { set tok [lindex $argv $i] if {[string index $tok 0] eq {(}} { set start_idx $i } } if {$start_idx == -1} { return $argv } set level 0 for
• Sugar transformers
  26 Nov 2011 — set j 0} {$j < [llength $code]} {incr j} { set cmd [lindex $code $j] if {[sugar::indexbytype $cmd TOK 0] != -1} { set lastidx $j set cmdidx [sugar::indexbytype $cmd TOK 0] } } if {$lastidx
• Suggestions for Wiki Diffs Discussion
  11 Apr 2014 — s history as part of Wikit. To see it in action: http://panoptic.com/wiki/aolserver/0^ -- I'm using ^ and - as command characters. Does anyone see any problem with this approach
• Suggestions for Wikit Diffs Discussion
  11 Apr 2014 — s history as part of Wikit. To see it in action: http://panoptic.com/wiki/aolserver/0^ -- I'm using ^ and - as command characters. Does anyone see any problem with this approach
• sum
  16 Jan 2002 — in your sum(1) manual page. For example using the BSD algorithm: % package require sum 1.0 % crc::sum "Hello, World!" 37287 % crc::sum -file sum.tcl 16358 % crc::sum -format 0x
• Sumerian Coefficients at the Bitumen Works and eTCL Slot Calculator Demo Example edit
  09 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• Sumerian Population Density and eTCL Slot Calculator Demo Example
  07 Mar 2017 — insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff" .frame.entry7 insert 0
• Sumerian Prism and Pyramid Volume Formulas and eTCL Slot Calculator Demo Example, numerical analysis
  09 Mar 2017 — fillup 1.0 1.0 1.0 1.0 1.50 1.0 1.0 1.0} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 2. 2. 4.0 4.0 1
• Sumerian Sheep and Herd Animal Calculator and eTCL Slot Calculator Demo Example, numerical analysis ▲
  07 Mar 2017 — 100.0 :|sheep1| 100.0 |& &| 80.0 :|lambs1| 80.0|& &| 100.0 :|sheep2|100.0|& &| 70.0 :|lambs2 |70.0 |& &| 15.0 :|days time period|15.0 |& &| 80.0 :|percent1|80.0
• Sumerian Surveyor Area Formula and eTCL Slot Calculator Demo Example, numerical analysis
  30 Sep 2018 — 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 2. 2. 4.0 4.0 4.0
• Sumerian Workday Time & Account Calculator and eTCL Slot Calculator Demo Example, numerical analysis
  09 Mar 2017 — 40.0 |& &| 0.0 :|women (geme)| 0.0|& &| 0.0 :|working children (dumu)|0.0|& &| 0.0 :| old workers (sugi), disabled |0.0 |& &| 60.0 :| days time period|60.0 |& &| 2400.0
• Summing a list
  13 Apr 2016 — set total 0 foreach nxt $l { incr total $nxt } return $total } ====== ---- Do you think it would be harmful to students to see ====== proc ladd l { if {![llength $l]} {return 0} return [expr
• Sun, moon, and stars
  27 Aug 2016 — cos($rad)] \ [expr $x+$r*0.67*sin($rad1)] [expr $y-$r*0.67*cos($rad1)] \ [expr $x+$r*0.67*sin($rad2)] [expr $y-$r*0.67*cos($rad2)] \ ] } set res
• Super and Subscripts in a text widget
  17 Dec 2005 — 5p ;# (1) .t insert 1.0 "Little Willy took a drink,\n" {} .t insert 2.0 " But he will drink no more,\n" {} .t insert 3.0 "For what he thought was
• Super Code
  01 Aug 2003 — t- $n1 w [l qip.t $h $b] ; s ip [s $n1] if {[se "0.0.0.0" $ip] || [se "" $ip]} {g>> $b error ; -*-} s ::h($h) [l [c:s] $ip] ; g
• Super SymDoodle
  30 Nov 2016 — ttk::button .f.c -text C -width 0 -command {.c delete line} -takefocus 0 ::ttk::button .f.h -text X -width 0 -command ToggleAxis -takefocus 0 scale .f.pen -from 1 -to
• Super-exponential growth in text manipulation
  11 Jun 2012 — N(k) m The solution is: N(k) = (n+1)^(k-1) N(0) L(k) = L(0) + N(0) m ((n+1)^k -1)/n * (3.) When replacing the A, the
• Supernotepad
  01 Nov 2006 — between extremes of (1) GNU GPL and (2) BSD-type licenses. Based on Tk NotePad 0.5.0 by Joseph Acosta and textedit.tcl by Eric Foster-Johnson. Currently at version 2006ez
• Surprise belt game
  03 Mar 2018 — with some imperfectances .c create line 0 0 0 0 -width 8 -smooth 1 -tag band set y 0 incr x0 $p(distance) for {set x 0} {$x < $x0} {incr x 20
• Surreal numbers
  18 Jun 2012 — return 0 } } ====== With these procedures, we ought to be able to check simple arithmetical properties (this is mainly a sanity check for the moment): puts " 0 <= 0? [LE $0 $0]" puts " 0
• SVG
  18 Jul 2010 — not close to SVG. SVG is a powerful visualization system, supporting viewports, transformations, gradients, transparency... tkpath 0.3 introduced groups, and thus made a big step toward viewport and full transformation support
• svmk
  11 Oct 2012 — dbglevel 0 proc ::svmk::dputs {lvl txt} { if {$lvl<=$::svmk::dbglevel} { puts stderr "[string repeat " " $lvl]* $txt" } } proc ::svmk::system {args} { # wrapper around exec set ignore_err 0 set quiet 0 set
• Swank
  26 May 2017 — to code against the Tk widget set rather than Swing or AWT. Currently at version 3.0.0a2 Updated: 07/2012 Contact: See web site === ---- site above is closed.. any alternate place
• Swank Canvas Connectors
  18 Jan 2010 — 47.4 -anchor c -font "Helvetica 10"] update set item [.c create connector 0.5 0.5 0.5 0.5 -fill orange -startcon abc -endcon xyz -startstyle circle -endstyle circle -width
• Swank Canvas Scene Graph
  18 Jan 2010 — white] -fill both -expand y set node0 [.c create node 0 0 -outline blue -width 2] set node1 [.c create node 0 0 -outline green -width 2] set red [.c create rectangle
• Swank Canvas Widget Saving
  18 Jan 2010 — 0 1080.0 80.0 1050.0 40.0 1060.0 100.0 1060.0" dash="" dashphase="0.0" width="1.0" fill="" outline="black" rotate="0.0" shear="0.0 0
• Swig
  31 Mar 2017 — interfaces [C] and [C++] code. ** Attributes ** name: SWIG website: http://www.swig.org/ latest version: 3.0.12 ** See Also ** [Swig example showing access to C structures from Tcl]: [Generating wrappers for
• Sybtcl
  11 Sep 2013 — requested extensions. The latest report was that it was based on Tcl 7.4/Tk 4.0/Tcl Motif 1.4/Expect 5.17/incr Tcl 1.5 . Oratcl, Sybtcl, GLXaux as
• Syllable Counting
  04 Feb 2016 — tcl #--------------- #!/bin/sh #\ exec tclsh "$0" "$@" #--------------- # Obtain number of syllables in an English word #--------------- # Arguments: # str word # Returns: # number of syllables # proc syllables { str } { set res 0 # functions as a semi-vowel
• Symbolic links in Windows/CE
  28 Nov 2005 — if 0 {[Richard Suchenwirth] 2003-03-05 - In contrast with the more complex structure in desktop [Windows shell links], symbolic links in [Windows/CE] are refreshingly simple: very brief text files with
• Symbolic manipulation
  14 Jun 2012 — 1)" } { return $mult2 } if { $mult2 == "1" || $mult2 == "(1)" } { return $mult1 } if { $mult1 == "0" || $mult2 == "0" || $mult1 == "(0)" || $mult2 == "(0)" } { return 0 } return "$mult1*$mult2" } "/" {return "[toexpr2 / $operand1]/[toexpr2 / $operand2]"} "npow" {return "pow
• Synchronizing System Time
  01 Sep 2013 — style.*?/style>} $r {} r regsub -all {<[^>]*>} $r "\n" r regsub -all {&[^;]*;} $r "\n" r set found 0 foreach line [split $r "\n"] { set line [string trim $line] if {[regexp {^\d\d:\d
• syntax highlighting
  19 Jun 2010 — s change to [Textjam] [http://wiki.tcl.tk/_/diff?N=25882&V=3&D=2&W=0#diff0] is an interesting case study in problems caused by incorrect syntax highlighting. He had
• Syntax highlighting in tG2
  01 Sep 2015 — 0 ;# index for starting brace set j 0 ;# index for ending brace set z 0 ;# line counter set synt($pats) 0 foreach line $data { set pat "[lindex $pats 0]"; set s 0
• Syntax parsing in Tcl
  10 Jun 2011 — is sufficient: ====== proc parse0 {s rules} { set fired 1; set s " $s " while {$fired} { set fired 0 foreach {lhs rhs} $rules { incr fired [regsub -all " $rhs " $s " $lhs " s] } } set s } ====== It
• system
  02 Jul 2012 — exec fgrep lvirden /etc/motd child process exited abnormally % set rc [system fgrep Sun /etc/motd] Sun Microsystems Inc. SunOS 5.8 Generic Patch December 2002 % puts $rc 0 % ====== <<categories>> Command | TclX
• system tray
  20 Apr 2016 — create a package entry in the `pkgIndex.tcl` file for Winico 0.3. In `pkgIndex.tcl`: ======none package ifneeded Winico 0.3 [list source [file join $dir winico.tcl]] ====== in `winico.tcl
• t-Calc
  24 Dec 2011 — to evolve as her requirements evolve in the future. The initial result is t-Calc 1.0. You can download the [Starkit] [http://www.fios.org/bionetlab/t-calc-1b.kit] (fixed
• T2I
  16 Mar 2009 — only accessible, failed t2i and a third one, an under-development t2i which would become 1.0. In this page, "t2i" refers to the third t2i, the one under development. All t2i
• T2WS
  14 Nov 2016 — Arguments # Implement the different commands (eval <TclCommand>, file <File>) switch -exact -- $Command { "eval" { set Data [uplevel #0 $Arguments] return [dict create Body $Data Content-Type "text/plain"] } "file" { return [dict create File
• Tab/Focus Sequencing
  10 Dec 2012 — currentWidget [lindex $tabSequence end]]} { set newLocation [lindex $tabSequence 0] } else { set newLocation [lindex $tabSequence [expr $curLocation + 1]] } } else { if {[string match $currentWidget [lindex $tabSequence 0]]} { set newLocation [lindex $tabSequence end] } else { set
• Tabbed/Notebook Menus
  07 Mar 2018 — gnocl::vBox -name CONTAINER -padding 0 gnocl::text -name TEXT -useMarkup 1 -margins {4 4 0 4} -wrapMode word gnocl::window -name MAIN -child [CONTAINER] -setSize 0.5 -title [file tail $app
• table listbox widget
  11 Aug 2012 — Also includes checkbuttons or radiobuttons in table format. Also requires BLT. Latest version supports Tk 4.0, while the older version supports Tk 3.4. Updated: 10/2009 Contact: mailto:abrighto@eso
• table.tcl
  10 Nov 2009 — lindex $box 0]] } } proc table_margin1 {i infov defv} { upvar \#0 $infov info if {$i == 0} { return 0 } if [info exists info($i,m1)] { return $info($i,m1) } upvar \#0 $defv info
• tablelist 6.0 - yet another header cellconfigure example
  05 Jan 2018 — columns {0 "File Name" left 0 "Bar Chart" center 0 "File Size" right 0 "View" center 0 "Seen" center} \ -setgrid no -yscrollcommand [list $vsb set] -width 0 if {[$tbl cget -selectborderwidth] == 0
• Tables
  05 May 2005 — lindex $args end] set header [lindex $table 0] set res [eval lsort [lrange $args 0 end-1] [list [lrange $table 1 end]]] linsert $res 0 $header } Removing a row (or contiguous sequence
• tabnotebook
  13 Jun 2008 — is a demo of the process: $ tclsh % package require Iwidgets 4.0.2 % iwidgets::tabnotebook .t .t % .t add -label "0" .t.canvas.notebook.cs.page1.cs % .t add -label "1" .t
• tabset
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/tabset.html and http://purl.org/tcl/home/man/iwidgets3.0/tabset.n.html ---- [Category Command], a part of [incr Widgets]
• tabula rasa
  17 Mar 2011 — pair [trace info variable ::$variable] { foreach {op traced_command} $pair {} set op [string range $op 0 0] trace vdelete ::$variable $op $traced_command } } eval destroy [winfo children .] foreach name [image names] { image
• tabulate
  14 Apr 2018 — default $::tabulate::style::default \ store -alignments or -align in align default {} \ store -margins in margins default 0 # ... } ====== ** Discussion ** [JM] 2015-08-03: I am probably doing something wrong:<<br>> % info tclversion 8
• taccle
  13 Dec 2015 — taccle 1.0 at http://tcl.jtang.org/taccle/taccle-1.0.tar.gz * taccle 0.4 at http://tcl.jtang.org/taccle/taccle-0.4.tar.gz * taccle 0.3 at
• TaeglicherStrahlungsBericht
  28 Jun 2011 — updated radiation map of Germany. I found this source of information quite serious. '''Code:''' ======tcl # Version 0.1 package require base64 package require http package require Img catch { console show } # http::config
• Tag Cloud Generator
  24 Sep 2011 — set bucket_count 1 set bucket_items 0 set tags_set 0 foreach tagdata [lsort -integer -index 0 $taglist] { set tag_count [lindex $tagdata 0] set tag [lindex $tagdata 1] # If we
• Tagging MP3 files
  18 Jan 2013 — 0 scrollbar .f3.sbgen -orient vert -command {.f3.lbgen yview} pack .f1 .f2 .f3 -padx 1m -pady 1m grid .f1.lfil -row 0 -column 0 -sticky e grid .f1.efil -row 0
• Tagging variables with meta-data
  13 Aug 2011 — lindex $x 0]] == 1 && [llength [lindex $x 1]] == 2 && [lindex $x 0] eq "unset" && [lindex $x 1 0] eq "#vtag#"} { set r [lindex $x 1 1] if {[llength $args] == 0} { return $r
• tags
  19 Sep 2013 — item has it foreach i {1 2 3 4 5} { .c create rect [expr $i*10] 0 [expr $i*10+8] 8 -tag box } ;# create multiple canvas objects .c itemconfig box -fill
• Tail
  24 Sep 2012 — fh -blocking no -buffering line seek $fh $pos start while {[eof $fh] == 0} { gets $fh line if {[string length $line] > 0} {puts $line} } set pos [tell $fh] close $fh } } ====== ---- A better approach
• tailf
  07 Jun 2014 — v4.0 in the ;## gnu fileutils package. if { $_inode != $inode } { catch { close $fid; set fid {} } } else { if { $_size < $size } { catch { seek $fid 0 } } if { $_size == $size && $_mtime != $mtime } { catch { seek $fid 0
• tailf-inotify
  29 Sep 2010 — 2] set old [lindex $Wd2info($wd) 0] set new [getpos $filepath] set Wd2info($wd) [lreplace $Wd2info($wd) 0 0 $new] if {$new < $old} { set old 0 } if {$old != $new} { set fd [open
• Tailing widget
  22 Oct 2011 — pack .scroll -side right -fill y pack .t -side left set ::fp [open $filename] seek $::fp 0 end } proc read_more {} { set new [read $::fp] if {$new ne ""} { .t insert end $new
• Tailing Windows Eventlogs Using TWAPI
  12 Nov 2013 — handler [list trapClose] set ix 0 array set hevl {} array set hmon {} array set hname {} foreach log $argv { if {[llength $log] == 2} { set logname [lindex $log 0] set logsys [lindex $log 1
• take
  20 Jan 2013 — first ''n'' elements in a list: ====== proc take {n xs} { lrange $xs 0 [incr n -1] } ====== [MJ] - Or in 8.5: ====== proc take {n xs} { lrange $xs 0 $n-1 } ====== <<categories>> example
• Taking the Nth power
  29 Nov 2012 — first (they also stop the recursion) # if { $r == 0 } { set result 1 } elseif { $r == 1 } { set result [expr {$n % $m}] } elseif { $r%2 == 0 } { set nn [powm $n [expr {$r/2}] $m
• Talking to a Delta Tau PMAC
  18 Jan 2013 — Here 0 set here 0 foreach line [split $Data \n] { if { [string length $data] + [string length $line] + 1 > 1000 } { pmac:wbuff $sock $data $Here incr Here $here set data {} set here 0
• Taming Wild Windows
  17 Jan 2013 — string map {x " " + " "} [winfo geometry $W]] break set sensi 40 ;# the magnetic border sensitivity set snapped 0 ;# do we need to snap the window anywhere? # Trick: Only do one of the snapping
• TamusJRoyce
  22 Aug 2018 — match "&&" $subpattern]} { continue } if {![isMatch $subpattern $text 1]} { return 0 } } return 1 } set matchNotNegated 1 if {[string first "~" $pattern] == 0} { set matchNotNegated 0 set pattern [string trimleft $pattern "~"] } if {[string match $pattern
• tan
  19 Jun 2012 — 59 % expr tan(acos(0)) 16331778728383844.0 60 % expr tan(acos(0.0)) 16331778728383844.0 61 % set pi 3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117068 62 % expr tan(double($pi/2.0)) 16331778728383844.0 [DGP] Somewhat more
• Tangents make a curve
  29 Nov 2010 — 10+0.01}] [expr {200.0-$i*10-0.01}] $scale tangentLine [expr {$i*$scale*10}] [expr {200.0-$i*$scale*10}] $scale #tangentLine [expr {$i*$scale*10}] [expr {200.0-$i
• Tangram
  27 Dec 2011 — w 0 0 0 100 50 50 tan $w 0 100 50 50 100 100 tan $w 0 0 25 25 75 25 50 0 tan $w 50 0 100 0 100
• Tanzer
  15 Dec 2014 — Failed to connect to tanzer.io port 80: Connection timed out (curl_result = 7, http_code = 0, sha1 = c66188e2ac8e0e305c5236a3b4fd5afc2b31c66b) error: Unable to find c66188e2ac8e0e305c5236a3b4fd5afc2b31c66b under http://tanzer.io/git/tanzer.git Cannot
• TAO
  09 Feb 2017 — in foreach towel [my inventory list towel] { if { [$towel location] eq [my location] } } { return 1 } } return 0 } } ### # Something owned by someone who potentially owns a towel ### tao::define towel { # List other names
• tarpack
  08 Apr 2012 — rough example of how the Thread package was wrapped as a tarpack: %package require tarpack 1.0 %tarpack::create Thread-2.6.1.tm [list ttrace.tcl Windows-x86 FreeBSD-x86] Thread
• TAX Revisited
  07 Jun 2011 — s*=\\s*)\} {\\3} \" \"\] \{" regsub -all $exp $xml $sub xml eval "$cmd {$start} 0 0 {} \{$xml\}" eval "$cmd {$start} 1 0 {} {}" } # Internal function that keeps track of the tag calling tree and # merges
• Taxes: csv to txf converter
  17 Nov 2013 — string length $tok] == 0 && [llength $buf] == 0} { set TOK TOK_END } return $TOK } proc getrec {bufvar} { upvar $bufvar buf set tok "" set rec [list] set word "" for {set done 0} {!$done} {} { set
• Taylor Expansion
  20 Jan 2013 — an example, ======none f(x) = exp(-1/(x**2)) if x !=0 f(0) = 0 ====== is infinitely differentiable at ''x=0'' - all derivatives exist, and are zero. It's Taylor series exists
• tcanvas
  13 Jan 2013 — tcl/tcanvas1.0/readme.txt] * tcanvas.txt [http://web.tiscali.it/irrational/tcl/tcanvas1.0/tcanvas.txt] ---- [http://web.tiscali.it/irrational/tcl/tcanvas1.0/demo.gif] ---- '''Download:''' * tcanvas1.0.zip [http
• tcap
  13 Oct 2012 — package require tcap tcap open fxp0 0 1500 set dl [tcap dloff] tcap filter "tcp" while {1} { set g [tcap get] if {[llength [split $g]] > 0} { puts [lrange $g $dl end] } } tcap
• tcc tcl extension
  17 Mar 2011 — tmp[20]; Tcl_Obj *result = Tcl_NewListObj(0,NULL); TCCState *tccp = (TCCState *)clientData; int cnt = 1; int err = 0; char *file = NULL; int disposition = 0; int type = -1; struct tcc_augmented state
• tcc4tcl
  19 Mar 2015 — index ---- [dbohdan] 2015-03-16: As of version 0.23 you can compile tcc4tcl on Linux thus: ======none #!/bin/sh set -e version=0.23 release="tcc4tcl-$version" url="http://rkeene.org
• Tch
  18 Jan 2013 — on the man pages. The doc has been reformatted and rewritten for use with Tch. Version 0.1 is alpha. This program will probably become shareware or commercial as it develops in
• Tcl 8.0 performance advice
  01 Sep 2013 — Tcl 8.0 performance advice
• Tcl 8.4 Roadmap
  30 Aug 2012 — July 2002) Quote: * 8.4b1 was July 5th. * 8.4b2 should be August 5th. * 8.4.0 should be September 5th. I don't know of any major problems or issues that
• Tcl 2002 programming contest: solutions to problem 1
  28 Jan 2011 — 0 1 0 2 0 3 0 4 1 2 1 3 1 4 2 3 2 4 3 4} { if {[string compare [lindex $l $i 0] [lindex $l $j 0]] > 0
• Tcl Advocacy
  15 Oct 2015 — argues that Tcl is "the one languge you need to know" [http://www.devsource.com/article2/0,1759,1778148,00.asp%|%Five Surprises from Tcl%|%]: is a good read for programmers who
• Tcl and LISP
  19 Sep 2017 — set used($cell) 0 } foreach var [info globals] { findrefs $var if {[array exists ::$var]} { findrefs [array get ::$var] } else { findrefs [set ::$var] } } for {set i [info level]} {$i > 0} {incr i -1
• Tcl and PalmOS on the desktop
  07 Sep 2013 — Also contains a class system with methods for Tcl. V2.0 requires a C++ compiler, Tcl 7.4 and Tk 4.0 or later. See the freebsd site for v2.2 of
• Tcl Articles
  10 Mar 2013 — SysAdmin Magazine ,Volume 8,p.49-54 ,1999-11 [http://www.computerworld.com/news/1999/story/0,11280,33629,00.html%|%Computerworld featured the NBC control room in January, 1999:%|%] ** 1998 ** [A
• Tcl Based Installers
  16 Aug 2010 — been switched to a [starpack] for [Tcl Dev Kit] 2.5 and [ActiveTcl] 8.4.2.0. A Tcl-based installer is [Tclish], http://tclish.sourceforge.net/ [Starkit] (ex Scripted Document) follows
• Tcl based Packed Decimal Arithmetic
  19 Jun 2012 — During February 2002, [Gerald Lester] posted version 0.1 of the following code, designed to be a script level package for performing precise math against decimal numbers. For more precision from a
• Tcl based signal processing fundamentals: Additive Wave Synthesis
  17 Feb 2016 — s4 set h [list 1.0 [expr {$s1/100.0}] 2.0 [expr {$s2/100.0}] 3.0 [ expr {$s3/100.0}] 4.0 [expr {$s4/100.0}]] plotlist [additive $h 300
• Tcl based signal processing fundamentals: Frequency Modulation
  09 May 2011 — as a carrier. In tcl: ====== proc freq_mod_signal {time, Fc, Fm, Beta} { set twopi 2.0*3.1415926535 return [expr cos( $twopi * $Fc *$t + $Beta*sin( $twopi * $Fm * $t) ) ] } ====== Where the
• Tcl Browser Plugin Design
  01 Sep 2013 — http://developer.mozilla.org/en/docs/Using_XPInstall_to_Install_Plugins] Old Netscape docs for NPAPI: [http://devedge-temp.mozilla.org/library/manuals/2002/plugin/1.0/pluginTOC.html] <<categories>> Internet | Design
• Tcl C API
  17 Jun 2017 — the API functions make use of the [Tcl_Obj] structure that was introduced in Tcl 8.0. For more general information of Tcl_Obj see: * [Tcl_Obj] and [Tcl_Objs] * [Tcl_Obj
• Tcl Canon and Fugue
  16 Jan 2011 — Ticcelo-philosophicus''.. :) '''0. The simplicity of Tcl stems from its simple syntax and processing model''' The application of the [Endekalogue] to a value, followed by the '''resolution''' of [[lindex $cmd 0]] as
• Tcl Chatroom
  19 Sep 2018 — use strict; use warnings; use Irssi; use Irssi::Irc; use vars qw($VERSION %IRSSI); $VERSION = "0.0.2"; %IRSSI = ( authors => "Andrew Shadura", contact => "bugzilla\@tut.by", name => "ijchain filter for #tcl\@freenode
• Tcl chatroom snaphost history
  09 Mar 2015 — at least netscape is ...) '''Bugs:''' * version 0.1 had a possible resource leak when the connection failed; fixed in 0.2 * repeated lines can cause version 0.2 to fail, in the
• Tcl chatroom snaphost history (2)
  09 Mar 2015 — set first2 [string range $str2 0 [string first "\n" $str2]] set firstLen [string length $first2] while {1} { set index [string first $first2 $str1] if {$index == -1} { return 0 } set str1 [string range
• Tcl cheat sheet
  20 Feb 2010 — i=0; $i<count($var); $i++) echo $var[[$i]]; '''Perl:''' foreach $thing (@var) { print $thing; }; or just print @var; for hashes: print map {"$_->$var{$_},"} keys %var; '''Tcl:''' for { set i 0 } {$i
• Tcl code for business use
  20 Apr 2009 — addspace [.price get]] set quan [addspace [.quane get]] .namee delete 0 end .typee delete 0 end .price delete 0 end .quane delete 0 end if { [string compare $name ""] == 1 && [string compare $name
• Tcl Command Evaluation: Layer 0: Tcl_ObjCmdProc call
  24 Aug 2004 — Tcl Command Evaluation: Layer 0: Tcl_ObjCmdProc call
• Tcl Command Evaluation: Layer by Layer
  22 Dec 2011 — value of ''objv[[0]]'' however, for a few reasons. First it is a property of Tcl commands that they can be [[rename]]d. Thus the value of ''objv[[0]]'' may very well
• Tcl community projects
  22 Jul 2017 — unmaintained free software project, at [http://www.unmaintained-free-software.org/category.php?id=35&start=0&length=5], attempts to provide a catalog of software that is ''up for adoption''. * Yahoo
• Tcl Core Team
  06 Jan 2017 — are introduced, accepted, and documented. ** Documentation ** [TIP] [http://www.tcl.tk/cgi-bin/tct/tip/0.html%|%0, Tcl Core Team Basic Rules]: [http://code.activestate.com/lists/tcl-core/%|%mailing list
• Tcl Curses Menu
  20 Nov 2013 — col + $maxlength + 2] set selected 0 while {1} { if {$selected < 0} { set selected 0 } elseif {$selected > [llength $items] - 1} { set selected [expr [llength $items] - 1] } set i 0 foreach item $items { if
• Tcl data types
  11 Jun 2011 — Arrays / Hash maps] ---- '''Lists''' ---- '''Handles''' ---- '''Widgets''' ---- '''Byte Codes''' The most significant performance enhancement in Tcl 8.0 is the addition of a byte-code compiler. The compiler will automatically translate a script
• Tcl Dev Kit
  12 Aug 2018 — 05-04) documentation: http://docs.activestate.com/tdk/5.4/toc.html Current Version: 5.4.0 Updated: 2014-12-08 Contact: See ActiveState Site ** [PYK] Fork ** repository: https://chiselapp.com/user
• Tcl Developer Studio
  31 Mar 2014 — TCL Developer Studio''' http://kakunin.chat.ru/tcldev/ [HJG] 2014-03: still at version 1.0, dated 12.07.1999. [EMJ] 2014-03-31: Actually there is a later version (22 Feb
• Tcl DNS server
  06 Jun 2015 — format to readable string set result "" set chr 0 while {$chr < [string length $dnsname]} { binary scan [string index $dnsname $chr] c* groupcnt if {$chr > 0} {set dnsname [string replace $dnsname $chr $chr
• Tcl Documentation on Stackoverflow
  28 Sep 2018 — up. Here are the basic terms of the license: [https://creativecommons.org/licenses/by-sa/3.0/] (the full license is linked to). Can anyone confirm or deny that the snippets we
• Tcl Elisp Macros
  02 Oct 2010 — goto-char (match-beginning 0)) (recenter '(4))) (defun backward-tcl-definition () "Move backward to the previous procedure definition." (interactive) (re-search-backward "proc ") (goto-char (match-beginning 0)) (recenter '(4))) ---- The direct
• Tcl event loop
  17 Apr 2016 — implement timers and repeated scheduled events: ====== proc every {ms body} { eval $body; after $ms [info level 0] } every 10000 {puts "hello world"} ====== See the [every] page for more. [garynkill]: Thanks a lot
• Tcl extension prototype - proto.cpp
  21 Nov 2009 — STUBS if (Tcl_InitStubs(interp, "8.0", 0) == NULL) { return TCL_ERROR; } #endif Tcl_CreateExitHandler(xProtoCmd::ExitProc, new xProtoCmd (interp_)); return Tcl_PkgProvide (interp_, "Proto", "0.1"); } ---- [Lars H]: I've been
• Tcl File Renamer
  06 Jul 2011 — x [lrange $data 0 [expr {$n-1}]] set data [lrange $data $n end] return $x } proc usage {} { puts {usage: tfrn command args... file1 ?file2 ... filen? "Tcl File ReNamer v1.0" renames massively
• Tcl Fltk
  13 Aug 2013 — version (1.0.xxx) is built against Tcl 8.5.11, A version for Tcl 8.6 releases is in the works. No support is going on for the obsolete 0.4
• TCL for beginners
  29 Jun 2018 — 0 ;# -> error: list element in braces followed by "{one" instead of space ====== The meaning of `{*}` is discussed later. `[lindex]` returns the list element, located at the given index. Indices start at `0
• Tcl for Creo
  21 May 2018 — 1.0|0.0|0.0|0.0|& &|0.0|1.0|0.0|0.0|& &|0.0|0.0|1.0|0.0|& &|0.0|0.0|0.0|1.0
• Tcl for DOS
  25 Oct 2013 — implemented using temporary file too. ** MSTCL ** MSTCL is a port of Tcl 7.3, Tk 4.0, and TclX 7.3a to [MS-DOS]. The Tk wish executable requires [http://www.chsoft
• Tcl Handles
  20 Apr 2017 — tcl.h> struct PointerAssoc { Tcl_Obj *obj; void *ptr; }; static int epochCounter = 0; /* counts deletion events */ static int allocatedFlag = 0; /* says whether an allocation has * happened * since the last deletion, so several
• Tcl highlights
  13 Jul 2011 — CL will provide details in September 2002.]] ''using a time machine?'' "... 8.4.0 typifies how Tcl uses "mere" minor upgrades to name major release milestones, that the conference broke even in
• Tcl Idioms for Process Management
  04 Aug 2017 — info commands tk] != {}} { tkwait variable forever; } else { vwait forever; } return; } proc eventloopStop {} { global forever; set forever 0; return; } proc timeoutStart {fh pid timeout} { # create a timeout handler to be executed after the
• Tcl in a hybrid of RealLife and More Equal Pigs
  01 Sep 2013 — FF 6 months After upgrading the http package to a newer version for even better HTTP2.0 support, suddenly the phone rings, it's PHB. <PHB>: AH what did you do?! All
• Tcl in comparison
  28 Sep 2018 — 0) x) | expr { $x > 0? $x : ((= x 0) 0) | $x == 0? 0 : ((< x 0) (- x)))) | $x < 0? -$x} | } | or: proc abs x {expr abs($x)} | or: proc abs x {expr {$x<0
• Tcl in Javascript
  29 Nov 2017 — 0.4] * a demo with the official test suite is included in the zip archive '''Supported platforms (browsers?)''' This implementation was tested with Firefox 2.0.0.10 and IE 7.0
• Tcl in tcl
  24 Sep 2012 — ins can equivalently be implemented in [pure-Tcl] (showing a slight redundancy): ====== interp alias {} eval {} uplevel 0 proc list args {set args} ====== ---- [CMcC] 2007-01-13: One of the virtues of [Tcl
• Tcl Interface to WinPCAP
  23 Jun 2012 — function in wpcap0.4? Would you do that? Thank you. [MJ] - Send is implemented in release 0.5 downloadable from location mentioned above. Note that it is the programmers responsibilty to make
• Tcl Interpreter in C# Application
  16 Mar 2017 — args = TclDll.Helper_ObjvToList(objc, objv); if (args.Count == 0) { System.Windows.MessageBox.Show("EMPTY cmd dispatch"); return 0; } string cmd = args[0]; if (DictCmds.ContainsKey(cmd)) { string result_string; int result
• TCL interpreter through socket
  07 Apr 2016 — is formatted as a two-element Tcl list followed by a newline. The first element is 0 if the script executed without error, 1 if there was a problem. The second element
• Tcl Intro
  29 May 2013 — Intro document in the same spirit as perl's perlintro [http://www.perldoc.com/perl5.8.0/pod/perlintro.html]. This is meant to be a quick-and-dirty kind of guide
• Tcl is misunderstood
  16 Dec 2008 — http://antirez.com/articoli/tclmisunderstood.html "Five Surprises from Tcl" [http://www.devsource.com/article2/0,1759,1778148,00.asp] [["best-kept secret"]] [FMM] ---- !!!!!! %| [Category Advocacy] |% !!!!!!
• Tcl Learning Exercises
  14 Jan 2016 — a procedure that takes the argument ''integer'', which is any integer, and randomly chooses numbers from 0 through that ''integer'' until it randomly chooses a number equal to ''integer'', and returns the
• Tcl Learning Exercises: Answer: Number Sign Class
  28 May 2017 — else'' operator may not be used. Here is one answer: ====== proc numsign n {expr {$n == 0 ? 0 : $n/abs($n)}} ====== Scroll down for the bonus round answer... <<br>> <<br>> <<br>> <<br>> <<br
• Tcl Marketing discussion
  20 Jan 2011 — to having additional users 3) unless they can be converted to contributors Obviously, if you have 0 users, none will become developers. You need a broad comunity to attract new blood. If
• Tcl Math Syntax is Inferior to JavaScript/Python/Ruby/C/C++/Java/Perl/PHP
  04 Jul 2008 — set i 0} {$i <= 10} {incr i} { myfunc [expr {2 ** $i}] } # Tcl (backticks for expr) for {set i 1} {$i <= 1024} {set i `$i * 2`} { myfunc $i } for {set i 0} {$i
• Tcl MIME
  18 May 2009 — generates and parses RFC2045 MIME body parts. Also includes an implementation of SMTP. Requires Tcl 8.0/Trf 1.8. Currently at v1.1. Updated: 11/1999 Contact: mailto:mrose.netnews@lists
• Tcl Module basic template
  24 Jun 2011 — name and package namespace? For example the `foo::bar` package version 1.0 is in a file `foo/bar-1.0.tm` relative to a directory on the module search path. The
• Tcl Module creation script
  24 Jun 2011 — of my systems and produced 178 *.tm files. ====== package require Tcl 8.5 package require trofs 0.4 eval [package unknown] Tcl [package provide Tcl] foreach p [package names] { if {[string match
• Tcl Modules
  08 Dec 2015 — ifneeded_*] 0 5] \n rcs 0.1 {source /Library/Tcl/tcllib1.8/rcs/rcs.tcl} logger 0.6.1 {source /Library/Tcl/tcllib1.8/log/logger.tcl} SOAP::Utils 1.0 {source
• Tcl MP3 Alarm Clock
  23 Jun 2011 — return $slist } proc lvarpop {upVar {index 0}} { upvar $upVar list; if {![info exists list]} { return "-1" } set top [lindex $list $index]; set list [concat [lrange $list 0 [expr $index - 1]] [lrange $list
• Tcl NG
  07 May 2014 — 7.6, the main design was one individual and the result reflected his Vision. From 8.0 onwards there has been no 'Vision'. Development has been Reactionary rather than Revolutionary. 1. ''Unfulfilled
• Tcl on the Slug
  04 May 2007 — linux-arm: ELF 32-bit LSB executable, ARM, version 1 (ARM), for GNU/Linux 2.0.0, dynamically linked (uses shared libs), stripped and for my natively built tclsh: -bash-2.05b
• TCL Plugin Documentation
  28 Jan 2013 — also writes about writing tclets for the plugin. You can find (stale) [documentation] of the 2.0 plugin on http://www.demailly.com/tcl/plugin/ ---- Please Note: This page has been designed
• Tcl Poetry
  20 Oct 2016 — array $of informants lassign [list of] tasks label .suspects lsearch for answers catch glimpses return -level 0 results info exists somewhere! lsearch some more catch yourself thinking, frame .someone? try violence \ trap
• TCL programs for beginners 1-10
  28 Dec 2015 — a file called `hello.tcl` contains the following text: ====== #! /bin/env tclsh puts "Hello world!" exit 0 ====== To run this script: ====== tclsh hello.tcl ====== In the above example, it may be necessary
• tcl programs for some maths exper
  25 Oct 2013 — 1} {incr i -1} { if {$d%$i == 0} { puts "factors are $i" } } } factor $d ######sum using while############# gets stdin a proc sum {a} { set s 0 set i 1 while {$i<=$a
• Tcl Progress Meter
  25 Jan 2011 — args} { set c 0 set spincnt 0 array set spinner {0 "/" 1 "-" 2 "\\" 3 "|"} while {$c < $i} { [lindex $args 0] [lrange $args 1 end] if {$spincnt == 3} { set spincnt 0 } else { incr
• Tcl Quoting
  14 Feb 2018 — 1 } proc reputation {} { set msg {an idle and false imposition} set msg2 {got without merit} uplevel #0 [list reputation_cb $msg $msg2] } reputation ====== One way to get the benefits of a `[proc
• Tcl Rules Redux
  17 Aug 2016 — when the maximum of three digits is reached. The upper bits of the Unicode character are 0. '''`\x`'''''hh'': The hexadecimal digits ''hh'' (one or two of them) comprise an eight-bit
• tcl size
  23 Jun 2014 — namespace # # Results: # Returns {size namecount varcount} proc tclsize::DataSize {{ns "::"} {interp ""}} { set ng 0 set nv 0 set size 0 foreach g [interp eval $interp info vars ${ns}::*] { incr ng if {[interp
• Tcl Socket Performance
  28 Jan 2012 — is Tcl 8.3.2 on all machines, W98 on the windows box and RH 7.0 and Slackware 96 on the linux boxes. Surprisingly, the test used a rather old 166
• Tcl socket performance client script source
  07 Aug 2011 — an example... ====== #!/bin/sh # \ exec tclsh "$0" ${1+"$@"} # Configure a socket for use with a relay link proc ConfigureSocket { fd } { global Connections fconfigure $fd -blocking 0 -buffering $Connections(Buffering) -translation binary return
• Tcl socket performance server script source
  19 Jun 2007 — exec tclsh "$0" ${1+"$@"} # --- server.tcl --- A server that does not do much # Configure a socket for use with a relay link proc ConfigureSocket { fd } { global Connections fconfigure $fd -blocking 0 -buffering
• Tcl style discussion
  24 Jul 2014 — b ** $n ) mod $p == $v" # $v == 0 can happen if b divides p; it's included # in case the alleged 'prime' p is composite. if { $v == 0 || $v == 1 } { break } set v
• Tcl sucks
  31 Mar 2012 — it should go through the nonblocking mechanisms. That means [[[fconfigure]]]'ing the socket to have -blocking 0, then using [[[fileevent]]] to schedule another callback for handling incoming data. The same goes for
• Tcl Telnet
  21 May 2014 — gets $client line] < 0} { disconnect $client return } if {[string equal $line "quit"] || [string equal $line "exit"]} { disconnect $client return } if {$auth($client)} { eval $cmd($client) [list $client $line 0] eval $cmd($client
• Tcl testimonials
  28 Sep 2018 — support and friendship. When I was a VB programmer, Bill Gates never e-mailed me once ;0). Check out the [perl] and c newsgroups for the contrast. Yes, tcl gets a lot
• Tcl Ticker
  11 May 2007 — Where: http://www.nyx.net/~tpoindex/tcl.html#Tclticker Description: is a simple stock market ticker (and mailer) Currently at version 0.0 . Updated: 04/2007 Contact: See web site ---- [Category Application]
• Tcl to C functions
  07 Mar 2017 — var),0);\n" } char* {append cbody \ " Tcl_ObjSetVar2(interp,${var}name,NULL,\ Tcl_NewStringObj($var,-1),0);\n" } double {append cbody \ " Tcl_ObjSetVar2(interp,${var}name,NULL,\ Tcl_NewDoubleObj($var),0);\n
• Tcl Tutorial Discussions
  09 Apr 2014 — around with [TkCon] 2. Learn TCL/TK in 24 Hours by the Sastry Doctors (SAMS, ISBN 0-672-31749-4, great little book) 3. Man pages ... I used the TclTutor by [Clif
• Tcl variable scope - how does Tcl control when a variable is seen?
  15 Apr 2015 — are doing. ======none % proc p1 {} { global v1 ; for {set i 0} {$i <1000} {incr i} { set v1 } } % proc p2 {} {for {set i 0} {$i <1000} {incr i} { set ::v2 } } % time { p1 } 100
• Tcl warts
  01 Jul 2017 — this one as there is no example. [AMG]: This might be a consequence of Tcl 8.0's addition of the "object" API which uses [Tcl_Obj] instead of character pointers. Many
• Tcl Web Resources
  09 Aug 2016 — This page is more for interactive "web2.0" stuff than reference material: **Run Tcl code online on someone else's server** * https://dbgr.cc/l/tcl * http://ideone.com/ * http://codepad.org
• Tcl wrapper for Pashua
  30 Nov 2013 — wrapper for Pashua in Tcl #Bruce M. Axtens, 2004. proc pashua_run {script} { upvar #0 argv0 appName upvar #0 env envir set tempFile [exec /usr/bin/mktemp /tmp/Pashua_XXXXXXXX] set handle
• Tcl Yahoo
  29 Oct 2008 — Where: http://freshmeat.net/projects/tclyahoo/ Description: Tcl/Tk Yahoo chat client. Currently at version 1.0 . Updated: 08/2002 Contact: See web site ---- This package doesn't appear to be found
• Tcl++
  04 Feb 2016 — eval ::itcl { namespace import -force ::tcl++::class namespace import -force ::tcl++::delete } package provide Itcl 3.0 } ====== ** Another Tcl++ ** | What:| Tcl++/Tk++| | Where:| http://www.amath.washington.edu/%7Elf/software/tcl++/ | | Where
• tcl-augeas
  16 Sep 2018 — W focus] -1} grid .tree -row 0 -column 0 -sticky nsew grid .scroll -row 0 -column 1 -sticky ns grid columnconfigure . 0 -weight 1 grid rowconfigure . 0 -weight 1 fill_roots .tree
• Tcl-Based Ping Test & WAN Connectivity Checker
  30 Dec 2015 — callback ""} {data ""} } { variable Store after 0 [info coroutine] yield [info coroutine] dict pull data lossPct set i 0 set response {} while {$i <= 5} { try { switch -- $i { 0 { set host www.google.com
• tcl-duktape
  12 Oct 2018 — duktape::oo::Duktape new] $duktapeObj jsproc ::add {{a 0 number} {b 0 number}} { return a + b; } puts [add 1 2] $duktapeObj jsmethod cos {{deg 0 number}} { return Math.cos(deg * Math.PI
• tcl-golems
  12 Jun 2007 — utilities include a line counter and mismatched braces/brackets/quotes checker. Future versions may include profiler, etc. Currently at version 1.0 . Updated: 10/2002 Contact: See web site ---- [Category Dev. Tools]
• tcl-magick
  10 Nov 2014 — This is a one to one mapping of the Wand API to Tcl. Currently at version 0.41, which is compatible with Tcl 8.4.5. Updated: 06/2003 Contact: See web
• tcl-null
  08 Jan 2007 — have [{*}] here): proc Lindex {list index} { uplevel 0 nth $index $list } proc nth {n {head {}} args} { if {$n==0} {return $head} if {$n>0} {uplevel 0 nth [expr {$n-1}] $args} } BTW
• Tcl-Pkg
  26 Mar 2017 — tclkit ./tcl-pkg-0.4.kit invalid command name "font" while executing "font create -size $::winsize($type)" (procedure "dimconfig" line 6) invoked from within "dimconfig" (file "./tcl-pkg-0.4.kit/main
• Tcl-URL! - 1998/06/08
  31 Dec 2012 — of namespaces, by J Adrian Zimmer (see [http://www.dejanews.com/getdoc.xp?AN=358965328]) * Groupware toolkit: GroupKit 5.0, University of Calgary http://www.cpsc.ucalgary.ca/grouplab/groupkit/ <<categories>> Community
• Tcl-URL! - 1998/06/23
  31 Dec 2012 — Quiz, by Eric Galuzzo (see [http://www.dejanews.com/getdoc.xp?AN=363693662]) * Updated "[moodss]" modular spreadsheet, by [Jean-Luc Fontaine] http://www.mygale.org/~jfontain/moodss-4.0.README <<categories>> Community
• Tcl-URL! - 1998/07/13
  31 Dec 2012 — system/network/xtools/xrshells-0.99.0.tar.gz * Object system, widget set and GUI builder for Tcl (with examples!). http://rrna.uia.ac.be/classytcl * TclAxLib 1.0 is an ActiveX
• Tcl-URL! - 1998/07/20
  31 Dec 2012 — 2p1 of Tuba, "a full-featured Tcl debugger" http://www.doitnow.com/~iliad/Tcl/tuba/ * Version 0.3 of Tclmico supports asynchronous method invocations, more intelligent type conversions, and more. http://www
• Tcl-URL! - 1998/08/03
  31 Dec 2012 — getdoc.xp?AN=377514348] ''Tclers persist in articulating wonderfully informative analyses:'' * Mark Harrison explains the "8.0.3" about which insiders have been talking. He closes with the momentous news that "John
• Tcl-URL! - 1998/08/17
  31 Dec 2012 — see [http://www.dejanews.com/getdoc.xp?AN=381452364]) * Kumar Srinivas reveals that isql-tcl 4.0 (that's an Informix interface) is imminent (see [http://www.dejanews.com/getdoc.xp?AN
• Tcl-URL! - 1998/09/07
  31 Dec 2012 — explaining how to hack the Win* Registry so that auto_path loading mechanisms work for 8.0.3 (see [http://www.dejanews.com/getdoc.xp?AN=388372726]) * Colin Macleod gives a very
• Tcl-URL! - 1998/09/28
  07 Mar 1999 — much the same for the debuggers (see [http://www.dejanews.com/getdoc.xp?AN=394595658]) * 8.0.3 turns out to introduce several bugs. While work continues behind the scenes to catalogue
• Tcl-URL! - 1998/10/05
  11 Jan 2002 — Cameron Laird] - 'DejaNews:'' [http://www.dejanews.com/getdoc.xp?AN=397859398] ''There are plans for 8.0.4.'' * The public visibility of Tcl continues to rise. John Ousterhout will deliver the Keynote
• Tcl-URL! - 1998/10/12
  19 Mar 2003 — com/getdoc.xp?AN=398729364]) * Robert Heller's makeMenuBar demonstrates a menubar for Tk before 8.0 (see [http://www.dejanews.com/getdoc.xp?AN=397743626]) * Eric Galluzo illustrates cool stuff he
• Tcl-URL! - 1998/10/26
  07 Mar 1999 — xp?AN=403571045]) * An innocent query for a "sort -u" equivalent on Tcl lists generated a good thread on array/list performance in Tcl8.0 (thread [http://www.dejanews.com/thread/403668191])
• Tcl-URL! - 1998/11/09
  04 Jul 2009 — his guide to success with Tcl 8.0 namespaces and packages. http://www.cogent.net/~duquette/tcl/namespaces.html * The final release of [TkDiff] 3.0 is now available http://www.ipass
• Tcl-URL! - 1998/11/23
  04 Jul 2009 — The items here are just a few of the new highlights.'' * Scriptics releases Tcl/Tk 8.0.4, and TclPro 1.1 (see [http://www.dejanews.com/getdoc.xp?AN=413963741]) (see
• Tcl-URL! - 1998/11/30
  04 Jul 2009 — www.dejanews.com/getdoc.xp?AN=415602487]) * Leo Schubert updates his graphics speedup patch for Tk8.0 under Windows (see [http://www.dejanews.com/getdoc.xp?AN=416902669]) * The "Smaller Tcl" thread
• Tcl-URL! - 1999/03/08
  15 Apr 1999 — s Swing (thread [http://www.dejanews.com/thread/450835927]) * A public release of Tcl/Tk 8.0.5 seems imminent (thread [http://www.dejanews.com/thread/450673291]) * There was a renewed call
• Tcl-URL! - 1999/03/15
  19 Mar 2003 — www.dejanews.com/getdoc.xp?AN=455230011] ''Tons of good stuff this week. The anticipated 8.0.5 core release is out. I was excited to see Fuzz's work on embedding
• Tcl-URL! - 1999/03/29
  18 Nov 2012 — issues. Keep on banging on 8.1b2!'' * Jim Ingham has released binaries for Tcl/Tk 8.0.5 on the Mac (see [http://www.dejanews.com/getdoc.xp?AN=460265516]) * The 1
• Tcl-URL! - 1999/05/17
  17 May 1999 — http://purl.org/thecliff/tcl/wiki/TclPerformance * Nice explanation of the difference between the Tcl 8.0.x and Tcl 8.1.x byte compilers. (see [http://www.dejanews.com/getdoc.xp
• Tcl-URL! - 1999/05/31
  06 Jun 1999 — http://www.dejanews.com/getdoc.xp?AN=483579072]) * A warning about binary data in Tcl 8.0 vs. 8.1 (channels) (see [http://www.dejanews.com/getdoc.xp?AN=482092398]) * Dynamic Packages
• Tcl-URL! - 1999/06/07
  02 Sep 2013 — http://www.dejanews.com/getdoc.xp?AN=486062793]) * Use of stubs and compiling extensions against 8.0.x or 8.1.x (see [http://www.dejanews.com/getdoc.xp?AN=485337023]) <<categories
• Tcl-URL! - 1999/07/13
  21 Jul 1999 — 498519170]) (see [http://www.dejanews.com/getdoc.xp?AN=497909155]) or [Radical Language Modification] * AOLserver 3.0 (Web Server) Released to the Open-Source community http://aolserver.com/ * Minotaur: bringing us all
• Tcl-URL! - 1999/08/16
  31 Aug 1999 — Austin, Texas http://www.usenix.org/events/tcl2k/ * Tcl/Tk 8.2b3 Release Announcement. (8.2.0 coming soon) (see [http://www.dejanews.com/getdoc.xp?AN=511650632]) * Various techniques for animating
• Tcl-URL! - 1999/08/24
  31 Aug 1999 — Reilly Tcl/Tk Conference over the last few days and the release of Tcl 8.2.0 things have been relatively quite, mostly bug reports. The initial impressions are the this release
• tcl.js 0.5 test suite
  11 Nov 2013 — 0.5 (see full source code at http://paste.tclers.tk/2953 ) - still buggy though... ====== # test suite for TclJS set version 0.4 set total 0 set passed 0 set fail 0
• Tcl/Java Examples
  28 Apr 2016 — n executing [info script]\n" # make script drive independent. set drive [lindex [file split [info nameofexecutable]] 0 ] puts "\n proclib = $drive/scripts/TCL/proclib" ######################################################## # Source packages. ######################################################## package require java ###################################### # Proc - put message
• Tcl/Tk
  02 Sep 2013 — label in Times 24 font" \ -font {-timenew family -size 24} # Put them in the window in row order grid .l1 -row 0 grid .l2 -row 1 grid .l3 -row 2 ====== <<categories>> Language
• Tcl/Tk 8.2 Extension Compatibility Matrix
  16 Nov 2007 — 20 * Linux (Intel, Red Hat 5.0+, SuSE 6.0+) * SGI IRIX 6.3+ ---- '''[Trf] 1.8, Trfcrypt 1.2, Giot 1.0 and [Memchan] 2.0''' [Andreas Kupries] says that these
• Tcl/Tk 8.5 Roadmap
  30 Aug 2012 — Tcl/Tk 8.5.0 was released December 20, 2007 [http://groups.google.de/group/comp.lang.tcl/browse_thread/thread/747fcc9df3274310/379eadbec75d8d00?hl=de#379eadbec75d8d00] [http://it.slashdot.org/article.pl
• Tcl/Tk 8.6.6 Observations
  16 Sep 2016 — tcl/usr/Src/hr/hr.exe/lib/app-main/app-main.tcl" ("package ifneeded app-main 0.3" script) invoked from within "package require app-main" (file "c:/Users/matthiasu/usr/pgm
• Tcl/Tk client for dictd server
  28 Nov 2011 — showWordDef {entry text} { set word [$entry get] $text configure -state normal $text delete 0.0 end #$text insert 0.0 [exec dictl $word] if {[dictDefineWord $word $text] < 1} { if {[dictMatchWord $word $text
• Tcl/Tk games
  14 Feb 2018 — ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/games/xbowl-dist-2.0/xbowl-dist-2.0.tar.gz%|%bowling]: [ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6
• Tcl/Tk plugin
  15 Oct 2015 — em:minVersion> <em:maxVersion>41.0</em:maxVersion> </Description> </em:targetApplication> <em:targetApplication> <Description> <em:id>{92650c4d-4b8e-4d2a-b7eb-24ecf4f6b63a}</em:id> <em:minVersion>1.0</em:minVersion> <em:maxVersion>2
• Tcl/Tk Printing Support
  18 Jun 2015 — to print to. [FM] Suggest : Interface : ====== pack [[text .t] insert 0.0 hello] puts [chan open [tk_choosePrinter] w] [.t print 0.0 end] ====== Format : Maybe dvi format should give a lot
• Tcl/Tk Project Manager
  23 Feb 2018 — svk28/projman.git%|%Git repository%|% New shot of ProjMan 0.4.5: [https://nuk-svk.ru/wp-content/uploads/2018/02/projman_0.4.5_small.png] ** Attributes ** website: https://svk28@bitbucket
• Tcl/Tk Tclet Plugin
  26 Jan 2013 — window. The Tcl Plugin is cross-platform. In 2003, the plugin was updated from Tcl 8.0 to 8.4 by [Jeff Hobbs] of [ActiveState]. The Tcl Plugin is designed using the
• Tcl2Exe
  11 May 2017 — bin/$pkg.exe gui 0 extras { scripts/$pkg/bin bin scripts/$pkg/doc doc scripts/$pkg/lib lib } } tsd { script scripts/$pkg.tcl target bin/$pkg.exe gui 0 extras { c:/Tcl
• Tcl3D
  06 Sep 2014 — Deprecated support for Visual C++ 6.0 and CygWin. * 7 new demos added since release 0.4.0. [PO] 2008/12/30 - Version 0.4.0 adds [OpenGL] wrapping based on GLEW
• Tcl3D Demo of the Month
  06 Sep 2014 — FPS: 90.859658 Teapot Shader FPS: 225.449624 Frame overhead secs/frame: 0.000097 OS/GLUT overhead secs/frame: 0.000031 Overall FPS: 64.228425 Bob Free's OpenGL Benchmark - Tcl Binding
• tcl9var compatibility issues
  16 Nov 2009 — special variable '''$''' internally built as dictionary as follows: ====== % tcl9var $ start 0 start 0 % tcl9var $ end 10 start 0 end 10 % $ get start 0 % $ get end 10 % ====== Now, the syntax '''$abc''' shall shall
• Tcl2002 programming contest: problem 1
  28 Jan 2011 — the input. In other words, [sort5 $x] should return the same results as [lsort -ascii -index 0 $x] However, you may not use any form of the [[lsort]] command in its implementation
• Tcl2002 programming contest: problem 1 test harness
  28 Jan 2011 — 0 } { $i < [llength $list] } { incr i } { set e [lindex $list $i] foreach p [permute [lreplace $list $i $i]] { lappend p $e lappend retval $p } } return $retval } set f 0 set s 0
• Tcl2002 programming contest: solutions to problem 3
  28 Jan 2011 — 0] if {[string length $cmdString]>40} { set cmdString "[string range $cmdString 0 40] ..." } puts "[string repeat -- [info level]] $cmdString" } # init some state #set ::_traces {} # setup and start set cmdName [lindex $cmdLine 0
• Tcl2008
  21 Nov 2012 — can be ordered at http://www.lulu.com/content/3830746 . The conference proceedings are ISBN 978-0-578-00296-5. More proceedings are available through the [http://www.lulu.com/spotlight/tcl
• tcl::mathfunc
  25 Oct 2013 — man/tcl8.6/TclCmd/mathfunc.htm#M10]. On one system I checked, `expr atan2(0,0)` returns `0.0`. On other systems, I suspect it may behave differently. Right? If so, shouldn
• tcl::mathop
  24 Aug 2018 — using [expr]: ====== % expr {1==1 && [puts hello] eq ""} hello 1 % expr {1==0 && [puts hello] eq ""} 0 % expr {1==0 || [puts hello] eq ""} hello 1 % expr {1==1 || [puts hello] eq ""} 1
• tcl::mathop::>
  22 Jun 2014 — mathop]::[>]''' command. When given more than 2 arguments, it calculates whether they are in descending order. ======tcl % tcl::mathop::> 3 2 1 1 % tcl::mathop::> 3 1 2 0 ====== <<categories>> Operator | Command
• tcl::pkgconfig
  19 Mar 2015 — Fedora] 21). | '''name''' | '''value''' | | debug | 1 | | threaded | 1 | | profiled | 0 | | 64bit | 0 | | optimized | 0 | | mem_debug | 0 | | compile_debug | 0 | | compile_stats | 0 | | libdir,runtime | /usr/lib64 | | bindir,runtime | /usr/bin | | scriptdir
• Tcl::Tk
  09 Oct 2015 — secs ( 0.78 cusr + 0.14 csys = 0.92 CPU) xyem@puppy:~/Tcl-0.97$ make install ( ..snip.. ) xyem@puppy:~/Tcl-0.97$ export PERL5LIB=~/tmp/perl/lib xyem@puppy:~/Tcl-0
• tcl::tommath
  24 May 2012 — uwide) { mp_int bignum = {0, 0, MP_ZPOS, NULL}; if (mp_init_size(&bignum, (CHAR_BIT * sizeof(Tcl_WideUInt) + DIGIT_BIT - 1) / DIGIT_BIT) == MP_OKAY) { for (; uwide != 0; ++bignum.used) { bignum
• Tcl_AddErrorInfo
  21 Aug 2017 — interp != NULL) { Tcl_DString Recoded1; Tcl_DStringInit(&Recoded1); MString2DString(&Recoded1,exception->Message); if (Tcl_DStringLength(&Recoded1) > 0) { Tcl_DStringResult(interp, &Recoded1); } else { Tcl_SetResult(interp, fg_error_clr, TCL_STATIC); } Tcl_DStringFree
• Tcl_CreateEventSource
  29 Jan 2014 — make it short - 10ms */ static void SetupProc(ClientData clientData, int flags) { Tcl_Time block_time = {0, 0}; if (!(flags & TCL_WINDOW_EVENTS)) { return; } if (!gtk_events_pending()) { block_time.usec = 10000; } Tcl
• Tcl_CreateObjCommand
  28 Dec 2014 — extension used to create the 'sqlite' command: ======c Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); ====== Taking the same sqlite example, we can go a step further and look at how
• tcl_curses
  13 Jul 2016 — cd = (t_cldat *)ckalloc(sizeof *cd); memset(cd, 0, sizeof *cd); Tcl_CreateCommand(interp, "curses", CursesProc, cd, 0); Tcl_SetVar(interp, "curses_debug", "0", 0); Tcl_TraceVar(interp, "curses_debug", TCL_TRACE
• Tcl_ExprLongObj
  13 Jul 2014 — TclLib/ExprLongObj.htm]. ---- **Usage example** A simple Tcl code snippet to produce a random integer from 0 to 255 is: ====== return [expr {int(rand()*(255+1))}] ====== The C function Tcl_ExprLongObj can
• tcl_findLibrary
  04 Jan 2017 — last component of the name of the library directory is normally ''basename''''version'' (e.g., tk8.0), but it might be ''library'' when in the build hierarchies. The ''initScript'' file will be
• Tcl_GetIndexFromObj
  15 May 2015 — is assigned to the ‘index’ variable */ int index; if (Tcl_GetIndexFromObj(interp, objv[1], subCmds, "action", 0, &index) != TCL_OK) { return TCL_ERROR; } /* now use the enumeration to do your work depending
• Tcl_GetObjResult
  19 Sep 2015 — procedure is called, a [Tcl_Obj] is automatically created for you with a reference count if 0 (see also [Tcl_Obj refCount HOWTO]). You use Tcl_GetObjResult to get a pointer to
• Tcl_InitStubs
  06 Jan 2010 — Whether you want an exact version of Tcl. You probably don't, so set this to `0`. The result is either `TCL_OK` (in which case you can keep on doing the
• tcl_interactive
  10 Jan 2017 — should be "llength list" ====== Just make sure that the interactive command is tried at global level (0), so that `[unknown]` (which provides abbreviation mode) finds itself at level 1. ---- If [tclsh] runs
• Tcl_NewByteArrayObj
  05 Sep 2012 — bytes, which must be * >= 0. */ { ByteArray *byteArrayPtr; if (Tcl_IsShared(objPtr)) { Tcl_Panic("%s called with shared object", "Tcl_SetByteArrayObj"); } TclFreeIntRep(objPtr); Tcl_InvalidateStringRep(objPtr); length = (length < 0) ? 0 : length; byteArrayPtr = (ByteArray
• Tcl_Obj Deep Copy
  01 Feb 2011 — dcObjHead); if (rc=(struct dcStrObj *) dc_Malloc(size)) { memcpy(rc->string, str, strlen); rc->string[strlen] = '\0'; rc->head.type = DCO_STRING; rc->head.size = size; } return ((struct dcObjHead *) rc); } Tcl_Obj
• Tcl_Obj refCount HOWTO
  21 May 2018 — used with unshared Tcl_Objs (reference count == 0 or 1). and Donal Fellows adds the category * '''Hairy Monsters'''. Don't give these things refcount==0 objects since they might manipulate the reference
• Tcl_ObjType
  14 May 2014 — ERROR on failure. */ } Tcl_ObjType; ====== This definition has been highly conserved: it is identical from 8.0 to (at least) 8.6. This is because it is used in external code. ---- Notes
• Tcl_ParseCommand
  28 Dec 2014 — parse many commands from a script: ======c while (...) { if (TCL_OK != Tcl_ParseCommand(interp,script,numBytes,0,&parse)) { return TCL_ERROR; } end = script + numBytes; script = parse.commandStart + parse.commandSize; numBytes = end - script
• Tcl_PkgPresent() forward compatibility
  07 Sep 2012 — c #include <tcl.h> ... #if ((TCL_MAJOR_VERSION < 8) || ((TCL_MAJOR_VERSION == 8) \ && (TCL_MINOR_VERSION == 0))) extern char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp *, char *, char *, int)); #endif ====== Somewhere in your
• tcl_precision
  02 Jun 2015 — 0`, scenarios that violates [EIAS] semantics can occur: ======none % set tcl_precision 12 12 % set a [expr 1.00000000000123] 1.0 % set b [expr 1.0] 1.0 % expr { $a == $b } 0
• Tcl_SaveResult() forward compatibility
  08 Aug 2012 — lines: #include <tcl.h> ... #if ((TCL_MAJOR_VERSION < 8) || ((TCL_MAJOR_VERSION == 8) \ && (TCL_MINOR_VERSION == 0))) typedef struct Tcl_SavedResult { char *result; Tcl_FreeProc *freeProc; } Tcl_SavedResult; extern void Tcl_DiscardResult
• tcl_traceExec
  25 Jul 2016 — displayed during bytecode execution. ** See Also ** [bytecode]: ** Description ** By default, the value of `$tcl_traceExec` is `0`, and no information is displayed. Setting `$tcl_traceExec` to `1` generates a one-line trace
• TclAdvocacy: ESRs chapter on Tcl and some corrections
  09 Feb 2014 — a period of relative decline, or at least of diminishing visibility. New Tcl releases since 8.0 have added little to its capabilities. In 1996 a widely-reported and plausible estimate of
• TclAE
  20 Dec 2009 — enable Macintosh applications to use AppleEvents to communicate with other Macintosh applications. Currently at version 2.0. Updated: 08/2004 Contact: See web site '''Note:''' The [package] name is `tclAE` (lower case
• tclAppleHelp
  05 Mar 2007 — THE POSSIBILITY OF SUCH DAMAGE. # # \ exec critcl -pkg "$0" "$@" package require critcl if {![::critcl::compiling]} {error "No compiler found"} package provide tclAppleHelp 1.0 namespace eval tclAppleHelp { ::critcl::framework Carbon ::critcl::ccode
• Tclarc4random
  23 Oct 2014 — on GitHub at https://github.com/aryler/Tclarc4random/ or at my site, listed at [Stu]. Version 0.3, Fall 2014. Tclarc4random should build easily on any POSIX system that has arc4random(3
• tclAuthorization
  06 Oct 2007 — FILE *myCommunicationsPipe; Tcl_Channel chan; OSStatus myStatus; AuthorizationItem myAuthorizationExecuteRight = {kAuthorizationRightExecute, 0, NULL, 0}; AuthorizationRights myAuthorizationRights = {1, &myAuthorizationExecuteRight}; AuthorizationItem myAuthorizationPrompt = {kAuthorizationEnvironmentPrompt, 0, NULL, 0}; AuthorizationEnvironment myAuthorizationEnvironment = {1, &myAuthorizationPrompt}; AuthorizationRef myAuthorizationRef = NULL; while (1
• tclbench
  03 Aug 2016 — iter < 100000} { set iter [expr {int(200000.0 / $res)}] set code [catch {uplevel #0 [list time $opts(-body) $iter]} res] set res [lindex $res 0] } ====== The effect of these 3 tricks is
• TclBlend Problems
  28 Aug 2009 — core. This should solve many of your problems. e.g. set a [java::new ....] lindex $a 0 will fail because $a is not a valid list (this is not intentional but rather
• TclBrix
  29 Oct 2008 — p -text " + " -pady 0 -command {.c scale all 0 0 1.25 1.25} button .f.m -text " - " -pady 0 -command {.c scale all 0 0 0.8 0.8} eval pack
• tclc
  13 Aug 2011 — error that tclc catches at compile time, but tcl on runtime: proc test {} { return [expr {1.0+}] } In tclsh this definition is just fine. tclc rejects this definition with tclc: parse error
• tclcairo
  18 Jan 2013 — cairo::cairo_rectangle $cr 20 20 20 20 ::cairo::cairo_set_source_rgb $cr 1 0 0 ::cairo::cairo_fill $cr ::cairo::cairo_show_page $cr ::cairo::cairo_surface_flush $surface ::cairo
• tclCarbonHICommand
  20 Jan 2013 — THE POSSIBILITY OF SUCH # DAMAGE. # # ####################################################################### # \ exec critcl -pkg "$0" "$@" package require critcl if {![[::critcl::compiling]]} {error "No compiler found"} #--------------------------------------------------------------------------------------------------- package provide tclCarbonHICommand 1.0 namespace eval carbon { ::critcl::tk ::critcl::config I
• tclCarbonNotification
  24 Dec 2011 — THE POSSIBILITY OF SUCH # DAMAGE. # # ####################################################################### # \ exec critcl -pkg "$0" "$@" package require critcl if {![[::critcl::compiling]]} {error "No compiler found"} #--------------------------------------------------------------------------------------------------- package provide tclCarbonNotification 1.0 namespace eval carbon { if {[[llength [[info commands ::critcl
• tclCarbonProcesses
  10 Apr 2011 — objc objv} { OSErr err; ProcessSerialNumber psn = { 0, kNoProcess }; Tcl_Obj *listObj; if (objc != 1) { Tcl_WrongNumArgs(ip, 1, objv, NULL); return TCL_ERROR; } listObj = Tcl_NewListObj(0, NULL); do { err = GetNextProcess(&psn
• tclchecker
  28 Sep 2018 — condition is a variable dereference, a command invocation, or a boolean literal such as `no` or `0` (mostly used when excluding sections of code "Bauersachs braces"-style). TC gets concerned about "avoid
• TclCLIPS
  02 Mar 2014 — com/tcl/TclClips2001.zip (includes Windows dll, source, [CLIPS] documentation, and examples) 2) For Tcl 8.0: http://fios.com/tcl/TclClips.zip (Windows binary only, no source) You can view the
• TclCloud
  12 Sep 2011 — i-912f2bff</instanceId> <imageId>ami-1aad5273</imageId> <instanceState> <code>0</code> <name>pending</name> </instanceState> <privateDnsName/> <dnsName/> <reason/> <keyName>CentiviaKey</keyName> <amiLaunchIndex>0</amiLaunchIndex> <productCodes/> <instanceType>t1.micro</instanceType> <launchTime>2011-07
• TclControl
  31 Jul 2009 — variables. It also provides callback events for Tcl variable tracing. The current release is version 2.0 build 03. You can download it from here (76KB). You can download a couple of
• tclcsharp
  08 Sep 2009 — 58 0,48 eval 4056 12353 3,04 8493 2,09 0,68 expr 132 9233 69,94 8788 66,57 0,95 heapsort 9696 975654 100,62 324873 33,5 0
• tclCsound
  01 Apr 2015 — extension which creates an instance of csound and allows control of it.| | |Currently at version 0.0 .| | Updated:| 07/2007| | Contact:| See web site| ---- Reference: Victor Lazzarni, ''TclCsound a Csound Frontend and
• TclCurl
  06 Apr 2018 — libcurl is currently at version 7.30.0 while minimum required version is 7.21.4 and TclCurl is currently at version 7.22.0.| | Updated:| 5/2013| | Contact:| fandom at telefonica
• tcldb
  17 Dec 2017 — global proc_to_filename_map set proc_to_filename_map([lindex $args 0]) [info script] uplevel 1 [linsert $args 0 ::tcl::proc] } ** Description ** [WK]: It may not be the most lightweight interface
• tcldebugger
  12 May 2018 — See Also ** [prodebug]: the [TclPro] analogue [https://github.com/flightaware/TclProDebug%|%Tcl Pro Debugger version 2.0], by [FlightAware]: An upgrade of of the debugger included in the TclPro product version 1
• tclDES
  28 Jul 2012 — to prevent serious issues with the government of your country (or the government of your client). Currently at version 0.6 . Updated: 03/2003 Contact: See web site <<categories>> Package | Tcllib | Cryptography
• tclDESjr
  12 Jul 2012 — to prevent serious issues with the government of your country (or the government of your client). Currently at version 0.6 . Updated: 03/2003 Contact: See web site <<categories>> Package | Tcllib | Cryptography
• TclDNS
  04 Dec 2007 — files/TclDNS.c Description: Tcl interface to look up domain names from dotted quad IP addresses. Currently at version 0.1 . Updated: 10/2002 Contact: See web site ---- !!!!!! %| [Category Extension] | [Category Internet] |% !!!!!!
• tcldoc
  16 Aug 2017 — tcldoc from below: * '''tcldoc 0.87 (2015-05-03) at http://th-labs.de/tcldoc/TclDocInfoPage.html''' * '''tcldoc 0.3 at http://tcl.jtang.org/tcldoc/tcldoc-0.3.tar.gz.''' * '''original
• TclDOM
  03 May 2016 — xmlstr "<?xml version=\"1.0\" encoding=\"UTF-8\"?><Node/>" <?xml version="1.0" encoding="UTF-8"?><Node/> % set doc [dom::parse $xmlstr] doc0 % set xmlstr "<?xml version=\"1.0\" encoding=\"UTF-8
• TclDOM vs tDOM
  18 Oct 2008 — 1.0 2nd Edition, XML Namespaces, XPath 1.0 (partial) * TclXML/expat: XML 1.0 2nd Edition, XML Namespaces * TclXML/libxml2: XML 1.0 2nd Edition, XML Namespaces, XPath 1.0 * TclDOM
• TcLeo
  21 Oct 2008 — org::query [join $argv]] set max 0 foreach c $table {set max [max $max [string length $c]]} set sep [string repeat - $max] set table [linsert $table 0 " English" " Deutsch" $sep $sep] foreach
• Tcler's Wiki in the press
  09 Nov 2011 — various press. ---- See Computerworld's article on WikiWideWeb as a concept [http://computerworld.com/cwi/story/0%2C1199%2CNAV47_STO56996_NLTa%2C00.html] - this web site is one of the side bar
• Tclet demos
  18 Mar 2011 — be seen at: (these all appear to work well with the [Tcl/Tk Tclet Plugin] v2.0+) * Execute wiki pages with the plugin: [wiklets] * An interactive wordsearch game: [http://www.eolas.com
• Tclet List
  13 Jul 2011 — 8.0 (in 2.0.x) Tclets embedded in an HTML page to be displayed interactively. As you read thru the above pages, you will also find demo pages for 2.0
• tclexecomp
  16 Nov 2017 — see http://tclexecomp.sourceforge.net/index.html. The latest version (released August 31, 2017) is '''V1.0.6''' and uses '''Tcl 8.6.7'''. ---- [MHo] 2017-11-16: One question. The readme
• TclExpat
  14 Mar 2004 — www.zveno.com/zm.cgi/in-tclxml/ ftp://ftp.procplace.com/pub/tcl/sorted/packages-8.0/distrib/cvs-tclexpat.tar.gz Description: Tcl extension based on James Clark's expat XML
• tclfastme
  18 Nov 2014 — c)} ====== where d(a,b) is the distance between a and b, d(a,a) = 0.0. Three options are currently available : * -init_tree (bal)anced|ols|NJ|BIONJ , bal is the
• TclForth
  18 Feb 2018 — as an example of a Tcl program in postfix syntax. -- Updated version 0.5 2014-07-02 -- Version 0.6.0 at [https://github.com/wejgaard/TclForth] 2018-02-18 <<categories>>Language
• TclGdbmWrapper
  21 Nov 2017 — 0.1/tcl+gdbm-0.1.tar.gz%|%tcl+gdbm-0.1.tar.gz] and a package of "tcl+ndbm" from: [ftp://ftp.tcl.tk/pub/tcl/all/t/tcl+ndbm/0
• TclGetGUID
  22 Feb 2015 — InitStubs(interp,"8.3",0) == NULL) return TCL_ERROR; #endif Tcl_CreateObjCommand(interp, "GetGUID", GetGUID_ObjCmd, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); return Tcl_PkgProvide(interp,"TclGUID","1.0"); } ====== Each time the GetGUID
• TclGles20
  02 Nov 2014 — list r g b a]] ====== Position and color values are float values (colors between 0.0 .. 1.0). Here is a list of the planned commands (all live in namespace ::gles20): %|done
• TclHelp
  01 Sep 2015 — decent layout, hyperlinks, etc. Must have been part of Scriptics installations (but Windows only) since 8.0 or so. Where does one get it? For the Tk app, download, configure, build, and
• Tclhttpd as a Windows Service
  25 Mar 2017 — starpack (single-file executable) out of tclhttpd on Windows, you will need [Tcl Dev Kit] 3.0, which includes a base kit designed for use as an NT service. ---- [WJR] For Tclhttpd
• tclhttpd content compression
  11 Oct 2013 — tcl package require vfs::zip proc repeat {x n} { global Httpd set sock $Httpd(currentSocket) upvar #0 Httpd$sock data #append newline as separator set text [string repeat $x\n $n] set
• Tclhttpd Content Wrapping
  28 Jun 2012 — file mtime $template] > [file mtime $wrapper]))} { # instantiate the wrapper set dynamic 0 set wrapper [TemplateInstantiate $sock $template $wrapper $data(suffix) dynamic 0] set content [string map [list %BODY% $content] $wrapper] break } elseif
• Tclhttpd Error Handling
  30 Oct 2012 — require struct rename Doc_NotFound Doc_Notfound_org proc Doc_NotFound {sock} { global Doc Referer upvar #0 Httpd$sock data #Stderr "Not Found $data(suffix)" # try to redirect some well-known types
• tclhttpd Examples
  06 Sep 2013 — set it # this simply assumes the browser sends appropriate lang info set prefered [lindex $langs 0 1 0] set mcpref [string map {- _} $prefered] msgcat::mclocale $mcpref # now use msgcat::mc for outputting
• tclhttpd Generic Caching
  22 Sep 2018 — Provide support for caching arbitrary content in tclhttpd # # CMcC 20040929 - Created package provide tclhttpd::cache 1.0 # Cache module data # suffix the string suffix appended to a cache copy array set Cache
• tclhttpd Indirect domain
  20 Nov 2004 — namespace eval Indirect { variable Indirect } proc Indirect::Url {virtual directory {prefix {}} {inThread 0}} { variable Indirect if {[string length $prefix] == 0} { set prefix $virtual } set Indirect($prefix) $virtual ;# So we can reconstruct URLs
• Tclhttpd Problems with Mozilla Keep-Alive
  12 Nov 2008 — in httpd.tcl HttpdCloseP removing lines: } elseif {$data(version) >= 1.1} { Count http1.1 set close 0 ---- '''Conclusion''' ''There must be some subtle fact that leads to odd timeout/delay problems if
• TclHttpd RSS Processing
  06 Jan 2013 — 0.92 } rdf:RDF { return 1.0 } default { return 0 } } } proc tmlrss::genTitleBlock {doc} { set root [$doc documentElement] append html "<thead>\n<tr>\n" switch [getRSSVersion $doc] { 0.91 - 0.92 - 0
• tclhttpd session templates
  01 Dec 2013 — session $path $suffix $sock 1] } proc Doc_application/x-tcl-session {path suffix sock {safe 0}} { upvar #0 Httpd$sock data # return a cached version, if possible if {[Cache_Fetch $path]} { return
• tclhttpd XML server
  23 Feb 2005 — y => {<y>hello, world</y>} ---- package provide XmlSvr 0.1 ### SET THESE TO THE CORRECT LOCATIONS ### set dbxml_install /usr/local/dbxml-2.0.7/install set xdb_home /tmp/xdb load
• TclHttpd: The .tml File
  08 Jun 2012 — be shown in the error # template. This should be set to 0 in a production environment set errors_to_browser 0 # Some basic application variables Doc_Webmaster support@somewhere.com Doc_NotFoundPage
• tcliki - a webserver based on DustMote
  09 Mar 2017 — sitename "Unconfigured Webserver" docroot ".\\docroot" defaultdoc "index.html" port 80 httpVer "HTTP/1.0" verbose 0 } ## HTTP/1.0 Codes we use set httpCodes(200) "$config(httpVer) 200 OK" set httpCodes(404
• tclimage
  22 Apr 2017 — PPM, PGM, RAS, JPEG-2000, JBIG, TIFF, MNG, PNG, and JPEG image formats. Includes interfaces to scanner and OCR functionality.| |Licence:| Common Public License 1.0| <<categories>> Graphics | Image Processing | JPEG | Package
• TclJACK
  09 Jan 2015 — via TclJACK's audio input. % jack connect {MPlayer [3182]:out_0} tcljack:input % jack meter 0.2430237382650375 0.1043709889054298 0.0000897496938705 -0.0210323482751846 % # Output values are: abs peak, numeric RMS (cf. AES
• tclJBlend
  03 Dec 2016 — 2.0b1.zip] For developers/maintainers. ***TJB News : what's changed*** * ver 2.0.0a1 - Alpha-release * ver 2.0.0a2 - Alpha-release * ver 2.0b1 - Beta-release. Documentation for users and
• tcljs (SpiderMonkey)
  18 May 2015 — interp] % $i interp {print "Hello, World"} === core dumps. I've just tried sending "`var i; i=0; i+1`" to a JavaScript interpreter and that doesn't coredump, and I've also
• Tclkit and Android
  22 Feb 2015 — 0" part of the filename will have to be updated as the current Tcl version changes. ====== cd /data/tmp curl http://www.rkeene.org/devel/kitcreator/kitbuild/nightly/tclkit-8.6.0
• Tcllib
  21 Sep 2018 — what to do with the sha256c version being "1.0", since somewhere downstream it was confusing itself by making a file with a ".0" extension. Changing the `VERSION` to empty string fixed
• Tcllib base64
  12 Oct 2017 — overide base64::decode with a version which substitutes ====== set length [string length $string] for {set ii 0} {$ii < $length} {incr ii} { set char [string range $string $ii $ii] ... ====== for ====== foreach char [split
• tcllib calendar module
  03 Sep 2013 — be \"cal isleapyear year\"" } if {[expr $year%4 ]!=0} { return 0 } elseif {[expr $year%400]==0} { return 1 } elseif {[expr $year%100]==0} { return 0 } else { return 1 } } # ::calendar::today # # Returns the
• Tcllib Contribution & Feedback
  31 May 2013 — functions under ::textutil (like (un)tabify, wrap_lines), etc. We'd like to make the 1.0 release have a good set of logical packages (namespaces). * How can software be submitted? Modules
• Tcllib html
  10 Dec 2016 — argument on its commandline (`html.tcl`). ====== #/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" ${1+"$@"} interp create html html eval { package require html namespace eval ::html { init # add things
• Tcllib Installation
  29 Sep 2015 — Tcl 8.4 or newer is recommended. The minimal version for all Tcllib packages is 8.0, due to the use of namespaces. '''Getting Tcllib''' If you don't already have Tcllib
• Tcllib JSON
  21 Aug 2018 — Marlin\"", "ispublic": 1, "isfriend": 0, "isfamily": 0 }, { "id": "6822988100", "owner": "52857411@N08", "secret": "56630c18e8", "server": "7183", "farm": 8, "title": "Gedi Ruins, Local Guide", "ispublic": 1, "isfriend": 0, "isfamily": 0 }, { "id": "6822909640", "owner
• Tcllib MIME
  21 Aug 2018 — parseaddress` wants a string so the that line should be: ====== set parsed [mime::parsedaddress [lindex $to 0]] ====== The curly braces were being treated as part of the string. That gave almost correct
• Tcllib struct tree
  28 Apr 2018 — doc/tree.html (ver 1.3) * http://tcllib.sourceforge.net/doc/struct_tree.html (ver 2.0) * http://docs.activestate.com/activetcl/8.5/tcllib/struct/struct_tree1.html * http://docs.activestate
• Tcllib tree style interface to tDOM
  27 May 2011 — some nodes % mytree insert root 0 domNode4 % mytree insert root 0 domNode5 % mytree insert root 0 domNode6 % mytree children root domNode6 domNode5 domNode4 % mytree insert domNode4 0 domNode7 % mytree domDoc domDoc1 % [mytree
• Tcllib URI
  21 May 2014 — either. [LV]: but I see this behavior with tcl8.4 and tcllib 1.0: ======none % package require uri 1.0 % set name "file://home/lwv26/myfile.txt" file://home/lwv26/myfile.txt
• Tcllib uuencode
  26 Mar 2014 — limited to 67 chars, length encoded into the first character). '''Example Usage''': ====== % package require uuencode 1.0 % uuencode::encode ABC 04)# % uuencode::decode 04)# ABC % set data [uuencode::uuencode -name sample.dat
• TCLLIBPATH
  20 Sep 2018 — someone confirm or deny ? [APN] Works for me without the space. At least for 8.6.0. [DKF]: It's a ''Tcl [list]''. That should tell you exactly how to make things
• TclMatrix3d
  20 Apr 2015 — 0.0 0.0 0.0} set B_pos {1.0 0.0 0.0} set C_pos {2.0 0.0 0.0} # Rotations of the joints set A_rot {0
• TclMilter
  28 Jun 2012 — threads. TclMilter is provided under the GNU General Public License (GPL). http://www.muonics.com/FreeStuff/TclMilter/ (26 Jun 2005) - Documentation is available as of version 1.0. <<categories>> Package | Internet | Mail
• TclMiniSplash
  23 Jun 2011 — contains a TAP file for use with [ActiveState]'s [TDK]. '''Latest release:''' The current version is 0.01, released on 2009-07-18. ---- '''Screenshots:''' [http://tclminisplash.autons.net/shots/tclminisplash-mac.png
• TclMixer
  22 May 2018 — whole sound. You can use CALLBACK mechanism: ====== #!/usr/bin/env tclsh package require TclMixer set done 0 proc musicFinished {} { variable done set done 1 } # Arrange for [musicFinished] to be called when he
• TclMM
  12 Nov 2012 — http://www.dedasys.com/freesoftware/files/TclMM.tgz | | Description:| Tcl extension to Unix shared memory, based on libmm.| || Currently at version 0.1 .| | Updated:| 10/2002| | Contact:| See web site| <<categories>> Package
• Tclmod
  09 Dec 2013 — Stop" -bd 1 -command {::tclmod::player stop} grid .module -column 0 -row 0 -sticky we -columnspan 3 grid .browse -column 3 -row 0 grid .play -column 2 -row 1 -sticky we grid
• tclMuPdf
  29 Oct 2017 — getpage 0] ;# 0 is the 1st page lassign [$page size] dx dy # save just the upper half of the page $page savePNG /mydir/page0.png -zoom 2.25 -from 0 0 $dx
• TclMyMoko
  20 Jan 2013 — create oval {0 0 0 0} -fill red -tag xy .f.c create oval {0 0 0 0} -fill blue -tag xz .f.c create oval {0 0 0 0} -fill green
• tclnettle
  20 May 2011 — Identifier: tclnettle Version: 0.1a0 Title: TCL interface to NETTLE Creator: Marco Maggi Rights: GNU General Public License URL: http://web.tiscali.it/marcomaggi/software/ Available: 2003-09-25 Architecture: unix Subject
• TclNNTPD
  14 Jul 2014 — 0.92.alpha/tclnntpd.tar.gz%|%alternate]): ** Documentation ** [ftp://ftp.tcl.tk/pub/tcl/all/t/tclnntpd/0.92.alpha/README%|%README]: [ftp://ftp.tcl.tk/pub/tcl/all/t/tclnntpd/0
• Tclodbc + BLT
  28 May 2011 — w grid configure -hide no $w configure -title $dbfile $w axis configure x -majorticks [x range 0 end] # Format the x-axis tick labels as Month/Day $w axis configure x -command
• Tclode
  12 Mar 2010 — user having to worry about it. [AK]: [http://teapot.activestate.com/entity/name/Tclode/ver/1.0/index%|%Binaries for various platforms] are available through [ActiveState]'s [http://teapot.activestate.com%|%TEApot
• tclog
  21 Jul 2014 — no server side script requirements]. Uploads entries via FTP. Has a Tk GUI. Features RSS 1.0, HTML templates, trackback, wiki like formatting rules, etc. | | License | 3-clause BSD license | | Updated | 02
• tclogl - GearTrain demo
  06 Jun 2010 — 0 0.0 0.0 glRotatef $Scene(Roty) 0.0 1.0 0.0 glRotatef $Scene(Rotz) 0.0 0.0 1.0 glScalef $sc $sc $sc glRotatef $Scene(Angle) 0.0
• TclOgl Demo Spheres
  06 Jun 2010 — 0 [expr double($w)/double($h)] 1.0 2000.0 glMatrixMode GL_MODELVIEW glLoadIdentity gluLookAt 0.0 0.0 5.0 0.0 0.0 0.0 0.0 1.0 0
• Tclon
  07 Feb 2008 — charAt(0)=="x") return 3; if (my.charAt(0)=="u") return 4; return 1; } tclon.parse = function (str) { var tab; var res = new Array(); var i = 0, level = 0, work="", c = 0
• TclOO -Rendering text pages in OpenOffice Writer from a Tcl application.
  22 Jan 2011 — A2 10.0 TclOO::table:SetCel B2 20.0 TclOO::table:SetCel C2 30.5 # second row of data TclOO::table:SetCel A3 10.0 TclOO::table:SetCel B3 20.0 TclOO
• TclOO and configure
  05 Dec 2017 — args} { set descriptor [my ConfigDescriptor] if {[llength $args] == 0} { set result {} dict for {option desc} $descriptor { lassign $desc varname optionDBinfo default validator upvar 0 [my varname $varname] var lappend result [list $option
• TclOO Annotations
  14 Oct 2010 — argname {}}} { upvar 1 $varName v if {[llength [info level 0]] == 3} { lappend v $method } elseif {$method eq $name} { if {[llength [info level 0]] == 4} { lappend v $argument } elseif {$argument eq $argname} { set
• TclOO Channels
  05 May 2015 — 0} { set location 0 } else { set location $offset } } current { if {$offset + $location < 0} { set location 0 } else { incr location $offset } } end { set end [my GetEnd] if {$offset + $end < 0} { set location 0
• TclOO class extensions
  30 Jan 2013 — certfile server-public.pem -keyfile server-private.pem -cadir . -cafile ca.pem -ssl2 0 -ssl3 1 -tls1 1 -require 0 -request 1 } [dict get $opts -tls]] if {[dict exists $opts -progress]} { set
• tclOO Pattern: Strategy
  18 Jun 2018 — triangles, squares, pentagons, hexagons ... # variable shapeArray variable shapePerimeter variable shapeSideLength # constructor {} { variable shapeArray 0 variable shapePerimeter 0 variable shapeSideLength 0 # puts " ... AbstractShape" # puts "[info object class]" # } # destructor { puts " [self] destroy" } # method unknown
• TclOO private variables
  11 Nov 2013 — class args} { switch -- [lindex $args 0] { constructor {::oo::define $class {*}[lrange $args 0 1] "my _zz_method\n[lindex $args 2]"} destructor {::oo::define $class [lindex $args 0] "my _zz_method\n
• TclOO Reactive Relational Database
  29 Dec 2015 — foreach i $l1 { if { [ lsearch -exact $l2 $i ] == -1 } { return 0 } } foreach i $l2 { if { [ lsearch -exact $l1 $i ] == -1 } { return 0 } } return 1 } method getAll {} { puts "\n---------------------------" puts "\t State: \n
• TclOO Tiny Class Scaffolding
  30 Apr 2015 — s [lindex $args 0] } return $%1$s } # add get/set method names that correspond to attributes foreach mname $args { oo::define $classname method $mname {args} [format $mblock $mname] } return 0 } ====== Usage and
• TclOO trace filter
  19 Jan 2010 — of class methods: # proc ::calledby {} { set level [expr {[info level] - 2}] if { $level > 0 } { return [lindex [info level $level ] 0] } else { if { [info script] ne {} } { return [info script] } else { return [info nameofexecutable
• TclOO widget/object framework
  29 Aug 2016 — switch -- [lindex $args 0] { constructor {::oo::define $class {*}[lrange $args 0 1]\ "my _zz_method;next;my _zz_constructor\n[lindex $args 2]" } destructor {::oo::define $class [lindex $args 0]\ "my _zz
• tclparser
  14 Aug 2018 — switch $type { subexpr { set result [join [lmap part $parts {expr2tcl $expr $part}] " "] if {[lindex $parts 0 0] eq "operator"} { return \[$result\] } else { return $result } } default { return $text } } } # % puts [expr2tcl {sin($x)+4
• tclpcap man page
  23 Dec 2014 — tclPcap] 2.0.0 '''tclPcap''' ''A Tcl interface to the pcap packet capture library'' Interface to the PCAP library ---- '''SYNOPSIS''' package require '''Tcl 8.0''' package require '''Pcap 2.0.0''' * '''pcap
• tclperl
  08 Mar 2007 — Perl interpreters from within a Tcl application and evaluate Perl code. Currently at version 3.2.0 . Updated: 02/2001 Contact: mailto:jfontain@free.fr (Jean-Luc Fontaine ) Of related interest are
• tclpipe
  20 Sep 2012 — MSVC 6.0 compiler) are hosted at [http://sgolovan.nes.ru/jabber/tclpipe/]. The source is confirmed to build and work on Windows XP (MSYS/MinGW and MSVC 6.0) and Debian
• tclPkgUnknown
  22 May 2016 — name "tclPkgUnknown" while executing "tclPkgUnknown execx2 0.1" ("package unknown" script) invoked from within "package require execx2 0.1" invoked from within "puts [package require execx2 0.1]" (file "execx2test.tcl" line
• TclPlanets
  29 Jun 2007 — orbit distance color set data { Mercury 4840 0.053 .24 58 pink Venus 12400 0.815 .62 108 orange Terra 12757 1.0 1.0 149.6 blue Mars 6790 .107 1
• Tclpp
  24 Jan 2017 — extension. Provides Java or C++ object syntax to Tcl. Adds items like multiple inheritance, data encapsulation, virtual functions and RTTI (Run Time Type Info). Currently at version 2.0. <<categories>> Object Orientation
• tclpython
  16 Nov 2017 — create python interpreters from within a Tcl application and evaluate python code. Currently at version 5.0 Updated: 2017-11 === ---- This package allows the execution of Python code from a Tcl interpreter
• tclreadline
  21 Mar 2018 — 0] $matches] } set subword $word while {[llength [lsearch -inline -all $matches $subword*]]==[llength $matches]} { if {$subword eq [lindex $matches 0]} break; set word $subword set subword [string range [lindex $matches 0] 0
• TclRef
  20 May 2007 — Version 0.1 is available for testing by Tcl hackers at http://www.hping.org/tclsbignum/tclref-0.1.tar.gz The following is the README file included with the 0.1
• Tclrep
  14 Nov 2008 — the memory required by an array with specific type (integer, real, double, etc...) * blockseltext/ * escterm-1.0/ * filetools/ * fortrancommon/ * fortranunroll/ * gettofs/ * [hrbytesize] : Converts a size in bytes into a human readable string
• TclRobots
  14 Aug 2015 — current version: 3.0 (alpha) release time: 2011-09-21 ** Download ** [ftp://ftp.tcl.tk/pub/tcl/all/t/tclrobots/2.0/tclrobots-2.0.tar.gz%|%tclrobots-2.0.tar.gz
• tclrss
  02 Oct 2007 — tclrss/ Description: TclRSS is a Tcl library for parsing and generating RSS files. Currently at version 0.1 . Updated: 07/2007 Contact: See web site [[Are there other packages using this name
• tclsane
  07 Dec 2007 — What: tclsane Where: From the contact http://www.mostang.com/sane/ Description: Tcl 8.0 binding to work with the Scanner Access Now Easy (SANE) library. Updated: 08/2002 Contact: mailto:maccody
• tclsap
  07 Dec 2007 — Where: http://www.mcs.net/%7Egarth/SAP/TCLSAP/ Description: Extensions to Tcl 7.4/Tk 4.0 to allow interactive or script based access to a SAP R/3 system through RFC
• tclsc
  15 Sep 2013 — TCLsc/ Note the download link on the home page is wrong, the correct download link is: http://evolution.ibmc.up.pt/~nf/projects/TCLsc/download/TCLsc-0.3.tar.gz <<categories>> Deployment
• tclsdl
  10 Apr 2015 — rcSprite 0 SDL_Rect_y_set $::rcSprite 0 SDL_Rect_w_set $::rcSprite 0 SDL_Rect_h_set $::rcSprite 0 set ::rcSrc [new_SDL_Rect] SDL_Rect_x_set $::rcSrc 0 SDL
• tclsh
  24 Mar 2015 — be enabled by setting '''`[tcl_interactive%|%$::tcl_interactive]`''', to '''`1`''', or disabled by setting it to '''`0`'''. Here are behaviours that depend on interactive state of tclsh: '''`[unknown]`''': If the missing command
• tclsh application template
  01 Nov 2013 — starting a typical tclsh application. ======none #! /bin/sh # the next line restarts using tclsh \ exec tclsh "$0" ${1+"$@"} ====== This is a little more sophisticated than the code suggested on the [tclsh] man
• Tclsha
  09 Jul 2017 — What: Tclsha Where: http://www.tcltk.com/ftp/ellson/Tclsha1-0.2.tar.gz Description: Manipulate Secure Hashing Algorithm (SHA1) message digests. Updated: 10/1999 Contact: mailto:ellson@lucent.com (John Ellson
• tclshapefile
  12 Mar 2013 — Unused 0 Integer Big { discarded Byte 8 Unused 0 Integer Big discarded Byte 12 Unused 0 Integer Big I5 discarded Byte 16 Unused 0 Integer Big discarded Byte 20 Unused 0 Integer
• TCLShout
  07 Dec 2007 — tclshout.sourceforge.net/ Description: Bind libshout (icecast's streaming content library) to Tcl. Currently at version 0.8 . Updated: 10/2001 Contact: mailto:webdanb at users dot sourceforge dot net (Dan Bradley
• TCLSNM
  13 Sep 2013 — network and system management. It was nice opportunity to start using some professional tools like SNM2.0 and some experimental tools (nocol, scotty .... many others) in real life situation. There was many
• Tclsnowball
  05 Feb 2015 — on windows mingw or cygwin have to be used to build). ---- '''Usage example:''' % package require Tclsnowball 0.1 % ::snowball::stem porter2 "somelongword" somelongwor ---- '''Syntax:''' ::snowball::stem stemmername word ---- '''Author:''' [Michael Schlenker] '''License
• TclSoldout
  24 Sep 2016 — TclSoldout''' | | Where | https://f.juef.space/tclsoldout/ | | Description | Tcl bindings for the [https://github.com/faelys/libsoldout%|%libsoldout] [Markdown] library. | | Updated | 2015-09-11 | | Version | 0.1.1 | | License | ISC | <<categories>> Package
• TclSpeech
  23 Nov 2012 — activestate] [teapot] [repository] Built on MacOS 10.5 using 10.4 SDK and minosx 10.3.| || Currently at version 0.0 .| |Updated:| 11/2007| |Contact:| See web site| <<categories>> Package | Speech Synthesis
• tclspline
  08 May 2012 — code, a gzip of a tar archive. Download: http://flightaware-tcltools.googlecode.com/files/tclspline-1.0.tar.gz Project: http://code.google.com/p/flightaware-tcltools/, that is [flightaware-tcltools] <<categories
• Tclsql
  06 Sep 2013 — https://sourceforge.net/projects/tclsql/%|%Tclsql]''' is a Windows-only [C++]-based SQL 3.0 [ODBC] extension for reading,inserting,updating, and deleting records from a database. The source code and nifty
• Tclssg
  22 Mar 2018 — on *nix without the user having to compile any C code. [dbohdan] 2014-12-04: Version 0.15.2 removes the Perl dependency and replaces Markdown.pl with the Markdown package from
• TclStars
  07 Oct 2013 — that can handle over 3000 objects (mostly ovals) and graciously zoom in and out. Get TclStars 0.2 as a [Starkit];-) at http://tcl.tk/starkits/stars.kit . No warranty, but enjoy
• TclStock
  07 Sep 2012 — tclstock/tclstock-1.10.tar.gz ''(fixes cosmetic problems)'' * '''TclStock 1.0''' from http://tcl.jtang.org/tclstock/tclstock-1.0.tar.gz ''(initial release)'' Return to [Jason Tang]. ---- '''Your comments here
• tclstorage
  21 Nov 2008 — a Tcl virtual filesystem to simplify the use of these composite files. Currently at version 0.0 . Updated: 03/2007 Contact: See web site ---- See [TclVFS] ---- package require Storage # storage access example
• tclsvc
  10 Jan 2012 — interpreter and extension which can install, remove and run Windows NT services. Built against Tcl v8.0.3 but should work with any Tcl 8.x service. You must have a functional
• tcltags.tcl vi/vim ctags equivalent tags file generator for tcl, call chart extractor for tcl sources
  15 Oct 2018 — 0 1] } set sll [lsort -integer -index 0 $sll] set sll1 "" foreach x $sll { lappend sll1 {*}$x } set sll $sll1 unset sll1 # find toplevel function calls set lineno 0 set slli 0
• TclTalk
  10 Apr 2014 — tclkit]''' distribution of Tcl/Tk. ** Attributes ** name: TclTalk website: http://eris.dyndns.info/# latest version: 0.4.0 ** Obtaining ** TclTalk is deployed as a [starkit] for best possible plattform independence. [http://eris
• TclTalkback
  23 Jun 2011 — Latest release:''' Version is 0.04, released on 2008-08-06. This adds an "OSExtendedInfo" string to talkback data. It comes hot on the heels of version 0.03, released on 2008
• tcltap
  05 Jun 2012 — pass a variable or constant. is {concat 1} 1 ok {expr {0 == 1}} # But is has more diagnostics: is {concat 0} 1 This test script produces the following output: 1..4 ok
• tcltest - How to get test name inside test command
  30 Jun 2018 — frame [dict create {*}[info frame 1]] return [lindex [dict get $frame cmd] 1] } test test-1.0 {check test_name command} -constraints { } -setup { } -body { set fpath [file join [pwd] [test_name].txt
• tcltest customMatch
  17 Dec 2016 — size $expected] != [dict size $actual]} { return 0 } dict for {k v} $expected { if {![dict exists $actual $k]} { return 0 } if {[dict get $actual $k] ne $v} { return 0 } } return 1 }}} ====== <<categories>> Testing
• TclTicker
  08 Dec 2013 — ticker program. With ezsmtp installed, can email quotes to an email address. Requires Tcl/Tk 8.0.| || Currently at version 1.3.| | Updated:| 11/2001| | Contact:| mailto:tpoindex@nyx.net (Tom Poindexter
• TclTrain
  25 Jun 2007 — 1 0 -1 0 -fill coral4 ;# ballast $w create poly -100 250 -90 250 0 0 -fill white -outline white -tag rail $w create poly 90 250 100 250 0 0 -fill
• tcltutorial
  26 Jan 2017 — the tutorial. In any case, the above tutorial was not included in the Tcl 8.5.0 distribution. [LV] Question: has anyone examined the tutorial to determine how much of the tcl
• tcluno
  07 Sep 2013 — unospection, an introspection tool| || Currently at version 0.1.| | Updated:| 08/2005| | Contact:| See web site| ---- [Arnulf Wiedemann] 2006-03-04 The new release is 0.2, there are 5 packages to
• tclVFS examples
  23 Jun 2015 — unknown" r] set proc_definition [read $f] close $f (Caveat: there's a bug in the 0.5 version of the namespace driver that causes glob to return names with the first
• tclvfs gotchas
  02 Jun 2014 — values, it's going to be an expensive thing to do. ----- [SEH] [[file exists $fileName]] returns 0 if $fileName exists but is not executable. Use [glob] to test for existence. [Vince] This
• TclWeather
  21 Nov 2011 — 1.10.tar.gz ''(cosmetic changes, left clicks enabled)'' * '''TclWeather 1.0''' from http://tcl.jtang.org/tclweather/tclweather-1.0.tar.gz ''(initial release)'' ''[FW]: Thanks, great software! But FYI, WinZip
• tclwebtest
  10 Sep 2013 — taking care of redirects and cookies, and some basic HTML parsing functionality. Currently at version 1.0.| | Updated:| 03/2005| | Contact:| See web site| ---- To improve the performance of the core program
• TclWiki Formatting Rules
  01 Nov 2007 — see how this wiki handles other structured text: 1. Formatted text mode - text begins at column 0, ends at a new line 1. Unformatted text mode - text begins at column 1 or
• TclWiki Public API
  02 Jul 2012 — is passed to the proc and the proc either returns 1 for a known link, or 0 for an unknown link, so the render will know how to format it. To render
• TclWrap
  25 Apr 2011 — tcl -out hello.exe ''[PWQ] 27 Mar 06'', the site above now resolves to 127.0.0.1, which is a bit antisocial. ---- The referenced page says the site is undergoing complete
• TCLWS (Web Services for Tcl) as SAP Client
  05 Jun 2015 — http request to|& &|skipHeaderLevel|0|0||No changes on request document|& &|skipLevelOnReply|0|0||Also look for results when Tag <ENV:header> is not present|& &|skipLevelWhenActionPresent|0|0||Removes xml tag '<tns1
• TclX
  20 Sep 2018 — own" it. [JH]: TclX was not always an extension as it currently is. Before 8.4.0 released on Nov 21, 2005, there was a TkX (aka wishx) component or stand-alone
• TclX Commands
  12 Jun 2016 — under if no program was specified. argc Contains a count of the number of argv arguments (0 if none). : '''argv''' A list containing the arguments passed in from the command line, excluding
• TclXML
  30 Nov 2013 — parsing XML. ---- My stripped down example code is: ====== package require xml set edata(level) 0 set edata(0) {} proc elementStart {type attrs args} { global edata puts stdout "<$type> attrs=\{$attrs\}, args=\{$args
• TclXSLT
  04 Nov 2012 — a common need for an external reference with TclXSLT [http://www.geocrawler.com/lists/3/SourceForge/7139/0/8130534/]. This package is part of the [ActiveTcl] Batteries Included distribution. <<categories>> Package | XML
• tclXtSend
  04 Jan 2014 — t/tclXtSend/2.0/tclXtSend.2.0.tar.gz%|%tclXtSend.2.0.tar.gz]: ** Documentation ** [ftp://ftp.tcl.tk/pub/tcl/all/t/tclXtSend/2.0/tclXtSend.2.0.README%|%README]: ** Description
• tcom server
  18 Sep 2012 — the following interface: %|Property|Value|% &|name|IVariable|& &|properties|{0 {in out} BSTR Value}|& &|iid|abe2cf86-7fca-42e8-b84c-7fb73363c190|& &|methods|{0 BSTR Value {}} {0 VOID Value {{in BSTR propertyValue}}} {2 I4 SetValue
• TcomOffice
  28 Apr 2018 — renamed in version 0.4.0 due to adding Word functionality. It has been superseded by [CAWT], the COM Automation With Tcl package. ---- [PO] 2008/09/11 - TcomExcel version 0.1 released
• tcor - A Tcl Coroutines Extension
  19 Oct 2012 — initialized = 0; static struct lwt **lwt_table = NULL; static int lwt_allocated = 0; static struct lwt *lwt_current = NULL; static struct lwt *lwt_to_free = NULL; static int lwt_total = 0; static
• TCP and recv
  27 Jul 2011 — GetChannelHandle(Tcl_GetChannel(interp, sock, &mode), TCL_READABLE, &fd); if ( (n = recv(fd, bytes, 1500, 0)) < 0 ) { return TCL_ERROR; } Tcl_SetByteArrayObj(Tcl_GetObjResult(interp), (void *) bytes, n); return TCL_OK; } ====== [Talking
• TCPProxy
  18 Dec 2005 — sh # \ exec wish "$0" ${1+"$@"} wm title . "TCP Proxy" #init defaults: set config(listenport) 2222 set config(server) 127.0.0.1 set config(serverport) 22 set config(connected) 0 set serversocket
• tcptty
  18 Nov 2016 — to '''localhost''' to reduce the threat from the outside Internet, or...<<br>> set to '''0.0.0.0''' to accept connections from everywhere. <<br>>Note that attackers may already have access to
• TDBC
  26 Jul 2018 — 0 name article type {varchar } notnull 1 pk 1 precision 18 scale 0 nullable 0} articleown {cid 1 name articleown type {varchar } notnull 1 pk 0 precision 18 scale 0 nullable 0
• TDBC Driver for Oratcl 4.5 Database Connector
  04 Sep 2018 — return 1 } return 0 } method nextresults {} { if {[oramsg $cursor rc] == 0} { return 1 } return 0 } method close {} { # puts "resultset close" return [next] } } ====== Package Index: ======tcl package ifneeded tdbc::oratcl 0.4 [list
• tdbf
  21 Nov 2017 — Where: http://sqlitestudio.pl/tdbf/tdbf-0.5.tar.gz Description: [DBF] file reader/writer package. Dependencies: IncrTcl Licence: Tcl licence (BSD-like) Current version: 0.5 Updated: 09/2012 Author: Paweł
• tddiff
  12 Sep 2012 — content of the files. -- [Sarnold] Usage: tddiff /path/to/webapp-1.2 /path/to/webapp-1.0 /path/to/changes/dir/to/be/created It can compare two application source trees, for
• tdelta
  12 Sep 2012 — blockNumberSequence] 0] lappend digest "$md5Sum [format %.0f $weakChecksum]" } if $fingerprint { set fileIncrement [expr $fileSize/10] set fpLocation [expr $fileSize - 21] set i 0 while {$i < 10} { if {$fpLocation < 0} {set fpLocation 0
• TDL
  09 Apr 2014 — maintaining the sort order. === 0 202 file whatever.tdl ''0'' 0 202 line {OMA {...}} ''0'' 0 3 word OMA ''0'' 4 196 word {...} ''0'' 5 1 newline ''0'' 10 26 line {OMS
• tDOM and Coroutines
  12 Dec 2017 — parser [expat] foreach event [lsort -unique [lmap i [dict keys $dispatch] {lindex $i 0}]] { if {[string index $event 0] eq "-"} { $parser configure $event [list $coro $event] } } # Enable TNC to automatically validate against
• TEA Streaming encryption extension
  04 Jul 2013 — v[0],z=v[1],sum=0, /* set up */ delta=0x9e3779b9, n=32 ; /* key schedule constant*/ /* printf("v0=%d v1=%d k0=%d k1=%d k2=%d k3=%d \n",v[0
• TEA3
  28 Jan 2016 — follows: ======none --- configure.ac +++ configure.ac @@ -22,1 +22,1 @@ -AC_INIT([sample], [0.5]) +AC_INIT([tclrhubarb], [0.1]) @@ -74,1 +74,1 @@ -TEA_ADD_SOURCES([sample.c tclsample.c]) +TEA
• Teach programming to children
  02 Jan 2016 — proc mc {word} { variable dictionary foreach d $dictionary { if { [lsearch $d $word] > -1 } { return [lrange $d 0 1] } } return [list $word ?] } proc translate {line} { set words [split $line] set names [list] set
• Teacup
  08 Jun 2017 — platform -------- ---- ------------------------- --------------------- package Itcl 0.0.0.2008.08.06.18.10.10 source package Itcl 0.0.0.2008.10.20.18.13.09 source package Itcl 0.0.0.2008.11
• teacup cache
  01 Apr 2008 — do this because the default setting (30 seconds in the version that came with 8.5.0) was not enough to download the metadata DB (~12MB compressed) over my 2Mb link. Also
• teacup describe
  13 Nov 2014 — automation interactive automation interactive pty | pseudo tty Summary : Automating interactive applications Version : 5.43 5.43.0 5.44.1 5.44.1.1 5.44.1.2 5.44.1.3
• teacup list
  17 Aug 2012 — 0.0.282959 linux-glibc2.2-ix86 application teacup 8.5.0.0.283511 solaris2.6-sparc application teacup 8.5.5.0.288593 aix-powerpc application teacup 8.5.5.0
• teacup search
  12 Nov 2012 — 4.1 win32-ix86 package pngtcl 1.4.2 win32-ix86 package pngtcl 1.4.2.0.3 win32-ix86 package pngtcl 1.4.3 win32-ix86 package pngtcl 1.4.8
• teacup version
  05 Jan 2015 — This [teacup] subcommand prints the version of the teacup client. : '''[teacup] version''' Example output: ======none 8.5.17.0.298624 ====== <<categories>> Repository
• teaget
  07 Jan 2018 — Expect 5.43 win32-ix86 package Expect 5.43.0 aix-powerpc package Expect 5.43.0 hpux-parisc package Expect 5.43.0 linux-glibc2.2-ix86 ... ------- ------------ ------------------------- --------------------- 115 entities found Problems
• TeaKpot.tk
  24 Mar 2014 — teacup install --force --with-recommends -v [lindex $cmdlist 1] -exact [lindex $cmdlist 2] -is [lindex $cmdlist 0]" puts "$cmd" puts [exec {*}$cmd] } proc newer {} { set ::newer [exec teacup list --as csv --only
• Tearoff
  19 Sep 2011 — m.foo menu .m.foo -tearoff 0 menu .m.foo add cascade -label "Bar" menu .m.foo add cascade -label "Baz" Or: option add *Menu.tearOff 0 menu .m ... Tearoff menus can
• TearoffTabBar -Notebook Style Access to Floating Palettes
  29 Jan 2013 — tmp $xpos set xpos 0 # 1) background polygon $pathName create polygon \ 0 $height 0 $lbevel \ 0 $lbevel $lbevel 0 \ $lbevel 0 [expr $width - $rbevel] 0 \ [expr $width - $rbevel] 0 $width $rbevel \ $width
• TeaTime
  24 Jan 2011 — if {[lindex $local_history end] == "undo"} { set local_history [lrange $local_history 0 end-1] } foreach invocation [lrange $local_history 0 end-1] { eval [concat $local_this $invocation] } } else { # err here or
• Techniques for reading and writing application configuration files
  17 Dec 2013 — fd] if {[string index $data 0] == "#" || \ [string index $data 0] == " " || \ [string index $data 0] == ""} { continue } switch [lindex $data 0] { foo { global [lindex $data 0] set [lindex $data 0]([lindex $data 1]) [lindex
• tedit
  15 Sep 2013 — return $bindings } proc create-new {} { text .t grid .t -sticky ewns grid rowconfigure . 0 -weight 1 grid columnconfigure . 0 -weight 1 # default bindtags for any new buffer bindtags .t "fundamental-mode keymap
• Tek-Tips
  21 Jul 2004 — Another Tcl/Tk forum where +-2k Tclers help each other. http://www.tek-tips.com/gthreadminder.cfm/lev2/0/lev3/32/pid/287
• TekSel
  23 Mar 2014 — cell 0] set sum "[getcell $cell -1 0]+[getcell $cell 1 0]" append sum "+[getcell $cell 0 -1]+[getcell $cell 0 1]" return "($sum)*.25" } proc debug {{cell b6}} { upvar #0 $cell
• Telephone Ring
  24 Sep 2012 — tty == "none"} { return 0 } else { set tty [file join /dev $tty] } set fd [open $tty r+] fconfigure $fd -buffering none puts -nonewline $fd "\033\[11;40\]" for {set i 0} {$i < 8
• tell
  01 Dec 2012 — included below: ====== % set f [open tst.dat w+] file4 % tell $f 0 % puts $f "a" % tell $f 2 % seek $f 0 % read $f 1 a % tell $f 1 % puts $f bb % tell
• TemplateRecall
  04 Oct 2014 — set cpTempl [regsub -all "'{5} +$var +'{5}" $cpTempl $repl] } return $cpTempl } } if {0} { set goods [list "oxfords,Brown leather,\$85,0" \ "hiking,All sizes,\$55,7" \ "tennis shoes,Women's sizes,\$35
• Templates and subst
  27 Sep 2018 — set pos 0 foreach pair [regexp -line -all -inline -indices {^%.*$} $in] { foreach {from to} $pair break set s [string range $in $pos [expr {$from-2}]] if {[string length $s] > 0} { append script
• tepam
  12 Dec 2012 — least at Windows). How to specify the first entry which does get input focus? * The '''-optional 0''' option doesn't seem to work for me ** See Also ** * [ycl%|%ycl::proc::checkargs%|%] ** Misc
• Tequila
  02 May 2017 — case of: ====== set names [array names arrayX] set last [lindex $names end] foreach item [lrange $names 0 end-1] { set tmp $arrayX($item) set arrayX($item) $arrayX($last) set arrayX($last) $tmp
• terminal emulator
  14 May 2017 — your own purpose. ====== set serial [open com1 r+] fconfigure $serial -mode "9600,n,8,1" -blocking 0 -buffering none -translation binary fileevent $serial readable {.t insert end [read $serial]} pack [text .t
• Test Pattern Image Generator
  28 Jan 2014 — set redvar [format "#%.2X%.2X%.2X" $count 0 0] set greenvar [format "#%.2X%.2X%.2X" 0 $count 0] set bluevar [format "#%.2X%.2X%.2X" 0 0 $count] # create the colored boxes .w
• testing
  31 May 2017 — DeJong], detailing the benefits of a strong regression test policy. [http://softwaredev.earthweb.com/sdopen/article/0,,12421_630531,00.html] * Michael J. Norton's "Network Test Automation with Mac OS X
• Testing for Program Installation on Linux
  28 Oct 2016 — command into a handy proc using the ''exec'' Tcl command. ====== proc is_installed { prog } { set res 0 # trap "abnormal" termination catch { if { [exec which $prog] != "" } { set res 1 } } return $res } ====== <<categories>>Enter
• testing umlauts: äöüßÄÖÜ
  02 Jul 2011 — which browsers change character encoding (I have tested with Mozilla 1.6, Firefox 0.8 and IE 6.0). Let's test links: [testing umlauts: äöüßÄÖÜ]... [rmax] I've investigated that UTF
• Tetrahedron with 3dcanvas
  29 Apr 2018 — the regular tetrahedron set p1 "$x1 0 0" set p2 "-$x2 $y2 0" set p3 "-$x2 -$y2 0" set p4 "0 0 $z3" Sierpinski $w 0 [concat $p1 $p2 $p3 $p4] } proc
• Tetrahedron with tclogl
  11 Mar 2018 — 0.0 0.0 5.0 0.0 0.0 0.0 0.0 1.0 0.0 } set vdist 400 set rdepth 1 set xRotate 0.0 set yRotate 0.0
• text
  28 Sep 2018 — one often writes [[$text get 1.0 end-1c]] (where both 1.0 and 0.0 refer to the first character of the first line - 2.0 is the first of the
• Text Clipboard
  24 Aug 2011 — name pt fid} { upvar #0 $cb_name the_cb foreach elt $the_cb($pt) { if { [lindex $elt 0] == "t" } { puts -nonewline $fid "[lindex $elt 1]" } elseif { [lindex $elt 0] == "r" } { cb_output
• Text Collapser
  20 Aug 2017 — windows set windowlist "" foreach {a b c} [$path dump -window 1.0 end] { if { [string first $path.$collapser::tagbase $b 0 ] != "-1" } { lappend windowlist $b } } set windowlist [lsort $windowlist] # get the last
• Text Drag -Drag and Drop for Text Widget Selections
  27 Jan 2011 — this would be to include ttd. ############################################ namespace eval drag { set dragstring {} set drag 0 set first 0 set last 0 set old_cursor {} # set tag colour settings for specific platforms switch $tcl
• Text flow
  16 Jun 2011 — grid [frame .f] -column 0 -row 0 -sticky nswe grid columnconfigure . 0 -weight 1; grid rowconfigure . 0 -weight 1 grid columnconfigure .f 0 -weight 1; grid rowconfigure .f 0 -weight 1 set
• text line coloring
  12 Jan 2012 — all it takes (computing the tag name from the line number modulo 2 - "1" is colorful, "0" is ignored): package require Tk pack [text .t] .t tag configure 1 -background lightblue set
• Text processing tips
  08 Apr 2014 — text get 1.0 end]] returns, something like [[puts $fid [[string range [[$text get 1.0 end]] 0 end-1]]]]. [ECS]: Why not this: [[puts $fid [[$text get 1.0 end-1c
• Text variable for text widget
  24 Jun 2012 — this procedure, which may or # may not have a :: qualifier. set p [lindex [info level 0] 0] # w is the name of the traced text widget. set w [namespace tail $p] # Go
• Text widget elision
  27 Jun 2007 — set from 1.0 set id 0 #-- remove previous elidify buttons (if you have no other embedded widgets) foreach i [winfo children $w] { $w tag config $i -elide 0 $w tag delete
• Text Widget Example
  17 Jan 2013 — menubar.file -underline 0 #file menu menu .menubar.file -tearoff 0 .menubar.file add command -label "New" -underline 0 \ -command { new } .menubar.file add command -label "Open..." -underline 0 \ -command { set fileid
• Text widget improvements
  18 Oct 2011 — after idle [list after 0 [info level 0]] } } text .t -yscrollcommand [list .y set] scrollbar .y -orient vertical -command [list .t yview] pack .y -side right -expand 0 -fill y pack .t
• Text Widget Newline Wrapping
  06 Jul 2012 — distinguished from the number of logical (\n-separated) lines: ====== set start [.t index @0,0] set end [.t index @0,[winfo height .t]] expr $end - $start + 1 ... ====== This returns the number of
• Text widget undo/redo limitations and enhancements
  01 Feb 2007 — to what is currently shown (at least in the current peer): text .t -undo 0 for {set i 0} {$i < 20} {incr i} { .t insert end "hello there $i" } text .t -undo
• Text2PDF
  03 Jul 2011 — MyPuts "$P(page,$i) 0 R\n" } ::Text2PDF::_MyPuts "]\n" ::Text2PDF::_MyPuts "/Resources<</ProcSet\[/PDF/Text]/Font" ::Text2PDF::_MyPuts "<</F0 $fontID 0 R>> >>\n" ::Text2PDF::_MyPuts "/MediaBox \[ 0 0 $P(width) $P
• text::sync
  21 Jul 2012 — of the text widget can be synchronized with other text widgets. === Identifier: text::sync Version: 0.0.1 Title: A package that enables synchronization between two or more text widgets. Creator: Mark
• text_replacer.tcl
  01 Feb 2016 — cmdlineOptions "t h g encoding.arg translation.arg" set origArgv $argv set printHelp 0 set showExecutionTime 0 set globFileNames 0 set textEncoding "" set eolTranslation "" while {[set result [::cmdline::getopt argv $cmdlineOptions option
• textAttribSel
  24 May 2014 — if {$font eq {}} { return } $w.t configure -state normal $w.t delete 0.0 end $w.t insert 0.0 $font {} $w.t configure -state disabled if {$variable ne {}} { set $variable $font
• Textile and Tcl
  10 Apr 2014 — be found in the Textpattern directory: https://code.google.com/p/textpattern/source/browse/development/4.0/textpattern/lib/classTextile.php?r=2985 Some PHP code in a helper file with code
• Textile to HTML
  14 Mar 2010 — string length $left] > 0} { lappend stylelist "padding-left:[string length $left]em" } if {[string length $right] > 0} { lappend stylelist "padding-right:[string length $right]em" } } if {[llength $stylelist] > 0} { lappend result " style
• Textjam
  21 Jun 2010 — delete 1.0 end; .txt delete end .txt insert 1.0 $txt } proc Clear {} { .txt delete 1.0 end; .txt delete end } proc Gettext {} { set t [.txt get 1.0 end] append
• textutil
  26 Jul 2017 — by [doctools]. ''[escargo] 30 May 2007'' - This seems to be documentation for a version prior to Tcl 8.2, textutil 0.7.1. <<categories>> Package|Word and Text Processing|String Processing|Tcllib
• TextZoom -Using mousewheel scrolling events to interactively re-size text widget content
  28 Feb 2013 — set fsize [lindex [%W cget -font] 1] if { %D >= 0 } { incr fsize 2 } else { incr fsize -2 } set fnt "\{[lindex [%W cget -font] 0 ] $fsize\}" eval %W configure -font $fnt } } console show
• texutil
  12 Dec 2013 — join [split [join $args " "] \n] \n%]\n } namespace export << %@ @ % >> namespace ensemble create } package provide TeXutil 1.0 ====== So the script: ====== namespace import TeXutil::* @ setuppapersize <A6> @ starttext >> "Hello world" \n @ stoptext puts [<<] ====== Would
• TFP
  17 May 2014 — img } } } out 1 ====== Then I connect the boxes like so: ====== connect interactor 0 image 0 connect image 0 interactor 0 connect image 1 interactor 1 router vwait forever ====== <<categories>> flow-based programming
• TFTP Client
  22 Nov 2015 — information variable data constructor {args} { $self configurelist $args lappend tftpList $self set data(host) 127.0.0.1 set data(port) 69 set data(tid) 69 set data(sock) "" set data(mode
• tfu
  12 Sep 2012 — h --help prints this message} exit 0 } if {[llength $argv]<2} { usage } foreach {source target} [lrange $argv end-1 end] break foreach {key val} [lrange $argv 0 end-2] { if {[testopt $key
• Tgdbm
  21 Nov 2017 — http://www.vogel-nest.de/tgdbmqgdbm-library-for-tcl-version-0-5/%|%Tgdbm]''', by [Stefan Vogel], provides an easy to understand interface to the [Gdbm]. Gdbm uses extendible hashing and stores key
• Thatch
  22 Jun 2018 — stwo/repository/thatch * [Stu] 2018-06-21 Version 0.3. (New: Compression) * [Stu] 2018-06-11 Version 0.2. * [Stu] 2018-05-25 Version 0.1. Standalone TkChat runtime+installer made with
• The "Clone Don Porter" Project
  13 Aug 2018 — 05-06 hours active: 248 currently funded: 0€ number of individual financial supporters: 0 number of organizational supporters: 0 ** Description ** Under this project programmers are assigned to work full-time on improving
• the 'Freiburg' project
  22 Mar 2014 — http://www.compiler-factory.de/freiburg << [AMG]: Server is gone. ---- '''NEW in 2.0''' * ['Freiburg' and Threads] * ['Freiburg' porting an Tcl extension to C#] ---- Looks kind of like how Erlang manages external
• the 'Freiburg' project port to windows
  19 Sep 2004 — hard to get any documentation other than online form MS * (+) I had an old VC++6.0 compiler with MSDN-CD -> got libC doku -> ok * (+) free microsoft SDK has winsock2 docu -> ok
• The (Few) Differences between Tcl and Tclkit
  02 Sep 2015 — tcl test sú^?äØ? What's that?????????? cryptdiff.tcl is: set auto_path [linsert $auto_path 0 [pwd]/des]; # ensuring specific des module package require des; set key {vnaspdou6134897(&%busdc/(%523egb75bfas#+s
• The anatomy of a bytecoded command
  25 Nov 2013 — would look like: push1 "x" # Get x's name over 0 # Duplicate the name loadScalarStk # Get x's value dup push1 "0" lindexMulti 1 # Extract first element. # at this point stack has
• The Anatomy of an Object System
  16 Sep 2016 — if 0 {Add the path of `vartimer1` to the new object:} ====== namespace eval $_ [list namespace path [list [namespace current]::[ namespace tail [lindex [info level 0] 0]] {*}[ namespace eval $_ {namespace path}]]] ====== if 0
• the audience wrote chat clients
  04 Oct 2012 — e -textvariable e grid .top -sticky nsew grid .bottom -sticky nsew grid row . 0 -weight 1 grid column . 0 -weight 1 pack .s .t -in .top -side right -fill both pack configure
• The Backspace problem
  25 Jul 2010 — orig index "insert linestart"] if {"insert" eq $cmd} { uplevel #0 [concat [list ${w}_orig] insert insert [lrange $args 2 end]] } else { uplevel #0 [concat [list ${w}_orig] delete insert [lrange $args 2
• the canvas as a data store
  04 Jan 2012 — s -from 1 -to 0 -digits 3 -resolution 0.001 \ -command [list ::demo::colourCircles .c]] \ -fill both -side left set p [::Plotchart::createXYPlot .c {0 100 10} {0 20 5}] # # Put in
• The Cool Store
  01 Feb 2007 — programmers to work out which release number to use in their application. Eg: snack 2.2.0 -> snack-2 sqlite 2.2.16 -> sqlite-2 '''Runtimes''' The repository is runtime agnostic. You
• the empty command
  20 Feb 2015 — a script containing only comments and whitespace), `commandSize` and `numWords` are both 0, so the condition `if (parsePtr->numWords > 0)` is false and `Tcl_EvalEx` skips evaluation, [http://core.tcl.tk/tcl
• The filter idiom
  20 Oct 2010 — lindex $argv 0] : 100}] set iAv $nAv while {[gets stdin line] > 0} { if {$iAv == $nAv} {set iAv 0; set st 0.; set sx 0.; set sy 0.; set sz 0.} set fields
• the FILTR
  14 Nov 2007 — filtr.sourceforge.net. * 3.0.5 -- Added workaround in templatevfs.tcl to Tclvfs bug in handling of glob command. * 3.0.4 -- refined Unix permissions solution. * 3.0.3 -- added code to
• The Gallows game
  11 Dec 2011 — drawKeyboard .c $font pack .f .c -fill x wm geometry . 232x268+0+0 reset .c all } proc drawGallows w { set n 0 foreach line { {50 120 50 20} {50 20 110 20
• The ghosts of VB haunt this TCLer
  18 May 2010 — model for $obj takes {} { return [$self model] } return $obj } proc InfiniteImprobabilityDrive obj { $obj warp 0 $obj maxWarp 0 sd.new.method goto.warp.n for $obj takes n { if {$n > [$self maxWarp
• The Hello World program as implemented in Tcl/Tk
  28 Sep 2018 — wish'''M'''.'''N''' "$0" ${1+"$@"} set foo 0 button .b -textvariable foo -command { incr foo } grid .b === [DKF]: Also consider: === #! /usr/bin/env wish'''M'''.'''N''' set foo 0 grid [[button .b
• The house of Santa Claus
  17 Jul 2007 — stack) 0 end-2] if {[llength $g(stack)]==0} {unset g(last)} } #-- See if the puzzle is completed proc done? {} { foreach i [array names ::g incides,*] { if {[llength $::g($i)]} {return 0
• The i18n package: data
  04 Jul 2011 — if 0 {[Richard Suchenwirth] 2003-06-18 - [The i18n package] bundles most of the i18n work (and play) that I've done so far. That page contains both the man page and
• The infinity trick
  02 Oct 2018 — 0, which doesn't hurt integers, but throws a clear error if someone attempts otherwise: ====== proc foo x { incr x 0 ;#-- make sure x has an integer value for {set i 0
• The legal and ethical aspects of TCL/TK
  23 Jan 2008 — that" description and think to myself "Wow, thats slick. I love that". Using the [[info level 0]] information to find out if someone actually supplied a value to a defaulted arg is
• The Lish family
  05 Jun 2011 — French, German, Icelandic, Italian, Spanish, Swedish * [Greeklish] -- the mother of all Lishes * [Hanglish] -- computing Hangul 2.0 Unicodes from Jamo equivalents * [Heblish] for Hebrew (r2l, context forms of letters explicitly indicated) * [Japlish
• The list of Tk widgets
  16 Jan 2012 — llength $allCommands] tcl and tk ($tkVersion) commands." set tkCommands {} foreach element $allCommands { if { [lsearch $tclCommands $element] < 0 } { lappend tkCommands $element } } foreach cmd $tkCommands { puts $cmd } exit It gives : 92 tcl commands. 152
• The major new features of Tcl/Tk 8.6
  19 Dec 2012 — chan event $s readable [list handleLine $s 1] proc handleLine {s lineNumber} { if {[gets $s line] < 0} { close $s } else { puts "${lineNumber}: $line" chan event $s readable [list handleLine $s [incr lineNumber
• The modal widgets set
  21 May 2005 — x -pady 0.1c -padx 0.2c frame $path.d pack $path.d -side bottom -fill x frame $path.d.f pack $path.d.f -side bottom set i 0 foreach txt
• The Montana, Utah & Texas
  03 Jul 2011 — sema $::g(semaphores) { set dx [- $::g($sema,x) $xmax] if {$dx > 0 && $dx < 30} {set var $sema; return 1} } return 0 } #-- Dijkstra's classic mutex operations are very simple here: proc P
• The Monty Hall problem
  22 Jun 2017 — demonstration of the situation. # set trials 10000 #set trials 3 set otherDoorWins 0 set firstDoorWins 0 for {set i 0} {$i < $trials} {incr i} { # Determine the winning door set winning [expr {int
• The observer design pattern
  10 Jul 2016 — upvar 0 observer_map($subject) lst set idx [lsearch $lst $observer] if { $idx < 0 } { return -code error [format "unknown observer \"%s\"" $observer] } set lst [lreplace $lst $idx $idx] if { [llength $lst] == 0
• The Q function
  10 Oct 2011 — pack [canvas .c -bg white] -fill both -expand 1 set line [.c create line 0 0 0 0 -fill red] for {set i 1} {$i<800} {incr i} { point .c $i [Q
• The RC File
  18 May 2012 — wish to source from other scripts just for convenience if {[info exists tcl_interactive] && $tcl_interactive > 0} { set tcl_prompt1 {global tcl_version puts -nonewline "=========\ntclsh$tcl_version > "} set tcl_prompt2 {puts
• The reverse-then-add sequence
  07 Jun 2012 — reverse [string reverse $number] return [expr {$reverse eq $number? 1 : 0}] } proc nextNumber {number} { set reverse [string trimleft [string reverse $number] 0] return [expr {$reverse + $number}] } # Print the series that lead to
• The Simple Development Library
  28 Nov 2013 — Library version 1.0 2003-02-17: Third public release, version 0.5 2001-09-10: Second public release, version 0.4 2000-04-23: First public release, version 0.2 <<categories
• The simplest possible socket demonstration
  08 May 2011 — does it look like? '''Client''' (IP: 10.0.0.1) 10.0.0.2:12345 says goodbye '''Server''' (IP: 10.0.0.2) 10.0.0.1:49100 says hello Discuss. ---- [PT
• The Smallest Tcl Web Server
  04 Nov 2011 — 1GiB RAM, Windows XP SP3, and Tcl 8.6b1.2, and I got heavily quantized results: 0 microseconds (most common), 16000 microseconds (second-most common), and 15000 microseconds (least common). I'll
• The task package
  25 Sep 2011 — task end ::task ====== ---- The package code follows. ---- ====== namespace eval task { namespace export \[a-z\]* variable counter 0 variable ns [namespace current] variable map array set map {} namespace eval tmp {} } proc task::constructor
• The tcl-map GSoC2009 project
  09 Sep 2013 — can be easily reimplemented in tkpath/tkzinc. [SpatiaLite] [http://www.gaia-gis.it/spatialite-2.3.0/] This is an SQLite extension to support storing of spacial data and query of them
• The Tcler's Wiki
  02 Aug 2017 — 0
• The way tcl works
  11 Jun 2011 — The way tcl works ''' from "Bryan's Practical Guide to Tcl Programming", vol 0, page 0. The way tcl works: a line of code is parsed once. Only once. Only ever once
• The widespread misperception that Tcl is a 'toy' language
  09 Jul 2012 — loop. Well, that would consist of the following code, right? ======none if {$for} { emit "for (i = 0; i < $limit; ++i) {" } emit $code if {$for} { emit "}" } ====== Well, what does Tcl actually do with
• The word-chain game
  19 Nov 2007 — if {[wordDistance $w $word]==1} {lappend res $w} } set res } proc wordDistance {word1 word2} { set distance 0 foreach c1 [split $word1 ""] c2 [split $word2 ""] { if {$c1!=$c2} {incr distance} } set distance } % neighbors
• Themes
  29 Aug 2016 — for GTK+ 1.2 and [http://developer.gnome.org/doc/API/2.0/gtk/index.html] for GTK+ 2.0). IMHO it seems incredibly poor for such a widely used toolkit. A
• TheTwine
  05 Apr 2012 — grid .c -row 0 -column 0 -sticky news grid columnconfigure . 0 -weight 1 grid rowconfigure . 0 -weight 1 set ndots 0 set r 8 set lastx 0 set lasty 0 proc add
• They aren't wide enough
  07 Jun 2014 — w configure -width 0 set needed_x_extent [winfo reqwidth $w] set result [expr $needed_x_extent > $x_extent] $w configure -width $original_width return $result } default { return 0 } } } ====== then execute ====== proc
• Things British
  17 Jan 2016 — set s [expr int(($amount-$L)*20)] set d [expr int(($amount-$L-$s/20.)*240+0.5)] set res "" if {$slash==" "} { if $L {append res "\u20A4$L"} if $s {append res
• Things Japanese
  17 Jan 2016 — simple). So the above proc, over the 133 years from 1868 to 2001, gets 0.5+0.98+0.02=1.5 nengos wrong, an error rate of 1.1%. We can
• Thingy OO with classes
  07 Jun 2014 — proc [lindex [info level -1] 0] set level 2 if {$proc == "namespace"} { # Case2: namespace eval Object --> self incr level -1 set proc [lindex [info level 0] 0] } return [namespace qualifiers [uplevel $level
• Thingy: a one-liner OO system
  30 Jan 2013 — deleting objects, thingy does make for a very compact object system: namespace eval obj { variable id 0 proc thingy {} { variable id set obj [namespace current]::obj[incr id] namespace eval $obj {} interp
• this wikit
  16 Sep 2013 — wikit facilities. '''Done (pro tem)''' generates history, doesn't allow access yet. * code to load pages 0-11 ... '''Needs extension''' * fix UTF-8 errors in wikit content, using [kbk]'s fixer. Add
• Thoughts about a data manipulation language
  21 Mar 2006 — set row 0 puts "Columns: [join [getnames $dataset] \t]" while {1} { set values [getrow $dataset $row] if { [llength $values] == 0 } { break } puts "$row: [join $values \t]" incr row } } if {0} { Let us
• Thoughts on implementing OO in tcl
  30 Jan 2013 — by MS, an absolute beginner'' ---- '''Wish 0:''' Instance variables should be *regular* tcl variables, and should allow handling as such (set, lappend, trace, ...). In the same vein, instance procs should be *regular
• Thoughts on OO, Natural language, human thinking
  20 Jul 2009 — list_length list { set length 0 foreach item $list { incr length } return $length } In Haskell this would be done as: list_length :: [a] -> Int list_length [] = 0 list_length (x:xs) = 1
• thread-ring benchmark
  07 Aug 2009 — spoke about below. http://shootout.alioth.debian.org/gp4/benchmark.php?test=threadring&lang=tcl&id=0 If anyone knows anything about this limit please comment here. I got around it by
• thread: -eventmark and send -async
  12 Sep 2015 — wait }] thread::send $filter [list variable consumer $consumer] thread::configure $filter -eventmark 10 for {set i 0} {$i < 50} {incr i} { set thread [thread::create { proc go {} { variable filter set value 1
• thread::errorproc
  25 Apr 2015 — 6.4 Thread: 2.7.2 ------------------------- [BGERROR]: {Error in after!} {-errorcode {TEST AFTER} -code 1 -level 0 -errorstack {INNER {returnImm {Error in after!} {-errorcode {TEST AFTER}}}} -errorinfo {Error in after! while executing
• Three-dimensional shapes
  20 Jan 2013 — Initialise the variables # variable angle [expr {0.25*3.1415926}] variable scale 70.0 variable yoffset -2.0 variable zoffset 2.0 variable torsion_angle 0.0 } ;# End of namespace # # Set up
• throw a dice
  28 Apr 2016 — a graph of the result. ====== set to {}; for {set j 0} {$j < 100} {incr j} { set o 0; for {set i 0} {$i < 100} {incr i} { set o [expr $o+rand()] }; lappend
• Throwing Two Dice
  20 Jun 2012 — 0 with 2 dice thrown to reach square n at least. set i 0 array set bins {} set maxbin $n while {$i<=$maxbin} { set bins($i) 0; incr i} set i 0
• thyrd
  06 Jul 2009 — TkZinc] and [Poet]. Thyrd also resembles Tcl in that [EIAS] is a fundamental principle of the language. Currently at version 0.2.0. Updated: 11/2008 Contact: See web site === ---- !!!!!! %| [Category Language] |% !!!!!!
• TI eZ430-Chronos Watch
  31 Jul 2017 — ti.com/images/4/48/EZ430-Chronos_Control_Center.png] [http://processors.wiki.ti.com/images/0/04/Controll_Center.jpg] ---- See: Control an Arduino With a Wristwatch (TI EZ430 Chronos) [http
• Ticker
  03 Apr 2014 — w tag dy} { $w move $tag $dy 0;# (1) foreach i [$w find withtag $tag] { set y1 [lindex [$w bbox $i] end] if {$y1<0} {$w delete $i} } llength [$w find withtag
• Tickler File
  28 Jul 2011 — until it comes back to your inbox. ====== #!/bin/sh # execute in tclsh from path \ exec tclsh "$0" ${1+"$@"} #----------------------------------------------------------------------------- # ticklemail.tcl # A simple script to implement an email "Tickle File" # Written by Michael
• ticklesharp
  04 Feb 2018 — Eagle: Re-implementing Tcl in C#]. [ray2501]: I try to build TickleSharp 0.1 by using .NET core 2.0 and Tcl/Tk 8.6. I put result at [https://github.com
• tickletext
  22 Apr 2010 — 3 or later (requires Tcl/Tk 8.5 or later). [http://www.baldwinsoftware.com/images/tcltext2.0.jpg] http://www.baldwinsoftware.com/tcltext.html Tickle Text supports editing of a wide variety
• TickleWiki
  12 Dec 2007 — MySQL as a backend. The RecentChanges page can be retrieved in RSS 1.0 format. Currently at version 1.0 . Updated: 01/2004 Contact: See web site ---- **Installation** ***1. Create config.cgi
• TIDE
  01 Sep 2013 — mechanism. V1.6 now available for Linux. AIX, HP-UX and Solaris available on request. V2.0 finished for all platforms (incl WIN-XX), but not yet available. [http://www.haschek.com
• tilaphos
  18 Apr 2011 — Home and End keys. Changes in version '''0.31''': * Added plugin directory and a mini www server for multipart jpeg streaming. Changes in version '''0.30''': * Incremental snap_shots_''n'' directories. * Configurable
• Tilde Substitution
  06 May 2011 — arg [lindex $args 0] if {[string index $arg 0] eq {~}} { set arg "./$arg" lset args 0 $arg } eval auto_execok $args } proc tcd args { set arg [lindex $args 0] if {[string first
• Tile and BLT together on MacOS X
  25 Sep 2012 — good one and actively maintained. The obvious step was to just compile Tile (I used version 0.7.6 here) for the Mac and then be finished. But this turned out to
• Tile Table
  03 Jun 2008 — tree $w.vsb -sticky nsew grid $w.hsb -sticky nsew grid column $w 0 -weight 1 grid row $w 0 -weight 1 set font [::ttk::style lookup [$w.tree cget -style] -font
• tile themes - base64 encoded
  27 Oct 2009 — insensitive)] \ -width 11 -sticky w -padding {0 0 18 0} # Scrollbar ::ttk::style element create Horizontal.Scrollbar.trough \ image $I(horizontal_trough) -width 16 -border 0 -sticky ew ::ttk::style element create
• Tile Treatise
  11 Sep 2011 — Philip Quaife] '''20 Jan 05''' I looked at the demo of [Tile] back at version 0.3. Now that the [TCT] have approved it for inclusion into the core, I thought it
• tiled image
  27 Jan 2014 — image create photo foo -data {...} $canvas create image 0 0 -anchor nw -image [image create photo foo-tiled] foo-tiled copy foo -to 0 0 [winfo width $canvas] [winfo height $canvas] # Yes
• TileGTK
  05 Dec 2011 — 06-15-2009 * tilegtk 0.2 win32 binary: http://tcltk.co.kr/node/1352 * GTK+-2.0 runtime library: http://archive.tcltk.co.kr/mingw/gtk+-2.0/gtk+_2.16.2
• Tim on 12/03/2004
  07 Feb 2005 — lindex [array get members $_selected ] 1]" } pack [iwidgets::optionmenu .optionlist -command getMenu] array set members {John 0 Jane 1 Jack 2 Janet 3} foreach user [array names members] { .optionlist insert end $user
• Time
  22 Feb 2018 — ceil(10000./[lindex [time $args] 0]))}] set it [expr {int(ceil(2000000./[lindex [time $args $it] 0]))}] while {$it < 500} {set it 500} lindex [time $args $it] 0 } ====== Use it like this
• Time and date validator
  13 Jan 2017 — and 0 if it is bogus. Examples: * "5:13:52" (%T) => 1 * "1/2/2003" (%D) => 1 * "jun 14, 2009" (%b%d,%Y) => 1 * "feb 29, 2009" (%b%d,%Y) => 0 * "febr
• Time Picker
  08 Oct 2008 — timepicker3 master ? UseTile 1 theTime "1:00 am" hour 0 minute 0 ampm 0 selected,hour 0 selected,minute 0 selected,ampm 0 selected,color \#b2b4bf } } ##+########################################################################## # # timePicker::timePicker -- Creates a new instance
• Time-based one-time password
  08 Dec 2015 — key $secret $challenge] c* hash set offset [expr {[lindex $hash end] & 0xF}] set totp 0 for {set i 0} {$i < 4} {incr i; incr offset} { set totp [expr {($totp << 8) | ([lindex $hash
• Time-stamp
  12 Feb 2006 — if 0 {[Richard Suchenwirth] 2006-02-12 - One of [emacs]'s many features is that when you have, in the first five (or so) lines of a file, the string Time-stamp
• timebox
  03 Apr 2012 — all format codes in the format string. set old_end 0 set index 0 set seen_ampm 0 set seen_12hr 0 foreach {beg end} [concat {*}[regexp -inline -indices -all %. $fmt] x
• timedImgViewer
  06 Jun 2010 — scrollbar $w.par.yscroll -command "$w.par.widget yview" -orient vertical set rowNo 0 if { [string compare $titleStr ""] != 0 } { set rowNo 1 grid $w.par.label -sticky ew -columnspan 2 } grid $w
• timefield
  25 Dec 2013 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/timefield.html and http://purl.org/tcl/home/man/iwidgets3.0/timefield.n.html <<categories>> Date and Time | Command | incr Widgets
• timeliner
  28 Sep 2012 — 10} { if {$x%50 == 0} { $w create line $x 8 $x 0 $w create text $x 8 -text $x -anchor n } else { $w create line $x 5 $x 0 } } # bind $w <Motion
• timeliner (minutes instead of years)
  28 Sep 2012 — zoom %W 0.8} } proc timeliner::zoom {w factor} { variable "" $w scale all 0 0 $factor 1 set (-zoom) [expr {$(-zoom)*$factor}] $w config -scrollregion [$w bbox all] } if 0 {This command
• Timer
  11 Jun 2012 — Identifier: timer Version: 0.4.0 Title: A timer package. Creator: Mark G. Saye <markgsaye@gmail.com> Contributor: Tania Rubio <yosoythania@hotmail.com> Description: Provides easy access to Tcl's built-in
• timers
  03 Mar 2014 — S$tag ] 0 ] set mst [ lindex [ set ::__t::S$tag ] 1 ] set udt [ expr { ($ut-$ust)/1000000.0 } ] set mdt [ expr { ($mt-$mst)/1000.0 } ] set dt $udt if { $dt < 0 || $dt
• Timing Photo Image Loading under Pixane
  22 Apr 2016 — written on Windowws XP on eTCL # working under TCL version 8.5.6 and eTCL 1.0.1 # gold on TCL WIKI , 25may2011 package require Tk package require pixane console show global
• Tiny Excel-like app in plain Tcl/Tk
  18 Nov 2017 — for lmap foreach row {0 1 2 3 4 5 6} { grid {*}[lmap {column} {"" A B C D E F} { set cell $column$row if {$column eq "" || $row == 0} { ::ttk::label .label
• tinyurl
  08 Feb 2013 — com/api-create.php" -query $query] upvar #0 $tok state if {$state(status) == "ok" && $state(type) == "text/plain"} { set result [lindex [split $state(body) \n] 0] } ::http::cleanup $tok } return $result } ====== <<categories
• TIP #257: Object Orientation for Tcl
  16 Sep 2014 — is what you intended. Did you want this? ====== variable a [lindex $args 0] b [lindex $args 1] ====== Just my $0.02 [MJ]: You are of course correct. Rereading the variable section shows
• Tip #288
  15 Aug 2018 — 288.md # see also: http://chiselapp.com/user/aspect/repository/tcl-hacks/finfo?name=modules/tip288-0.tm proc @tip288 {p pname pargs lambda} { if {$p ne "proc"} { error "bad synax: $p
• TIP #323: Do Nothing Gracefully
  13 Jun 2015 — Accpet zero elements [http://core.tcl.tk/tcl/tktview/1672056fffffffffffff]. `[lrepeat]`: Accept both a ''number'' of `0`, and zero elements [http://core.tcl.tk/tcl/tktview/1671951fffffffffffff]. `[my%|%my variable]`: Accept zero
• TIP #431 Discussion
  21 Jul 2017 — NULL, 0}, {"attributes", TclFileAttrsCmd, NULL, NULL, NULL, 0}, {"channels", TclChannelNamesCmd, TclCompileBasic0Or1ArgCmd, NULL, NULL, 0}, {"copy", TclFileCopyCmd, NULL, NULL, NULL, 0}, + {"createdir", TclFileCreateDirCmd, TclCompileBasic1ArgCmd, NULL, NULL, 0}, {"delete", TclFileDeleteCmd, TclCompileBasicMin0ArgCmd, NULL, NULL, 0
• Tip #508
  16 Aug 2018 — eq "exists"} { if {! [array exists $arrayName]} { return 0 } set t [trace info variable $arrayName] set n [regexp -line {META: default: (.*)$} $t . value] if {! $n} { return 0 } return 1 } if {$option eq "unset
• TIP proposal for Try-Catch Exception Handling
  11 Oct 2012 — r"] set data {} set code [catch { while { [gets $f line] >= 0 } { append data [binary format H* $line] } } em opts] if { $code != 0 } { dict set opts -code 1 set em "Could not process
• Tip187 in pure Tcl
  08 Jul 2011 — lindex $args 0]]} { error "Lists of different length as input for \[map\]" } } } set result {} for {set i 0} {$i < [llength [lindex $args 0]]} {incr i} { set callargs {} for {set j 0} {$j
• Tips for writing quality software
  10 Oct 2018 — the answers right except when $wide == 0. 04:04 <@ijchain> <dgp> And that never mattered until now because you knew a $wide would never store a 0 04:04 <@ijchain> <dgp> You
• TixTclKit
  09 Apr 2011 — think I'll stick with [ActiveTcl] and [TclKit] + [kitten]. ----- [LV] Which ActiveTcl - the 8.4.5.0 ? So you have the latest ActiveTcl extensions, the latest TclKit and the latest kitten? You
• TixXf
  05 Aug 2011 — Tcl/Tk/Tix interpreter. TixXf is based on Xf with Tix widgets. Currently at version 0.0 . Updated: 08/2005 Contact: See web site ---- See also [Xf] and [Tix]. <<categories>> Application | GUI
• Tk
  28 Apr 2018 — d 2 -g 3 -n 4 -s 5 -u 6 -v 7 % set argv [linsert $argv 0 --] -- -c 1 -d 2 -g 3 -n 4 -s 5 -u 6 -v 7 % package
• Tk & Ttk Integration
  16 Jul 2011 — foreground)]} { foreach {state col} $menuMap(-foreground) { if {[lsearch $state active] >= 0} { option add *Menu.activeForeground $col $priority } if {[lsearch $state disabled] >= 0} { option add *Menu.disabledForeground $col $priority } } } } } proc ttkutils::MenuThemeChanged {win
• Tk and msgcat
  24 Jun 2012 — menubutton frame .myframeBis pack .myframeBis -side top -fill x -pady 0 menubutton .myframeBis.file -text "File" -menu .myframeBis.file.menu -underline 0 menu .myframeBis.file.menu -tearoff false pack .myframeBis.file -side
• Tk coding styles and philosophies
  24 Oct 2008 — this: Why is $i always the value 5 when I press my button? for {set i 0} {$i < 5} {incr i} { button .b$i -command { borka borka borka yada yada yada puts
• Tk demo framework
  20 Jan 2014 — it doesn't get loaded unless necessary. So a package index file might have two entries per package: package ifneeded myCleverPackage 1.0 ... package ifneeded myCleverPackage-demo 1.0 ... <<categories>> Suggestions | Tutorial
• Tk Dual Zone Clock
  01 Oct 2013 — updaterunning 0 after 1000 [list after idle [list [namespace current]::update_time $id]] } proc tzoffsets {varname} { upvar $varname var #this is only here to initialize the ::tcl::clock subsystem clock format 0
• Tk glossary
  30 Oct 2008 — coordinate system has the X axis horizontal and the Y axis vertical, with the origin [[0,0]] at the upper left. Coordinates are integral, in terms of pixels, and coincide with pixel
• Tk image Dos and Don'ts
  16 Mar 2015 — It looks intuitive, but is extremely slow to write ====== for {set x 0} {$x<$xmax} {incr x} { for {set y 0} {$y<$ymax} {incr y} { $photo put $color -to $x $y } } ====== Rather
• Tk in a set-userid application
  22 Jun 2006 — args } { puts [format "%s" $args] set ::forever 1 exit 0 } set res [wm protocol . WM_DELETE_WINDOW quitApp] puts $res button .b -text 0 -command {.b config -text [expr [.b cget -text
• Tk internationalization
  24 Jun 2012 — functions. Here's an internationalized version of tk_optionMenu: ---- ====== proc OptionMenu {w varName firstValue args} { upvar #0 $varName var if {![info exists var]} { set var $firstValue } menubutton $w -text [::msgcat::mc $firstValue
• Tk is obsolete
  24 Jun 2016 — looks awful on linux. The following screenshot is from a work in progress that uses Tile 0.7.8 and tk 8.5a4. It is untweaked for linux (read: developed on windows
• Tk Package
  30 Aug 2012 — ftp://www.tcl.tk/pub/tcl/misc/unz512xN.exe ftp://www.tcl.tk/pub/tcl/tcl8_0/vclibs80.zip http://resource.tcl.tk/resource/ http://wiki.tcl.tk/HowDoIReportABug http://www.cs
• Tk Sets The Standard by Cameron Laird and Kathryn Soraiz
  25 Dec 2017 — source buzz competing toolkits now receive. Consolidation of the internationalization and performance benefits of versions 8.0 to 8.2 has already led to opportunities for specific new features. Hobbs reported, "More
• Tk Style Support
  21 Feb 2008 — engine support API for GTK+ can be found at [http://www.gtk.org/~otaylor/gtk/2.0/theme-engines.html] ---- See also [Ttk], which is a new set of widgets designed to
• tk useinputmethods
  24 Oct 2010 — feature is only significant on X. If XIM support is not available, this will always return 0. If the ''window'' argument is omitted, it defaults to the main window. If the ''boolean
• Tk widget sticky discussion
  31 Jul 2011 — left as an exercise to the reader):'' ====== grid .lbfDs -sticky nsew grid rowconfigure . 0 -weight 1 grid columnconfigure . 0 -weight 1 ====== [CRV] I'm sorry if I was unclear. Ok, what I
• tk::classic::restore
  08 Feb 2015 — From a comp.lang.tcl thread called Tcl/Tk 8.5 vs iwidgets 4.0.2, from August 2008 ===none > Jeff, since I don't see a man page for '''tk::classic
• tk_chooseColor
  14 Jan 2016 — comp.lang.tcl thread with this code fragment: ====== canvas .thecanvas pack .thecanvas .thecanvas create oval 0 0 50 50 -fill red -outline blue -tag theOval .thecanvas itemconfigure theOval -fill [ tk_chooseColor -initialcolor
• Tk_CreateGenericHandler
  04 Apr 2011 — zero the '''XEvent''' is considered processed fully, and '''Tk_HandleEvent''' returns. If the generic handler returns 0 then Tk will attempt to pass the '''XEvent''' to any handlers it's suited for
• tk_dialog
  24 Aug 2016 — gives the index of the button that is to be the default button for the dialog (0 for the leftmost button, and so on). If less than zero or an empty string
• tk_exec
  28 Sep 2016 — if {![info exists tk_exec_id]} { set tk_exec_id 0 } else { incr tk_exec_id } set keepnewline 0 for {set i 0} {$i < [llength $args]} {incr i} { set arg [lindex $args
• tk_getSaveFile
  07 Oct 2016 — set x [catch {set fid [open $file w+]}] set y [catch {puts $fid [.t get 1.0 end-1c]}] set z [catch {close $fid}] if { $x || $y || $z || ![file exists $file] || ![file
• tk_optionCascade
  30 Jul 2016 — 0 $value] return $m } proc tk_optionCascade2_menu {m varName argl} { $m delete 0 end set next [menu $m.n -tearoff 0] $m add cascade -label "More" -menu $next set index 0
• tk_optionMenu
  11 Sep 2017 — optname [tk_optionMenu .menu varname junk ] pack .menu -side left $optname delete 0 set j [llength $l] for {set i 0} {$i < $j} {incr i} { set e [lindex $l $i] $optname insert
• Tk_PhotoPutBlock
  30 Jun 2014 — 3*hSymbol->bitmap_width; sImageBlock.pixelSize = 3; sImageBlock.offset[0] = 0; sImageBlock.offset[1] = 1; sImageBlock.offset[2] = 2; sImageBlock.offset[3] = 0; if (TCL_OK != Tk_PhotoPutBlock(interp, hPhoto, &sImageBlock, destX0
• tk_popup
  30 Jun 2015 — wm withdraw . menu .p -tearoff 0 .p add command -label "one" -command {puts cmd1} .p add command -label "two" -command {puts cmd2} tk_popup .p {*}[winfo pointerxy .] 0 tkwait window .p ====== This
• tk_textCopy/tk_textCut without elided text
  17 Jan 2013 — lappend elideTags $el } } # if there is any tag which elides text if {[llength $elideTags] > 0} { set elide 0 foreach {key value index} [$w dump -tag -text [$w index $start] [$w index $end
• tk_textPaste
  18 Aug 2011 — catch {::tk::GetSelection $w CLIPBOARD} sel]} { set oldSeparator [$w cget -autoseparators] if { $oldSeparator } { $w configure -autoseparators 0 $w edit separator } if {[string compare [tk windowingsystem] "x11"]} { catch { $w delete sel.first sel
• Tk_Theme
  01 Jul 2012 — system tray of for example KDE. Used it for a nice graphical ISDN dialer program that is much better than the crappy kinternet in an older SuSE 7.0. <<categories>> Package | GUI
• tk_toastMessageBox : A Tcl/Tk Procedure That Mimics Android's Toast.makeText() Fading Message Behaviour
  14 Oct 2014 — degree} { wm attributes $w -alpha $degree if { $degree > 0 } { after 200 [list fade $w [expr {$degree-0.05}]] } else { destroy $w } } after $fade_time {fade .fading 1.0} } ====== <<categories>>Enter Category Here
• Tk_Xpm
  02 Nov 2017 — unable to query pixmap size", TCL_STATIC); return TCL_ERROR; } Tk_ImageChanged (xinst->master, 0, 0, 0, 0, width, height); return TCL_OK; } static int Tk_XpmMakePixmapFromBuffer (Tcl_Interp *interp, char *buf
• TkAero
  22 May 2011 — NewBooleanObj( 0 ) ); } return TCL_OK; } __declspec(dllexport) int Tkaero_Init(Tcl_Interp *interp) { if ( Tcl_InitStubs( interp, "8.1", 0 ) == NULL ) return TCL_ERROR; if ( Tk_InitStubs( interp, "8.1", 0 ) == NULL
• TkAlign4
  25 Jun 2014 — pack {*}[winfo children .] wm geometry . 240x320+0+0 proc reset {c {what {}}} { global g if {$what eq {all}} { set g(red) 0 set g(yellow) 0 set g(toPlay) red } $c delete
• tkbiff
  07 Jun 2014 — 5.0) or my understanding of how to use it! I'll demonstrate: Try entering the following 3 lines into tkcon: % package require tls % proc w {f} {fconfigure $f -blocking 0;fileevent
• tkBuilder
  01 Sep 2013 — 20080509155601/http://sawpit.iwarp.com/ website: http://sourceforge.net/projects/tkbuilder84/ license: [GPL] current version: 1.0.2 contact: sawpit@yahoo.com ** Description ** Localised in English and Fench. <<categories>> Category Application | Category
• tkButtonFly
  28 Aug 2011 — color. 0 0.6 0 .backcolor. 0 0.8 0 .highcolor. 0 0.8 0 .menu. imageViewers View system files .color. 0.6 0 0 .backcolor. 0.8 0 0 .highcolor. 0
• TkCatScan
  01 Feb 2002 — require CueCat proc Decode {} { set cat_str [.tx.entry get] if {$cat_str != "" } { .tx.entry delete 0 end set cat_decode "SCAN# [CueCat::DecodeNOID $cat_str]" append cat_decode "\n" if {[regexp
• TkChatistics
  09 Feb 2009 — return if {$author eq "ijchain"} { if {[string index $msg 0] eq "*"} return set index [string first > $msg] set author [string range $msg 0 $index] } if {! [info exists count($author)]} { set count($author
• TkClipper
  09 Dec 2013 — clipboard handler Currently tested on Linux and Windows. Open source (GPL licence). Currently at version 1.0. Updated: 03/2010 Contact: See web site: http://sqlitestudio.pl/tkclipper/ **Informations about updates** [Googie
• tkclock
  25 Dec 2013 — original code, written as a tclet, as well as improved versions, including one with a timer. | || Currently at version 2.0 .| | Updated:| 07/2007| | Contact:| See web site| <<categories>> Date and Time
• TkCon as an application console
  21 Sep 2011 — tkcon internals to create # the console and customize it to our application. #------------------------------------------------------ set tkcon::PRIV(showOnStartup) 0 set tkcon::PRIV(root) .console set tkcon::PRIV(protocol) {tkcon hide} set tkcon::OPT(exec
• Tkcon as an IDE shell
  02 Jul 2014 — remote ftp://localhost:1337$fn & } proc ed {name} { set tclname [uplevel #0 "namespace which $name"] if {"" == $tclname} { set tclname [uplevel #0 "namespace which -var $name"] } puts "ed $name $tclname" if {"" != $tclname} { edtclftp
• tkcon.cfg
  19 Apr 2016 — alias helptext-if puts {if {$x == 0} {puts "X equals 0"} elseif {$x < 0} {puts "X is less than 0"} else {puts "X is greater than 0"}} # -------------------------------- alias helptext-switch puts {switch
• tkcvs
  03 Aug 2016 — com/pub/tcl/sorted/packages-7.6/apps/tkcvs-6.0/tkcvs-6.0.tar.gz http://www.twobarleycorns.net/tkcvs_8_0.tar.gz Description: tkCVS is a [Tk] interface to
• TkDesk
  02 Nov 2012 — Currently at version 2.0.| | Updated:| 04/2004| | Contact:| mailto:jchris@users.sourceforge.net| [http://tkdesk.sourceforge.net/images/tkdesk.jpg] ---- April 15, 2004 TkDesk release 2.0, code name "Lazarus," is
• tkdiff
  02 May 2018 — that would seem to be out of date relative to the notice above. Plus, tkdiff 4.0 was announced on freshmeat.net on 25 Mar 2004. The starkit should be updated (and
• TkDND
  15 Feb 2017 — use Slackware64 13.0 - KDE 4.2, Xorg 1.6.3, Kernel 2.6.29.6. 14/04/2010 - [Googie]: Any news? I've just downloaded version 2.0 and now it
• Tkeyes
  26 Oct 2017 — edgefactor edgefactor if {$wobble} { set xmove [expr {(rand()-0.5)*$wobble}] set ymove [expr {(rand()-0.5)*$wobble}] } else { set xmove 0 set ymove 0 } set eyecenter [center {*}[$canvas coords ${eye}eye
• TkFileman
  19 Oct 2012 — Where:| http://www.mindspring.com/%7Ejoeja/programs.html <<br>> ftp://ftp.mindspring.com/users/joeja/tkfileman-0.5.3.tar.gz| |Description:| A simple file manager that supports a GUI for tar
• TkFX
  12 Jul 2012 — url webview .w grid .b -row 0 -column 0 grid .e -row 0 -column 1 grid columnconfigure . 0 -minsize 50 grid .w -row 1 -column 0 -columnspan 2 after 200 wm geometry
• tkgcv
  23 Feb 2017 — ipvr/swlab/sopra/tkgcv/tkgcv.html ftp://ftp.informatik.uni-stuttgart.de/pub/tkgcv/tkgcv-1.0.tar.gz Description: Tk 4.2 canvas widget which supports graph structures. Both node and
• Tkgetfile - An enhanced FileOpen browser replacement for tk_getOpenFile
  20 Apr 2018 — background white tablelist::tablelist $w.file.sframe.list -columns {0 "Name" 0 "Size" right 0 "Date Modified" } \ -stretch all -background white -width 0 \ -yscrollcommand [list $w.file.sframe.yscroll set] \ -stripebackground #f0f0f0
• tkhtml
  27 Mar 2014 — both i386 and x86_64 As always YMMV. ---- It appears that Tkhtml depends on Tk 8.0-8.3 . Pointers to modifications for Tk 8.4 or newer would be appreciated. It
• tkhtml3
  31 Aug 2017 — http://tkhtml.tcl.tk/%|%Tkhtml 3.0]''' is a new [html] rendering [widget] for [Tk]. It is a rewrite of the existing Tkhtml widget 2.0 that is included with [ActiveTcl] and
• tkimggdal
  17 Jan 2012 — entire image into memory. For more details check out http://tkimggdal.sourceforge.net/ . ---- [wgm] 24Jan07 -- Version 0.5 has been released and is now available at http://tkimggdal.sourceforge.net/ . The release
• tkinfo
  20 Jan 2013 — unc.edu/pub/Linux/apps/doctools/info/ <<br>> ftp://ptolemy.eecs.berkeley.edu/pub/misc/tkinfo-0.7-beta.tar.Z <<br>> ftp://ftp.redhat.com/pub/contrib/SRPMS/tkinfo-1.6
• Tkinspect
  13 Aug 2014 — lindex [split $tk_patchLevel "."] 0] >= 8 && [lindex [split $tk_patchLevel "."] 1] >= 4} { pack [panedwindow $self.lists -showhandle 1] -side top -fill both } else { pack [frame $self.lists -bd 0] -side top -fill
• TkIspell
  17 Jan 2012 — TkIspell''' Where: ftp://ftp.slac.stanford.edu/software/TkMail/tkispell-4.0.tar.gz ??? Description: Interface to [ispell] command. Version 4.0 is intended to work with Tk 8.x. Comes with
• tkJewel
  13 Aug 2013 — geocities.com/prabhanjan.rm/tkjewel-1.0.zip] * Also available as a [StarKit] here [http://tcl.tk/starkits/tkjewel.kit] tkjewel - dropping jewels game Version 1.0 Prabhanjan M. <prabhanjan@rocketmail.com
• Tklib Contents
  30 Jan 2016 — Currently [tklib] ('''0.6''') includes at least the following [package]s: %| Module | Packages and description |% &| [autoscroll] | [Scroll bars that appear only when needed] by [KBK] and [AF]. |& &| [canvas] | canvas::sqmap, canvas::zoom
• tkLOR
  15 Sep 2008 — 1.1 as of 2008-09-14| |Screenshot|http://tklor.googlecode.com/files/tkLOR-1.1.0-screenshot.png| tkLOR is a "thick" networked GUI client for reading popular Russian resource Linux
• TkNotePad
  07 Dec 2016 — wolf-dieter-busch.de/html/res/import/suche-jpg.png] Download: [http://wolf-dieter-busch.de/html/res/Heimatseite/download/tknotepad-2.0.zip]; Licence: [OLL] ---- See also [Supernotepad], [tknote]. <<categories>> Application
• TkOGL OpenGL widget
  03 Nov 2012 — using [tclogl] which is put together much better. I had some difficulty to build with VC6.0 because of the makefile but eventually got it to build. In the end I used
• tkoo
  31 Aug 2013 — package require Tcl 8.6 package require Tk 8.6 package require tkoo 0.2 package require tkoo::widgets 0.2 proc main {} { console show pack [MainFrame .mf] -expand yes -fill both
• tkoo::autoscroll
  07 May 2012 — to either true or false. ======tcl #tkoo::autoscroll-v0.1.1.tm package provide tkoo::autoscroll 0.1.1 package require tkoo #Most of the code came from the autoscroll package with
• tkoo::browser
  07 May 2012 — or '''files''' list files ** '''all''' shortcut to list everything, default * '''-bindselect''' ======tcl package provide tkoo::browser 0.1.2 package require tkoo tkoo::class ::tkoo::browser { superclass tkoo::ttk_treeview variable widCmd
• tkoo::dtree
  07 May 2012 — file"} { my insert $id 0 -text <load> } } return $id } #method to fully expand a node method Expand {node} { set nList $node while {[llength $nList]} { set n [lindex $nList 0] set nList [lrange
• tkoo::etext
  07 May 2012 — configure -state normal $widCmd delete 1.0 end $widCmd insert 1.0 $var my configure -state $state set busy 0 } else { set var [my get 1.0 end-1c] } #create a trace
• tkoo::scrolledframe
  07 May 2012 — y -sticky news -padx 0 -pady 0 grid $wid.x $wid.d -sticky news -padx 0 -pady 0 grid rowconfigure $wid 0 -weight 1 grid columnconfigure $wid 0 -weight 1 #the container
• tkosiak sandbox
  17 Jul 2012 — as we plan to provide with compatibility API. Currently Tcl http library supports only HTTP/1.0. Supporting HTTP/1.1 out of the box will allow to easily use from Tcl
• tkoutline
  14 Jun 2017 — Tkoutline is probably one of the best outliners that have ever been programmed. With the post 0.93 version that has Preferences, Tkoutline has become the first build-it-yourself outliner. Unlike
• TkOverload
  25 Apr 2016 — dc} {-1 0 1 0 0 -1 0 1} { ;# Scatter in 4 directions set r [expr {$row + $dr}] set c [expr {$col + $dc}] if {$r < 0 || $r >= $S(rows) || $c < 0 || $c
• Tkpaint
  08 Apr 2014 — com/pub/tcl/sorted/packages-8.0/graphics/tkpaint/1.51/TKPAINT-1.5.3.TAR.GZ ftp://ftp.procplace.com/pub/tcl/sorted/packages-8.0/graphics/tkpaint/1.52/tkpaint
• TkPanedWindow
  27 Jan 2016 — size. Two sash elements can touch each other that means the pane in between has size 0. And all the sashes can be moved to the left or right or to the
• tkpath - clock
  19 Sep 2013 — lindex $l 0] set min [lindex $l 1] set sec [lindex $l 2] regsub ^0 $std "" std regsub ^0 $min "" min regsub ^0 $sec "" sec set min [expr {$min + 1.0 * $sec
• tkpiechart
  17 Nov 2012 — one to build pie charts. Developed with Tk 8.x and the Netscape plug-in 2.0, on Linux and Windows (and should work in the plugin on other platforms as well
• tkpim
  26 Aug 2012 — an auto-hyper-linking sticky note program with a client/server architecture.| ||Currently at version 0.0.| |Updated:|08/2003| |Contact:|See web site| ---- See the other software at http://tcl.prehiti
• TkPNG
  07 Jun 2014 — for 0.7.) ---- [MAK] (26 Mar 2005) New version 0.7. You can now modify the overall image transparency at creation time with, e.g.: image create photo -format "png -alpha 0
• TKReplay
  14 Dec 2011 — cs.unm.edu (Charlie Crowley) ---- As of July 2002, Shawn (?) has big ambitions--progress beyond 8.0, more automation, widget browser, ...--for TkReplay. ---- [BOOK Tcl/Tk Tools] devotes a chapter to TkReplay
• TkRose
  02 Sep 2018 — cy] ;# Coordinates for the lobe for {set theta 0} {$theta < $gamma} {incr theta} { ;# Polar angle set a [expr {$theta * 180.0 / $gamma}] ;# Angle in 0-180 range set a1 [expr {$theta + $l
• TkSnake
  08 Feb 2015 — 240x300+0+0 bind . <Up> {set g(direction) {0 -1}} bind . <Down> {set g(direction) {0 1}} bind . <Left> {set g(direction) {-1 0}} bind . <Right> {set g(direction) {1 0}} bind
• tkSokoban
  05 Oct 2018 — https://web.archive.org/web/20110713100036/www.jeffgodfrey.com/posted_pics/tkSokoban_screenshot_small.jpg] ---- '''tkSokoban 0.71 ReadMe''' ---- '''License''' Copyright (c) 2001, Jeff Godfrey (jeff_godfrey _at_ pobox _dot_ com) This
• TkSQLite
  21 Nov 2017 — xrea.com/wiki/TkSQLite.html%|%TkSQLite]''' is a [GUI] database manager for [SQLite]. ** Attributes ** latest version: 0.5.11-3 [SQLite] version: 2.8.17 and 3.8.4.3 ** Features ** * A
• tksquare
  25 Sep 2011 — Identifier: tksquare Version: 0.1.0 Title: TkSquare Description: a widget example Rights: BSD-like URL: <http://web.tiscali.it/marcomaggi/software/tksquare/> Architecture: Win, UNIX Subject: widgets ---- [Marco Maggi] - This is
• tkstyle
  03 Jan 2015 — widget]s. Also includes '''tkutils''' utility package, and '''tkdbeditor''' for editing the database resource files. Currently at version 1.0 . Updated: 03/2005 Contact: See web site === <<categories>> Package | Dev. Tools | GUI
• Tktable
  13 Aug 2018 — borderwidth, .... Abug remains, and yet not fixed: even if all padding between rows are set to 0, there is still one pixel added between rows, so the table doesn't look exactly
• TKtEasy Project - Ideas for a Tcl/Tk visual IDE
  31 May 2011 — example, two elements can be representations of "Menu", one being of the "''Joe's Menu Editor 0.2''" format and the other being a "''Outrageous Menus 1.5''" menu). Works as it
• TkTest
  30 May 2016 — Width Height}. Example: `tktest -screenlayout "{0 0 1024 768} {1024 0 1280 768}"` ** Download ** Starkit: [http://download.lima-city.de/lifax/TkTest-0.1.kit%|%TkTest-0.1.kit%|%] Linux: [http://download
• TkTextPlus
  13 Aug 2014 — and editing. Features include line numbers, syntax highlighting, code folding, and line markers.| || Currently at version 0.1.| | Updated:| Feb-13-2007| | Contact:| See web site| ---- Previously called [stext] but there is
• tktree
  18 Jan 2013 — win,$item:open) 0} {set index $parentindex} } } else { if {$right} {incr index} {set index $parentindex} } if {$index < 0} {set index end} elseif {$index >= [llength $cfg($win,sortlist)]} {set index 0} setselection $win
• TkTreeCtrl
  19 Sep 2018 — element configure $itm 0 el1 -text "Hello World") .t item text $itm 0 "Hello World" # add another item: set item [.t item create -parent root] .t item text $item 0 "And good
• TkTreeCtrl - edit text items in place - example
  17 Dec 2008 — grid $treeFrame -row 0 -column 0 -sticky news grid rowconfigure $treeFrame 0 -weight 1 grid columnconfigure $treeFrame 0 -weight 1 grid rowconfigure $top 0 -weight 1 grid columnconfigure $top 0 -weight 1
• TkTwig
  24 Mar 2014 — 0} { $gui(lb) configure -width 0 -height 20 } else { $gui(lb) configure -width 0 -height 0 } refreshGUI } ### # # # proc tktwig::refreshQueryButton {{incr 0}} { variable gui incr gui(query) $incr if {$gui(query) < 0
• tkvideo
  04 Apr 2014 — PT]: as of 2011 there is a ''volume'' widget command to read and set the volume (0=silent, 100=maximum). ---- I used this awesome lib to make an app to [screencast with
• tkwait visibility
  13 Feb 2016 — tkwait visibility .} ;# if error etc ommited for clarity } wm geometry . $SavedGeometry ====== The "winfo ismapped" is only 0 if the tkwait will stall. I tried thousands of other things including update, wm deiconfy
• tKwhois
  24 Sep 2018 — 20010424171423/http://www.callnetuk.com:80/home/mudh3dz/ — project homepage * http://ftp.arnes.si/ftp/packages/tcl/sorted/packages-8.0/x11/tKwhois/0.98/ — mirror <<categories>> Application | System Administration
• tkWorld Desktop
  30 Nov 2015 — install/deinstall tkWorld). Software is released under the GNU General Public License. | || Currently at v1.4.0.| | Updated | 1998-10 | | Author | [Wes Bailey] | ** Discussion ** This software was around at one time - people
• tkWWW
  25 Oct 2013 — Discussion List) ** Download ** [ftp://ftp.tcl.tk/pub/tcl/all/t/tkWWW/0.12/tkWWW-0.12.tar.gz%|%tkWWW-0.12.tar.gz]: [http://ftp.x.org/contrib/applications/xli.1
• TkX
  30 Jul 2010 — grid -row 0 -column 0 tkx::new text $parent -background white -foreground black -- \ grid -row 0 -column 0 tkx::new text $parent {-background white -foreground black} \ grid {-row 0 -column 0} tkx
• tkXwin
  23 Feb 2015 — at dbc.mtview.ca.us> (But seems unmaintained) Source: http://beepcore-tcl.sourceforge.net/tkXwin-1.0.tgz === This package provides user idle time reporting in Tk under X Window. Confirmed to
• TL Wonder
  24 Feb 2017 — TL1 agent's database, etc. Software is ''pre-alpha'' format. Written in itcl. Currently at version 0.0 . Updated: 02/2003 Contact: See web site ---- 2/24/2017 dead link ---- [Category Application]
• tlinker
  22 Aug 2011 — argv 0] set vfs [lindex $argv 1] set versions [package versions $package] if { "$versions" == {}} { puts stderr "tlinker: $package: no such package" exit 1 } set res [package ifneeded $package [lindex $versions 0]] set
• tls forward secrecy
  20 Oct 2015 — only DHE set psf [lsearch -all -inline $psf *DHE*] tls::init -request 0 -require 0 -ssl2 0 -ssl3 0 \ -tls1 0 \ -tls1.1 1 \ -tls1.2 1 \ -ciphers $psf \ -certfile certs/server
• TLS server using TWAPI
  20 Apr 2016 — file dir [info script]]] set fbase [file join $base cert] set ::auto_path [linsert $::auto_path 0 [file join $base twapi-bin]] if {![catch {puts "twapi [package require twapi_crypto]"}] \ && [file exists
• tls ssllabs rating
  03 Aug 2017 — secrecy set ciphers [lsearch -all $tmp *DHE*] tls::init -server 1 -request 0 -require 0 -tls1 0 -tls 1.1 0 -tls1.2 1 \ -cafile /etc/letsencrypt/live/<taipudex.com>/fullchain.pem
• tmag
  14 Jul 2012 — type. It is much faster than the pure-[Tcl] implementation [fumagic] (''fileutil::magic'') in [tcllib].|& &|Version:|0.5.1|& &|Updated:|2012-07-14|& &|Contact:|[MAKR]|& ---- [MAKR] 2008-12-08: I wrote this
• TMath
  13 Oct 2012 — evaluate MATLAB 5.0 and Mathematica 3.0 commands. Works with MATLAB 4 or 5, Mathematical 2.2 or 3.0 and Tcl 7.[456].| || Currently at version 0.2 .| | Updated:| 03
• tmk
  08 Sep 2012 — make utility with Tcl. See web site for info regarding mailing lists, etc.| || Currently at version 0.9beta .| | Updated:| 08/2000| | Contact:| http://www.tmk-site.org/mailing-list.html | As of
• tmlrss
  02 Mar 2007 — Description: tmlrss will process RSS/RDF (0.90, 0.91, 0.92, 0.93, 0.94, 1.0, 2.0, Atom 0.3, Atom 1.0, podcast) newsfeeds into simple 4.01
• TMML
  11 Sep 2012 — sourceforge.net/doc . TMML is based on [Richard Hipp]'s original work converting the Tcl 8.0 documentation set to XML for the TclBlast! CD, which can be found at http://www
• tmpi
  06 Oct 2017 — computing/tutorials/parallel_comp/#ExamplesPI] ====== package require tmpi 0.1 ====== '''Single process:''' ====== proc approx_pi_sp {n} { set circle_count 0 for {set i 0} {$i < $n} {incr i} { set x [expr
• tmpl_parser
  27 Jun 2017 — container"> <div class="row"> <% if {[page-var-get-default blogPost 0] && \ (![page-var-get-default hideSidebar 0] || \ [page-var-get-default showTagCloud 0])} { %> <div class="col-md-8"> <%= $content %> <%! format-prev-next
• tnc
  04 Dec 2013 — file:$res $parser reset } } $parser free ====== ---- The ''externalEntityRefHandler'' is freely configurable by the user. From tDOM 0.7.5, a convenience proc will be included in the release (planned for mid November
• Tnm/Scotty/TkInEd
  09 Feb 2015 — be cool for Tnm 3.1, a wish list [Tnm3.1] ---- Note that Tnm 3.0.0 appears to have a bug that requires one to have $HOME in one's exported
• Tnm3.1
  01 Feb 2010 — don ---- [MIB Smithy SDK] supports SNMPv3 and multiple MIB profiles (called SMI databases). As of 4.0, it also supports IPv6. ---- On the SNMP side, the biggest improvements would be to replace
• To build and test Tcl
  22 Jun 2018 — with "/") in the --prefix and --exec-prefix options. ---- ** Configure Errors ** With newer versions of [bash] (>3.0) and older versions of Tcl, or with Tcl extensions based on [TEA], `./[configure]` might fail
• To little endian
  28 Jan 2012 — tclsh from tclsh \ exec tclsh $0 ${1+"$@"} proc to_little_endian {n {size 2}} { set lsb 0; for {set x $n; set s [expr {$size - 1}]} {$s >= 0} {incr s -1} { set
• to.binary
  07 Nov 2015 — a decimal number to a binary representation: ====== proc to.binary n { incr n 0 set r {} while {$n > 0} { set r [expr {$n & 1}]$r set n [expr {$n >> 1}] } return $r
• Toadhttpd
  19 Sep 2018 — 127.0.0.1|127.0.0.1|http://localhost:8015/|Mozilla/5.0 (Macintosh; Intel Mac OS X 10_13_6) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/12.0
• Toasters and things
  07 Jan 2012 — high. Itcl: ====== class Toaster { variable crumbs 0 method toast {nslices} { if {$crumbs > 50} { error "== FIRE! FIRE! ==" } set crumbs [expr $crumbs+4*$nslices] } method clean {} { set crumbs 0 } } ====== In Things, ''ways'' ("methods") are
• Toasting procs
  04 Feb 2005 — 0 || $arg > 2} then { error "arg $arg out of range." } lindex {banzai ayaken bla} $arg } puts "Calling bla3 1: [bla3 1]" set func [toaster bla3 error-tag callb] puts "Calling ${func}(0
• Today - add a subfolder like yy_mmdd
  27 Apr 2012 — file mkdir "$sub" } package require Tk # console show if {$argc>0} { # replace back slashes with slashes set dir [file join [lindex $argv 0] ] } else { set dir "[pwd]" } puts "dir $dir" set now
• Toggle Button with indicator
  04 Oct 2017 — variable if { [info exists vars($k)] && [info exists $vars($k)] } { trace add variable $vars($k) write [list [self] settrace] } my _setimage return -code ok } } package provide buttontoggle 1.0 ====== <<categories>>Widget | Megawidget
• Toggling a Boolean Variable
  22 Jun 2014 — jcw] - Other ways to toggle 0/1's: ====== set a [regexp 0 $a] set a [string match 0 $a] set a [string map {0 1 1 0} $a] ====== ---- [SS] 16feb2004 - Another alternative
• Tom Krehbiel
  30 Jun 2018 — 2 [image create photo -format window] ${image_2} copy ${image_1} -from 50 0 100 40 -to 0 0 60 40 set c [canvas .c -background black -height 100 -width 100 ] pack
• TooCL
  12 Nov 2015 — 1.0.2 (it has been compiled with Tooltalk 1.1.1 but doesn't cover the new functions yet). TooCL is based on Tcl 7.0 and Tk 4.0. You
• Tool Protocol Language
  06 Apr 2016 — x8D $buffer] ] >= 0} { set chunk [string range $buffer 0 [expr {$pos-1}]] set buffer [string range $buffer [expr {$pos+2}] end] set msg [lindex [encoding convertfrom utf-8 $chunk] 0] # Process $msg
• Tool to browse window bindings
  28 Sep 2018 — yview] pack $listbox $scrollbar -side left -fill y $self configurelist $args } method fill args { $listbox delete 0 end $listbox insert end {*}$args } method onselect cmd { bind $listbox <<ListboxSelect>> $cmd } method get {} { if
• ToolBar -An Alternative to the BWidget ButtonBox
  01 Sep 2013 — 1 wm title $p {} wm transient $p . wm resizable $p 0 0 # create containers -palette pack [frame $p.fr -relief groove -borderwidth 0] -side left -anchor nw # add ruler pack [frame $fr
• toolbutton
  21 Oct 2012 — rectangle 0 0 0 0 -width 1 -tags backgroundColor $widget.c create line 0 2 2 0 0 2 -width 1 -tags cornerColor1 $widget.c create line 0 1 1 0 0
• tools for indexing and searching a jpeg photo collection
  22 Apr 2017 — indx: $indx"; # fürs erste DB im Scriptpfad set verbose 0 rename puts ::_orgPuts proc puts {txt} { # primitive Redefinition reicht hier if {$::verbose != 0} { ::_orgPuts $txt } } mk::file open db $indx -nocommit; # damit
• tooltip
  30 Jan 2016 — latest version: 0.0.2 licence: [BSD] firt published: 2003-12-15 ** Download ** https://web.archive.org/web/20101102224636/http://binarism.com/tk/tooltip-0.0.2.tgz%|%tooltip-0.0.2
• Toot as toot can
  06 Jan 2014 — is no easy reading): know { set first [lindex $args 0] if {[llength $first]==3 && [lindex $first 1] eq "|"} { set class [lindex $first 0] return [eval ::toot::${class}::[lindex $args 1] \ $class [list
• topcua
  22 Sep 2018 — serious bugs. Although it might seem to be some kind of Tcl dream in Industry 4.0 and to have the theoretical capability of controlling drilling rigs, nuclear power plants, low earth
• Toplevel Watermark
  01 May 2013 — wmrk set tmp \[split \[split \[wm geo $w] x] +] set wW \[lindex \$tmp 0 0] set wH \[lindex \$tmp 0 1] if {\$wH>2*$imH} {wm geo $wmrk +\[expr \[lindex \$tmp 1
• Toplevel widgets in a tree hierarchy: a script to play
  07 Oct 2013 — 08:00:36 jcw Exp $ source [file join [file dirname [info script]] wtree.tcl] set counter 0 proc main { argc argv } { global forever tk::wm geometry . +10+10 tk::wm title . "UWP
• Toplevel widgets in a tree hierarchy: the package
  07 Oct 2013 — tofocus) if { [string equal $tree($window:focusmode) ontop] && ([string length $ptf] != 0) && (! [string equal $ptf $window]) } { tk::focus $parent return 0 } } # If this window has no focus-thief registered: focus it and
• Toplevel widgets in a tree hierarchy: the test suite
  07 Oct 2013 — t lappend res [wtree::exists .t] wtree::forget .t lappend res [wtree::exists .t] } -result {0 1 0} -cleanup { tk::destroy .t unset -nocomplain res } } ::tcltest::test wtree-1.2 "register/destroy
• Topological sort
  07 Jun 2014 — while {[llength $max]} { set pkg [lindex $max 0] set max [lrange $max 1 end] set answer [linsert $answer 0 [ linsert [lindex $map($pkg) 1] 0 $pkg]] foreach vertex [array names dag] { set
• TotalView
  23 Sep 2015 — Without question, the most popular HPC debugger to date. ----- [http://docs.hpc.uib.no/hpcdoc/images/0/0f/Tv-full.png] I used Totalview while at BBN - best debugger I've used
• tothttpd
  08 Oct 2012 — expire). [CMcC] This is false. Wub supports all of these but byte ranges. tclhttpd supports 1.0 persistent connections [AOLserver] on the other hand is overkill for embedding into application. So there
• ToW Tcl on WebFreeWay
  23 Jan 2016 — class="pageAuthor">{$Author:name} (<a href="mailtto:{$Author:email}">{$Author:email}</a>)</p> <!-- comments <table border="0" width="300"> <tr> <th bgcolor="green">Comments (<a href="{$SCRIPT_NAME}?action=add">add a
• TOXFile
  01 Sep 2013 — first pure Tcl/Tk, cross-platform, drag/drop-enabled, explorer-style file manager.| |License:| [GPL]| |Version:| 0.2| |Updated:| 11/10/2006| |Contact:| stephen.huntley@alum.mit.edu| Screenshot: [http://sourceforge.net
• Toy car workshop
  17 Jan 2011 — delete all $canvas create line -200 0 200 0 -fill lightgrey $canvas create line 0 -100 0 100 -fill lightgrey foreach line [split [$text get 1.0 end] \n] { if {[string trim
• Toy EEG
  26 Dec 2005 — dx dy} {list 1 0 0 1 $dx $dy} proc reflect-y {} {list 1 0 0 -1 0 0} ;# ? proc reflect-x {} {list -1 0 0 1 0 0} ;# ? proc shear {sx
• Toy simulation of the dynamics of a community
  17 Nov 2014 — count 0 for {set p 0} {$p < [llength $network]} {incr p} { set choice [lindex $network $p 0] set intention [lindex $network $p 1] if { $intention } { if { $choice == "A" } { lset network $p 0
• Tpett
  10 Jan 2012 — ns}::evaltext_tt] -sticky sew grid columnconfigure . 0 -weight 1 foreach r [list 0 1 2 3 4 5] wght [list 0 1 0 1 0 1] { grid rowconfigure . $r -weight $wght
• tpp
  06 Feb 2012 — none What: '''tpp''' Where: ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/devel/tpp-0.11.tar.gz Description: [C]PP-like [Preprocessor] to run over Tcl scripts to remove
• tprfkill
  29 Jul 2010 — provides persistent states of rfkill devices (such as wlan, wwan, or bluetooth) over reboot. |& &|Version:| 1.0 |& &|Updated:|2010-07-29|& &|Contact:|[MAKR]|& ---- [MAKR] 2010-07-15: I am currently writing this
• tQL
  08 Sep 2013 — demon.co.uk/tql/tql-0.1.tar.gz%|%tql-0.1.tar.gz] ([ftp://ftp.tcl.tk/pub/tcl/all/t/tql/0.1/tql-0.1.tar.gz%|%alternate]): <<categories
• trace
  09 Jul 2018 — u ax=1 ex=0 # <unset a> # array a=a e= op=u ax=0 ex=0 # element a=a e=1 op=u ax=0 ex=0 ====== ** Variable Trace Arguments vs
• traceproc helper
  20 Mar 2014 — item2 $list2 { if {item1 ne $item2} { set equal 0 break } } # Shortcut for identical lists is faster if {$equal} { set inB $list1 } else { set i 0 foreach element $list1 { if {[set p [lsearch
• Tracing a script's execution
  25 Jan 2014 — filename} { set infile [open $filename "r"] set outfile [open TMP_$filename "w"] while { [gets $infile line] >=0 } { puts $outfile "puts \$::Trace::traceOut \"[::Trace::prepareLine $line]\"" puts $outfile $line } close $infile close $outfile
• Tracing with enterstep
  30 Jul 2016 — TRACE ::test1 line 7 for {set i 0} {$i < 3} {incr i} {... TRACE ::test1 line 7 set i 0 TRACE ::test1 line 8 puts " $i" 0 TRACE ::test1 line 7 incr i
• Traffic lights
  10 Jul 2016 — 10 60 30 80 -tags {green light} checkbutton .c.t -text Timer -variable timer set timer 0 .c create window 50 50 -window .c.t -anchor w button .c.b -text Next
• Traits in XOTcl
  18 Dec 2011 — it. #> AbTraitable instproc ToRemTrait { ArTraitName } { set ThPos [lsearch -exact [my set MyTraitS] $ArTraitName] if {[expr {$ThPos >= 0}]} { #Remember that [self] here is a class. foreach ThMethodName [$ArTraitName set MyMethodS] { [self] instforward $ThMethodName
• Trampoline
  03 Jan 2011 — res if {$in>1} { set res [expr {$res * $in}] incr in -1 return 1 } else {return 0} } ====== The trampoline bounces the step function as long as it promises to deliver more: ====== proc
• Trampoline!
  11 Jan 2016 — bbox all] {break} # move all items so that the top left corner has the coords 0,0 $w move all [expr {-$topLeftX}] [expr {-$topLeftY}] # use the bbox-coords for width and heigth
• transform
  07 Aug 2018 — b} {set a} proc ::tcl::binary::transform_base64 {cmd handle args} { upvar #0 [namespace current]::_transform_r_$handle rstate upvar #0 [namespace current]::_transform_w_$handle wstate switch -exact -- $cmd { initialize { set
• Transport independent send
  25 Jan 2014 — proc send::send {args} { array set opts [list displayof {} async 0] while {[string match -* [lindex $args 0]]} { switch -exact -- [lindex $args 0] { -displayof { set opts(displayof) [Pop args 1] } -async { set opts
• Transputer
  16 Apr 2011 — x" $relative] append assamble_buffer "0[set tmp]" } proc pfix {literal} { variable assamble_buffer set tmp {} if {$literal == 0} { append assamble_buffer "20" } else { while {$literal > 0} { set tmp [format "%x" [expr
• Traveling Salesman Problem
  13 Nov 2015 — the blocks: set j 0; for {set i [expr 0.0+2.0*3.14159/24.0]} {$i < [expr 2*3.14159]} {set i [expr $i + 2.0*3.14159/6]} {$mc
• Tree nodes in motion
  08 Sep 2011 — move $target $label 0 $tree opentree $target } } } } ====== #----- testing demo: ====== pack [Tree .t] .t insert 0 root node1 -text hello .t insert 0 root node2 -text world .t insert 0 root node3 -text
• Tree Widget
  08 Sep 2012 — pub/tcl/sorted/packages-7.6/devel/graphics/tree-4.1.tar.gz | | Description:| Tk 8.0.x based widget for displaying dynamic trees, written in C++. Includes an itcl interface and
• TreePad -Structured multipage text editor using TreeCtrl
  26 Aug 2012 — popup { set VERSION 0.1 } #define menus, works for cascades too.. set ::popup::menu(main) { {cascade -label "New" -hidemargin 0 -compound left -image im_new -command {.txt1 delete 1.0 end}} {cascade
• TreeView Tooltips
  30 Jan 2016 — 5)}]} {$i > 0} {incr i -1} { set child [.tree insert $id 0 -text "child $i"] for {set j [expr {int(rand()*3)}]} {$j > 0} {incr j -1} { .tree insert $child 0 -text
• Treso
  18 Jul 2018 — 0.2.<<br>> [Stu] 2012-09-05 Mostly complete.<<br>> [Stu] 2012-08-27 Initial development version. ---- Documentation ===none NAME treso - Resolver SYNOPSIS package require Tcl 8.6 package require treso 0
• TREV
  06 Jul 2009 — the Tcl Regular Expression Visualiser. Demonstrate how a regular expression matches text Currently at version 0.0 . Updated: 08/2005 Contact: See web site ---- Jonathan explains [http://groups.google.com/group/comp
• TrfCrypt
  28 Jul 2012 — akupries/soft/trfcrypt/trfcrypt_bdist.html http://www.purl.org/NET/akupries/soft/trfcrypt/download/trfcrypt2.0.tar.gz Description: TrfCrypt is an add-on package to trf. Provides crypto-algorithms. There
• Triangle Strips for OpenGL
  21 Sep 2012 — 1 } else { set oneside 0 } if {[string equal $cnc "connect"]} { set cnctall 1 } else { set cnctall 0 } if {[string equal $sgi "sgi"]} { set SGIalgo 1 } else { set SGIalgo 0; } # create edge -> triangles
• Triangulation
  20 Jun 2012 — can go from 0 to 1, then if the lines intersect, S and T must be between 0 and D. That gives the test [between 0 $S $D] && [between 0 $T $D
• Tricky catch
  26 Jan 2012 — set clist {} catch { while { 1 } { set clist [linsert $clist 0 $i] set n 0 set d 1 foreach c $clist { if { ( 1.0 * $c * $d + $n ) > $maxint } { throw "break two loops at
• tricolore
  22 Jun 2014 — create photo] set fromx 0 set dx [expr $w/3] set tox $dx set toy [expr $w*2/3] foreach color $colors { $im put $color -to $fromx 0 $tox $toy incr fromx
• trie
  03 Mar 2013 — trie.tcl -- # # Simple implementation of tries in Tcl. # package require Tcl 8.5 package provide trie 0.3 namespace eval ::trie { namespace export {[a-z]*} namespace ensemble create # create an empty trie
• Trimming indentation
  05 Jun 2017 — example*** ====== [...] if {[llength $args] == 0} { # Print help puts -nonewline [ trim-indentation { Command pipelines for interactive programming. usage: |> cmd1 |> cmd2 _ |> cmd3 #0 ?-debug? or |> { cmd1 |> cmd2 $_ |> cmd3 $pipe(0) } ?-debug? See http://wiki
• trofs
  26 Apr 2011 — archives containing read-only filesystems. ---- '''File format (version 1, as found in trofs-0.4.3)''' (reconstructed from trofs-0.4.3/library/procs.tcl by [PS]) The trofs archive file format
• trotsky_say
  18 Jan 2013 — set ::trotsky " \"\$speech\" / xxxxxx @(-0-0)@ xxx (o) x " proc say { speech } { regsub -all {\n} $speech "\n " speech return [ subst $::trotsky ] } ====== <<categories>> Humor
• trsync
  12 Sep 2012 — the good old days. ====== % package require trsync couldn't read file "/tmp/.lwv/ActiveTcl-8.6.0/bin/base-tcl8.6-thread-solaris-sparc-2.8/lib/vfs/template/tdelta.tcl": no
• true
  13 Jan 2016 — integers, 2. False values are the case-insensitive words '''`no`''', '''`off`''', '''`false`''', their ''unique'' abbrevations, and `0`. The function '''[string is] true''' returns true if its argument obeys the condition 1. above
• True Random Numbers
  03 Apr 2014 — RandomOrg::proxy(haveBase64) 0 } proc ::RandomOrg::configProxy {{host ""} {port 8080} {user ""} {pw ""}} { variable proxy foreach v {host port user pw} { set proxy($v) [set $v] } if {[string length $user] > 0 && ! $proxy(haveBase64
• try
  16 Aug 2018 — of the following literal words: '''ok''', '''error''', '''return''', '''break''', or '''continue''', which correspond to the integers 0 through 4 respectively. '''trap''' ''errorPrefixList variableList script'': ''errorPrefixList'' is a list of values to be
• try ... finally ...
  27 May 2014 — lindex $argv 0] r] try { set i 0 while { [gets $f line] >= 0 } { incr i puts $line if { [string equal $line BADSTUFF] } { error "bad stuff encountered in [lindex $argv 0], line $i
• Trying FORTH in Tcl
  08 Aug 2018 — op [token] if {[info exists ::$op]} { lappend rs [set ::$op] -1 } elseif {[llength [info procs $op]] > 0} { $op } else { # allows a character literal on the stack (as a single item) # so doesn
• tscanvas
  25 Jul 2011 — tcl/tscanvas1.0/readme.txt] * tscanvas.txt [http://web.tiscali.it/irrational/tcl/tscanvas1.0/tcanvas.txt] ---- [http://web.tiscali.it/irrational/tcl/tscanvas1.0/demo.gif] ---- '''Download:''' * tscanvas1.0.zip [http
• tserialport - Get a list of Serial Ports (native, usb and bluetooth)
  09 Aug 2018 — a dict. ======tcl package require tserialport set mydict [tserialport::getports open] ====== Result example Mac OS X: ====== 0 {device /dev/cu.Bluetooth-Incoming-Port description Bluetooth-Incoming-Port open true transport native baudrate
• tsreplace
  19 May 2007 — chunks [Replace [lindex $chunks 2]] append outline [lindex $chunks 0] lset chunks 0 $outline } return $outline } proc ShowMatchingPiece {chunks in} { .snap delete 0.0 end .snap delete end global ROWNUM COLNUM set
• ttd
  29 Oct 2016 — value] != 0} { set option [lindex $item 0] lappend image $option $value } } lappend result $image # if we don't yet have a definition for this # image, grab it if {[string length $imagename] > 0
• Ttk
  12 Jun 2018 — height 16 image_osxWhite put \#ffffff -to 0 0 16 16 ttk::style element create OSXWhiteBackground image image_osxBlank16 \ -border {6 6 6 6} -padding {0} -sticky news # (although I don't
• ttk Frame with Custom Borders
  17 Dec 2016 — bd 0 entry .frame1.entry -text jeje pack .frame1 .frame1.entry pack propagate .frame1 0 frame .frame2 -highlightbackground red -highlightcolor red -highlightthickness 1 -width 100 -height 100 -relief solid -bd 0 entry
• ttk::button
  25 Feb 2015 — window accepts the focus during keyboard traversal. Either 0, 1, a command prefix (to which the widget path is appended, and which should return 0 or 1), or the empty string. See
• ttk::checkbutton as toggle switch display
  30 Jul 2018 — cb$c state !disabled } } proc setDisplay { c } { variable vars set vars(onoff.$c) 0 set vars(disabled.$c) 0 ttk::label .l$c \ -text $c set tc [string totitle $c] ttk::checkbutton
• ttk::entry
  15 Nov 2015 — from an image: image create photo border -width 20 -height 20 border put red -to 0 0 19 19 border put white -to 2 2 17 17 ====== ttk::style element create Redborder
• ttk::frame
  07 Sep 2016 — a ttk GUI, place a ttk::frame at the top level. **Frame does not shrink to 0 height if last children is unpacked/ungridded** See the page [frame] for a descriptions and
• ttk::label
  26 Dec 2015 — upon the width of the widget.} -justify left -anchor w grid .l -sticky ew grid columnconfigure . 0 -weight 1 bind .l <Configure> {%W configure -wraplength [winfo width %W]} ====== ** Questions ** [Lars H], 2015
• ttk::labelframe
  07 Sep 2016 — background \ -foreground $foreground ttk::style configure custom.TLabelframe \ -background $background \ -foreground $foreground \ -labeloutside true \ -labelmargins {0 0 0 4} ttk::style layout custom.TLabelframe { Separator.separator -sticky new } ttk::style configure custom
• ttk::panedwindow
  10 Apr 2018 — 0: ====== proc dosash { w args } { set sp [.p sashpos 0] if { $sp < 20 } { .p sashpos 0 30 } } proc conf { w args } { } proc out { f } { .p forget $f if { [llength [.p panes]] == 0
• ttk::scale
  13 Nov 2016 — args] { 0 { set res [$w configure] lappend res [list -increment [dict get $options $w -increment]] lappend res [list -bigincrement [dict get $options $w -bigincrement]] return $res } 1 { set opt [lindex $args 0
• ttk::style
  12 Apr 2012 — Introduction** A [Ttk] command that manipulates styles and themes. The information below refers to tile 0.8 and upwards. Find the manual page for this command here:<<br>> http://tktable.sourceforge.net
• ttk::style short simple example
  29 Apr 2013 — 4)] if {${alea} > 0} { set aleaStyle "style${alea}.TButton" ${widget} configure -style ${aleaStyle} } ${widget} configure -command [list whatClassStyle ${widget}] incr k } set k 0 while {$k < $MAX} { set j 0 set cmd
• ttk::style toolbar
  21 Jul 2015 — ToolbarGradientButton image \ {ToolbarGradientBG readonly ToolbarGradientBG selected RadioGradient pressed RadioGradient {hover !disabled !readonly} RadioGradientFade disabled ToolbarGradientBG} \ -border 0 -sticky nsew ttk::style layout ToolbarGradientButton.TButton { ToolbarGradientButton -sticky nsew -children { EasyRadioButtonInvis.border -sticky nsew
• ttk::treeview
  19 Sep 2018 — to add the heading: .tree heading #0 -text Features # I also like the heading a little closer to the frame .tree configure -padding {0 0 0 0} ====== ---- [SLB] For an example of
• ttk:notebook help
  18 Feb 2013 — state disabled place .close -in .foo -relx 1 -rely 0 -x -3 -y 3 -anchor ne place .rest -in .foo -relx 1 -rely 0 -x [expr {-8 - [winfo reqwidth .rest]}] -y 3
• TTP
  13 Sep 2007 — proc -h args {# give usage message usage; exit 0} Then you can get to the option comment with 'lindex [[split [[info body -h]] \n]] 0'; of course you need to strip off
• Ttrace
  01 Jun 2018 — interpreter. ======none % package require Ttrace 2.8.2 % package require list 0.1 % ttrace::eval {package require list; package require dict} 0.1 % set t [thread::create {package require Ttrace; thread::wait
• TTXN
  18 Oct 2017 — 1.0.1 available. Download: * https://sourceforge.net/projects/irrational-numbers/files/TTXN-1.0.1.zip/download%|%TTXN-1.0.1 (now with its own test-suite) ---- !!!!!! **TTXN 1.0** **TclTest
• tunnel
  02 Oct 2012 — s [socket $::dsthost $::dstport] puts "connection $socket $args -> $s" fconfigure $s -blocking 0 -translation binary -encoding binary fconfigure $socket -blocking 0 -translation binary -encoding binary fileevent $s readable [list transfer $s $socket
• Tunnel IRC through HTTP proxies
  11 May 2014 — sock1]} { puts "closing $sock1 $sock2" close $sock1 close $sock2 } return } proc main {} { set server [socket -server server -myaddr 127.0.0.1 $::localport] vwait ::forever } main ====== <<categories>> Internet | IRC | HTTP | Networking | tunnel
• tuple
  20 Jun 2012 — tuples (triplets), 4-tuples (quadruplets), 5-tuples (pentuplets), etc., and of course also 1-tuples and 0-tuples, although mathematicians rarely bother about the latter unless they are being ''very'' formal. See
• Tuple generator
  30 Aug 2011 — incr n -1 foreach i [lrange $set 0 end-$n] { set set [lrange $set 1 end] foreach t [tuples $n $set] { lappend res [linsert $t 0 $i] } } set res } ====== ---- % tuples 3 {a
• Tupleserver
  20 Oct 2011 — error "request should be a valid Tcl list" return } set cmd [lindex $data 0] if {[lsearch $commands $cmd] < 0} { $self Result $socket error "unknown server command \"$cmd\"" return } set internal_cmd [string
• Tupper's self-referential formula
  24 Apr 2015 — eval tupper { proc image {im w h k expr} { for {set i 0} {$i < $w} {incr i} { for {set j 0} {$j < $h} {incr j} { set x $i set y [expr {$j
• Turtle graphics the LOGO way
  20 Jun 2012 — between 0 and 2...) ---- The story continues at [Turtleshell]... ====== namespace eval Turtle { variable data proc Init canvas { variable data array set data {x 0.0 y 0.0 h 0.0 pen
• Turtle Shell for Androwish
  22 Mar 2014 — data(y) $y1 } to home {} {array set data {x 0.0 y 0.0 h 0.0}} to ht {} {set data(show) 0} to lt d {rt -$d} to pd {} {set data
• Turtleshell
  22 Mar 2014 — 0 proc history:add? {s} { if [string compare $s [lindex $::history end]] { lappend ::history $s set ::nhistory [llength $::history] } } proc history:move {where} { incr ::nhistory $where if {$::nhistory<0} {set ::nhistory 0
• Tutorial: Converting synchronous HTTP requests to event driven code
  05 Jan 2018 — http.return.count) write ::processCheck # do something } } proc processData { } { variable vars set vars(http.return.count) 0 set vars(http.return.expect) 2 trace add variable vars(http.return.count) write ::processCheck
• TWAPI and USB
  05 Feb 2014 — USB Root Hub (xHCI) USB Root Hub Generic USB Hub USB Composite Device Lenovo EasyCamera Intel(R) Centrino(R) Wireless Bluetooth(R) 4.0 + High Speed Adapter .... ====== <<categories>> COM | Windows | System Administration
• Tweezer
  25 Jan 2011 — and linkage environments) Thanks! [PT] - 27-Dec-2004: I've put a Win32 binary of tweezer0.0 here [http://www.patthoyts.tk/programming/tweezer00.zip] It is built with MSVC 6 and
• Twelfth Annual Tcl/Tk Conference
  30 Nov 2013 — easy: * Board MAX Red Line to Beaverton TC * Get off at Convention Center MAX Station * Walk 0.1 mile east to 1021 NE Grand Ave The train ride takes 26 minutes, and
• two threads run synchronously
  11 Feb 2011 — wait for the other thread's ID # vwait other # # Now compute, send and wait # set time 0 while { $time < 10 } { incr time if { $type == 1 } { set value $time } else { set value [expr
• TWS
  21 Nov 2017 — systems.| || Currently at version 0.1 dated 2001-02-18| | Updated:| 05/2004| | Contact:| See web site| ---- [GS] (2004-06-01) A precompiled and self-extracted binary (tws-0.1.exe) for
• Tycho
  03 Dec 2005 — tycho0.2.1/util/tydoc/doc/ ftp://ptolemy.eecs.berkeley.edu/pub/tycho/tycho0.3/tydoc3.0.src.tar.gz Description: A part of Tycho, tydoc takes itcl source code and generates
• Type checking
  03 Jul 2014 — arg w {expr 0+$$arg ;#}" } } % number p % set p 5 5 % set p 5.4 5.4 % set p hello can't set "p": syntax error in expression "0+hello": variable references
• Type Implementations
  27 Apr 2012 — proc dir { args } { if {! [ string equal [lindex $args 0] create ] } { set args [lindex $args 0] } set ref [lindex $args 1 ] set action [lindex $args 0] upvar $ref myref switch $action { create { array
• typedlist
  06 Nov 2014 — namespace {}] set List [lindex $args 0] } else { set namespace [] set Liste $args } set i [string last : [namespace tail [self]]] set Type [string range [namespace tail [self]] 0 $i-1] oo::objdefine [self
• UDDI
  11 Sep 2012 — I have a 0.01 implementation of the client retrieval API that's tied up in contractual confusion. I can make copies available to individuals.]] ---- [054] - SOAP UDDI 0.3 by Tarun
• UDP extension
  30 Nov 2012 — errorCode = 0; UdpState *state = (UdpState *) instanceData; /* * If there are multicast groups added they should be dropped. */ if (state->groupsObj) { int n = 0; Tcl_ListObjGetElements(interp, state->groupsObj, &objc, &objv); for (n = 0
• UFO (yet another pure tcl OOS)
  01 Dec 2013 — 95user 0.01system 0:03.08elapsed 96%CPU eos0: 2.67user 0.00system 0:02.78elapsed 96%CPU eos: 1.13user 0.00system 0:01.23elapsed 91%CPU ufo: 0.63user 0
• Ulam spiral
  29 Jan 2016 — if {$n%$d == 0} {return 0} incr d } return 1 } # Return the number of divisors of an integer proc NbDivisor { n } { set max [expr {int(sqrt($n))}] set nd 0 for {set
• UltraMake
  27 Sep 2012 — releases. Uses Tcl as a scripting language. Integrates with CVS. Currently at version 2.3 build 0.553 . Updated: 06/2002 Contact: See web site ---- See also [make] <<categories>> Application | Dev. Tools
• uncore
  21 Feb 2018 — githubusercontent.com/lawrencewoodman/xdgbasedir_tcl/master/xdgbasedir-0.3.tm%|%tcl-0.3.tm%|% https://raw.githubusercontent.com/tcl-uncore/xdgbasedir_tcl/master/xdgbasedir-0.3.tm%|%2%|%|#xdg #linux|& &|[Fossil]|Fossil
• Undo and Redo undoable widgets
  20 Feb 2016 — lindex $un 0] ::undo:: [lindex $un 1]"} } proc undolast {} { ;# undoes last undoable operation. global undoings if {[llength $undoings]>0} { set undothis [lindex [lindex $undoings end] 0] set widget [lindex $undothis 0] eval
• Undo, a few pointers at how to code the Undo function for a text editor
  09 Sep 2013 — itself has no "save" function, and coding your own normally just involves doing $textWidget get 1.0 end-1char and dumping the result into a file, so I'm not sure how
• Unicoded integer sets
  25 Nov 2002 — yet contained if {$number < 0 || $number > 65535} { error "can't convert $number to Unicode" } upvar 1 $uisName uis set c [format %c $number] if {[string first $c $uis] < 0} {append uis $c
• unification
  30 Nov 2013 — check {var other} {} # A crude implementation: # proc occurs-check {var other} { if {[string first $var $other] >= 0} { fail } } ====== Our basic framework is pretty much complete. We just need a couple of extra
• UniGnuPlot
  24 Jun 2010 — http://sourceforge.net/projects/unicalculus/|& &|Description| Tk front-end for GNUPlot|& &|Updated| 2006|& &|Version| 2.0.0|& &|Contact| See web page|& &||[Cederik De Leon]|& [[More detail needed!]] See also [GNUPlot]. <<categories>> Package
• Unique Element List
  27 May 2013 — test]; list llength $test ;# 20000 elements time {uniqueList $test} 1000 ;# 17562.0 microseconds per iteration time {uniqueList2 $test} 1000 ;# 6844.0 microseconds per iteration ====== ---- [wdb] Performance is reduced by usage of ''lsearch
• Univert
  27 Dec 2011 — small letter shei", the result of the conversion will not be "03E3" as desired but "3000.0"! Here's a safe version: ====== proc UnicodeStringToHex {s} { set rv ""; foreach c [split $s ""] { scan
• UNIX only exec wrapper
  03 Sep 2013 — its [stdout] and [stderr] without blocking and WITH a timeout! ====== proc _exec { prog { var "" } { uniq "" } { i 0 } { to 5 } } { if { ! [ regexp {^file\d+$} $prog ] } { set uniq _exec-[ clock seconds ][ clock clicks ] set
• Unix shells
  13 Dec 2016 — with the name of the referenced variable: ======none rmval () { typeset -g -n nameref=$1 local i=0 local val for val in "${nameref[@]}" { if test $val = "$2"; then unset nameref\[$i] fi
• Unixy minitools
  13 Oct 2012 — 90 0 0 11 3 86 701 0 0 0 1.90 0 0 2 2 96 672 1 0 0 1.90 0 0 2 0 97 815 0 0 0
• unload
  30 Nov 2014 — DLL] with [tcltcc], [load]ing, calling, [unload]ing it: #!/usr/bin/env tclsh85 package require tcc 0.2 set d [tcc::dll] $d ccode {static int fib(int n) {return n <= 2
• unset
  15 Aug 2014 — Returning"} for {set x 0} {$x < $n} {incr x} { puts "$x ... [{*}$cmd]" } } test 3 {info level} # 0 ... 1 # 1 ... 1 # 2 ... 1 # Returning test 3 {expr 1/0} # Returning # ERROR: divide by
• unsort
  02 Oct 2012 — restarts with tclsh.\ exec tclsh "$0" ${1+"$@"} proc main {} { set lines [lrange [split [read stdin] \n] 0 end-1] set count [llength $lines] for {set idx_1 0} {$idx_1 < $count} {incr
• until
  28 Sep 2018 — 1}]} set from [expr [string range $range 0 $br-1]]; set to [expr [string range $range $br+2 $end]] if {$to<$from} {if {$by > 0} {! by -$by}; set cond >=} else {set cond
• Unzip in tcl
  24 Sep 2012 — 2007 # package require vfs::zip array set OPT {dirList 0 quiet 0 toDir ""} ;# Options we handle array set stats {cnt 0 total 0} set usage "tclUnzip ?-l? ?-q? ?-d unzipDirectory? zipfile ?file
• uparrow
  25 Jan 2014 — Description: Extension to provide line editing, command completion, history, and multiline input. The current version is at 0.6. Updated: 06/1998 Contact: mailto:tomh@nibh.go.jp === <<categories>> Package | Dev. Tools
• update
  04 Jul 2016 — updateEventObjCmd ( ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[] ) { int optionIndex; int flags = 0; static char *updateOptions[] = {"windows","files","timers","idle", "all", (char *) NULL}; enum updateOptions { WIN_EVENTS, FILE
• Update considered harmful
  19 May 2016 — puts [wm geometry .t] 76x26+0+0 76x26+0+0 76x26+0+0 % maketop update idletasks; after 0 {puts [wm geometry .t]} 76x26+0+0 76x26+0+0 after#8 % 132x26+193
• Updating image directories from a memorystick automatically
  13 Feb 2016 — glob $d/*} r] {return {}} {return $r} } proc isleaf {f} {if [file isdir $f] {return 0} {return 1}} if 0 { To make the idea work as a block on a [bwise] canvas, I
• UPL: Tcl, Perl, Python, C, Etc
  01 Sep 2012 — Tcl and Python parsers, what would they do with set = 0 This is an assignment in both languages, but Tcl would assign 0 to '''=''', while Python would assign to the variable '''set
• uplevel
  05 Jun 2018 — name ;# not needed, but maybe helpful } ;# RS ====== ======none 0 % macro now {incr i; incr j} now 0 % set j 10; set i 1 1 0 % now 11 ====== As a variation, you might
• Uploading files to Flickr
  25 Jan 2014 — finfo [getFileInfo $file] set statusList [postImage $email $password $file $finfo] if {[lindex $statusList 0] != "ok"} { puts "error: [lindex $statusList 0] [lindex $statusList 1]" } else { puts "done" } } } set email "you@domain.com" ; # Your
• Uploading Type1 fonts to a network printer
  12 Jul 2011 — tclkit` "$0" ${1+"$@"} ################################################################################ # package name -- fontupload.tcl # # Abstract: sent type1 postscript fonts to network laserjet directjet # # usage: fontupload.tcl 192.168.0.6 /usr/share/ghostscript/fonts set host [lindex $argv 0
• Uptime in Windows
  25 Jan 2014 — From MSDN: GetTickCount returns the number of milliseconds since Windows started, and it resets to zero (0) if Windows is run continuously for approximately 49 days. http://support.microsoft.com/kb/q113325
• URI detector for arbitrary text as a regular expression
  25 Sep 2012 — I'm being strict) set IPv4address {(?:(?:25[0-5]|2[0-4]\d|[0-1]?\d?\d)(?:\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3})} # IPv6, all forms
• URL behaviour in a text widget
  05 Jan 2012 — TextURL 0.2 package provide textURL 0.2 # global vars set () {} # --------------- # create text widget # --------------- proc textURL {w args} \ { variable {} set cmd [list text $w] # init URL current ID set ($w:urlID) 0
• USB FAT Semi-Auto-Mount
  23 Jun 2011 — t $tmp { lappend ::mountdevices [lindex [split $t " "] 0] } foreach t $tmp { lappend ::mountpoints [lindex [split $t " "] 2] } } get_mounted # Mount any devices present set pause 0 foreach device { sda1 sda2 sda3 sda4
• Use an xy-plot to edit data series
  08 Aug 2017 — ymin <= 0.0 && $ymax >= 0.0 } { set y 0.0 } else { set y $ymin } set delx [expr {($xmax-$xmin)/double($number-1)}] set graph(xy) {} set x $xmin while { $x < $xmax+0
• Use PHP - to serve TCL
  09 Mar 2011 — putenv("$key=$val"); } } $out = shell_exec($file); $out = split("\n\n", $out); foreach (split("\n", $out[0]) as $v) { if (!$v) {continue;} header("$v"); } print implode("", array_slice($out, 1)); ob_end
• Use while to iterate over a list
  17 May 2011 — shift {ls} { upvar 1 $ls LIST if {[llength $LIST]} { set ret [lindex $LIST 0] set LIST [lreplace $LIST 0 0] return $ret } else { error "Ran out of list elements." } } ====== '''unshift''' ''list'' ''data
• use_refs
  18 Sep 2012 — refs {args} { foreach var $args { # use an K-combinator (in form of [lindex [list $x $y] 0]) to # pass the parameter name to upvar and unset it in time before # upvar creates
• Useful scripts for Sophos AV
  27 Sep 2012 — into single lines set lines [split $data "\n" ] set status "" if {[llength $lines] > 0} { set lines [lrange $lines 0 end-1] } # see if we have the ide files already set files [glob
• Useful tools for namespaces
  15 Jun 2013 — code from a procedure in a namespace into the console and have it access the correct variables. ====== proc alink {var} { uplevel \#0 upvar \#0 $var [lindex [split $var ":"] end] } ====== <<categories>>Tools | Namespaces
• user documentation project
  24 Aug 2012 — In what file format should documentation be written: [man], chm, [html], [xml], [PDF], or something else? ---- 0. Of course, the tcl [man] pages are available in *roff [man] page macro format as
• User Interface Design: Sizing of Elements
  27 Apr 2016 — set your toplevel width based on the width of the '0' character. ====== toplevel .mytoplevel set wid [expr {25*[font measure TkDefaultFont 0]}] .mytoplevel configure -width $wid ====== Make sure that tk scaling is
• userid
  25 Jan 2014 — char hostNameBuf[MAXHOSTNAMELEN]; if (gethostname (hostNameBuf, MAXHOSTNAMELEN) < 0) { Tcl_AppendStringsToObj ( Tcl_GetObjResult (interp), Tcl_PosixError (interp), (char *) NULL); return TCL_ERROR; } hostNameBuf[MAXHOSTNAMELEN-1] = '\0'; Tcl_SetObjResult (interp, Tcl_NewStringObj (hostNameBuf, -1
• Username/Password Database for Tclhttpd
  25 Jan 2014 — string range $userdb(pass) 0 1] set passcrypt [tclcrypt $pass $salt] if {[string compare $user $userdb(user)] == 0 && [string compare $passcrypt $userdb(pass)] == 0} { return 1 } else { return 0 } } ====== '''******************************** End fmkt.tcl
• Using a zip file as a Tcl Module
  14 Jun 2011 — is 24 bytes long, followed by a maximum of 64Kbytes text if { $size < 65559 } { set seek 0 } else { set seek [expr { $size - 65559 } ] } #flush $out seek $out $seek #puts "$seek [tell $out
• Using BWise 7x5 segment block to program a DSP/Xilinx driven display
  24 Jan 2011 — a way which leaves bit 0 zero, and reads columnwise: for {set i 4} {$i>=0} {incr i -1} { set o {}; for {set j 7} {$j>=0} {incr j -1} { set k
• Using Gimp's script-fu to convert images into a different format
  28 Jun 2012 — FALSE \"\") \n (file-gif-save 1 img drawable \"$out_file\" \"$out_file\" TRUE 0 0 0) \n (gimp-quit 0))" echo "" echo $gimp_script echo "" gimp -c -i -d -b "$gimp_script
• Using javamail in jacl
  24 Aug 2009 — jar file is in the CLASSPATH. [Æjaks] has mail-1.4.jar in the jetty-6.0.1/lib/plus directory so nothing extra needs to be done. Other Jacl users may
• Using Kill on Windows 98
  04 Oct 2011 — current .list delete 0 end set win_pid { } set result [do_cmd c:/tlist.exe] set result [split $result -] set result [string trimleft $result] set result [lreplace $result 0 0] foreach index
• Using namespace ensemble without a namespace
  26 Jul 2011 — require Tcl 8.5 package provide neat 1.0 namespace eval neat { namespace export {[a-z]*} namespace ensemble create variable ref variable refid 0 proc slot {object slot = command args} { set map
• Using Pango Text Markup Language in Gnocl Widget Labels
  01 Dec 2008 — s to code to produce this: #!/bin/sh # the next line restarts using tclsh \ exec tclsh "$0" "$@" package require Gnocl set etitle "Tcl/Tk 8.5" proc nullcmd {} { global type puts -nonewline
• Using Perl to get Excel
  12 Sep 2002 — upvar result result lappend result "\$worksheet = \$workbook->addworksheet(\"$name\");" eval $contents } proc starbase2excel { t { row 0 } { col 0 } } { upvar $t T set nrows [expr $T(Nrows) + $row] set ncols [expr $T(Ncols
• Using Snit to make Tk DOM Glue
  06 Oct 2011 — node $self delete 0 end $self insert 0 [$node tdwGetValue $options(-attribute)] } onconfigure -attribute attribute { set options(-attribute) $attribute if {$options(-node) != ""} { $self delete 0 end $self insert 0 [$options(-node) tdwGetValue
• Using Tcl/Tk in Multimedia Applications
  15 Aug 2017 — example. The problem with the example above is that if the window is not at 0,0 from the left top the cursor position is inaccurate. Also the window manager decorations make
• using tdom to check generated html
  27 May 2011 — if 0 {[phk] 2003-08-18 Let's assume your application is generating html pages. [tdom] can help in a nice way to test the output. Let's get all options from
• Using Teacup for the first time
  06 Oct 2016 — 4.0 aix-powerpc package XOTcl 1.4.0 hpux-parisc package XOTcl 1.4.0 linux-glibc2.2-ix86 package XOTcl 1.4.0 macosx-universal package XOTcl 1.4.0
• Using Tk as a loadable package
  30 Sep 2012 — Tk # now tell it about the display and try loading Tk again. % set argv {-display :0} -display :0 % package require Tk 8.3 # A window pops up - we have succeeded. By using
• Using TWAPI with MS Paint
  11 Jan 2008 — 0 0 -lup}} } b { twapi::send_input {{mouse 0 0 -ldown}} twapi::move_mouse $origin_x [expr $origin_y+80] twapi::send_input {{mouse 0 0 -lup}} twapi::send_input {{mouse 0
• Using Xlib With Tcl/Tk
  21 Mar 2006 — Tk_WindowId (tkwin)); for (i = 0; i < 150; (i += 3)) { XFillRectangle (dis, Tk_WindowId (tkwin), green_gc, 1, 1, i, i); XFlush (dis); usleep (1); } for (i = 0; i < 150; (i += 3
• Using XML files for source code
  28 Nov 2013 — but here is a first (admittedly playful) attempt. Take the following XML file: ====== <?xml version="1.0" encoding="UTF-8"?> <simple> <set var="X"/> <puts text="Value is $var"/> <puts>"Value is
• Using zip files like a .kit file
  14 Jun 2011 — is 24 bytes long, followed by a maximum of 64Kbytes text if { $size < 65559 } { set seek 0 } else { set seek [expr { $size - 65559 } ] } #flush $out seek $out $seek #puts "$seek [tell $out
• utf-8
  20 Jun 2017 — index.htm] In my box toutf8 \u10000 Produces \xe1\x80\x80\x30 And (notice the extra 0 introduced here) toutf8 \u010000 Produces \xc4\x80\x30\x30 I have tested some codes in
• UTF-8 bit by bit
  15 Dec 2013 — railcars''' (one-byte ASCII characters, to be known from the fact that the highest bit is 0), and '''trains''' (sequences of two or more bytes that together form a character). Each train
• uudecode
  18 Jan 2013 — data [uuencode::uudecode -file image.news] foreach img $data { set f [open [file tail [lindex $img 0]] w] fconfigure $f -translation binary puts -nonewline $f [lindex $img 2] close $f } ====== ---- See also
• uuencode
  26 Mar 2014 — in line lengths, extra "parity" characters at the end of each line, and the encoding of '0' as either the space character (in which case spaces at the end of a line
• vacprint
  04 Sep 2013 — binary scan $t I time puts "[clock format $time -format %Y/%m/%d.%H:%M:%S] [string trim $k "\0"]" if [catch {set k [dbm next $k]}] break } dbm close <<categories>>Uncategorized
• VAD
  07 Apr 2006 — Tkhtml, Fve, August, ASED, TclDOM, Tclxml Whiteboard, TkMC, tkxmlive, IDL_To_Ada. Currently at version 6.0 (? Looks to me like it is at version 3.x) . Updated: 08/2002 Contact: See
• Valentines
  03 May 2016 — GetOffsets $points $origin] set factors { 1.0 0.95 1.0 1.05 } set layers { red4 1.0 red3 0.92 red2 0.88 red1 0.82 } # Draw the heart proc DrawHeart
• Validating an International Bank Account Number
  01 Mar 2013 — Kingdom" exit 0} } PL {if {[string length $iban0] != 28} { puts "IBAN must be 28 characters for POLAND" exit 0} } } set iban1 "[string range $iban0 4 end][string range $iban0 0 3]" puts
• validProc
  03 Jun 2018 — ns ${ns}:: } if { [ llength [ info commands $ns$name ] ] } { return 1 } } ;## if the argument was a non-namespace proc if { [ llength [ info commands $name ] ] } { return 1 } return 0 } ====== --[Phil Ehrens] <<categories>> Dev. Tools
• vargrep
  06 Jan 2012 — something can't read "::test::blah": no such variable %array exists ::blah::hmm 0 %info exists ::blah::hmm 0 I'd suggest wrapping the scalar '' if {[string match ... '' section in a simple
• variable
  16 Jun 2018 — htm%|%variable]''', a [Tcl Commands%|%built-in] [Tcl] [command] since [Changes in Tcl/Tk 8.0%|%8.0], creates and optionally [set%|%sets] variables in a [namespace]. ** See Also ** `[set]`: Reads or
• Variable aliases
  09 Dec 2012 — frame, the upvar's stack frame level argument has to be set to ''0'': ======tcl set v 123 upvar 0 v a puts $a ==>123 ====== Referring a variable inside the current namespace
• Variable Extensions (varx)
  10 Nov 2016 — name w "::set $name [::list $value];#"] ::return $value } proc ::var::switch args { ::set nocase 0; ::set next 0; ::set response {} ::foreach arg $args { ::set args [::lassign $args var] ::if { ! [::string match -* $arg
• Variable versus a Global Array
  09 Jul 2004 — proc joe::p3 {} { global arr ; for {set i 0} {$i <1000} {incr i} { set arr(key) } } % proc joe::p4 {} { variable key ; for {set i 0} {$i <1000} {incr i} { set key } } % set
• Variables and References
  07 Jun 2014 — for working with variables and references. ====== namespace eval helpers { variable cntA 0 variable cntB 0 variable stepSize 1 variable totalCalls 0 proc updateCounters {up dn msg} { references up dn variables stepSize totalCalls
• Variables in TclOO
  13 Nov 2015 — puts [list [t sx] [t cx] [t mx] [t sx] [t cx] [t mx]] # => 0 5 8 0 5 8 ====== This sort of collision might be harmful if the author of `C
• VCD
  26 Aug 2013 — b11001110000001110111000101010000 ( b1001010101000001010010011011100 ! 1) 1. #60 b11000010100101110010000010010010 " b1001111110110111011010100001100 # z) 0- #70 b1110110110010111110011011101000 $ b1000100101001001100011001000110 % b10011101110101010100000011011110 & 0) 0, #80 b100111010011011001000011011010 ' b1010101011000001110110001011110 ( 1) z* #90 b11110101101011001011100011010000 ! b11110100110011101110110110010 # 0) 0* #100 b10100010101111011101001101110100 % b1011100100001011011100000100100 ' b1001110111111000111001011110000 " b10011111110111100001001100010010 $ b10101100101101100101010010111100 & b11110110011101010101101100111000
• Vector rotations with Bwise
  23 Jun 2012 — n} {v} } { set v [expr $v*2.0*2.0*acos(0)/360] switch $n phi { uplevel #0 "set vec2rot1.a $v" } theta { uplevel #0 "set vec2rot2.a $v" } } sliders {{phi 180
• vectorgraphics
  04 Jul 2017 — namespace export canvasEditor } proc ::canvasEditorBindings::canvasEditor {canvas args} { variable canvasMouse dict set canvasMouse $canvas motion "0 0" dict set canvasMouse $canvas action press ::canvas $canvas {*}$args createContextMenu $canvas canvasBindings $canvas on canvasBindingsSelect
• vertical labels
  15 Apr 2014 — res] } } proc vconfig {w args} { set l [llength $args] if {$l == 0} { return [eval ::vlabel::_$w config $args] } set n 0 foreach {key value} $args { incr n if {$n == $l} { return [::vlabel
• vexpr - an expr for vectors
  13 Mar 2012 — variable sum set depth 0 ;# depth is the depth of brackets encountered set argc(0) 0 ;# argc holds the number of arguments found so far set sum(0,0) "" ;# sum holds the
• VFS
  12 Aug 2018 — the following error (*** for anonymized parts): ======none % package require vfs::ftp 1.0 % vfs::ftp::Mount suchenwi:***@sux000 /sux 0 % glob /sux/* Unknown state "list_sent" while executing "error "Unknown state \"$ftp
• vfs filesystem configuration
  25 Jan 2014 — the long-term, into Tcl's core. tclvfs has this: ====== % vfs::attributes $mountpoint -state readonly -commit 0 ====== where the 'state' and 'commit' names are filesystem specific (but there is a convention that
• vfs::http
  02 Jun 2016 — xi) ^ (?: [-\w.~!$&'()*+,;=:] | %[0-9a-f][0-9a-f] )+ $ } if {![regexp -- $validityRE $user]} { unset $token # Provide a better error message in this error case if {[regexp {(?i)%(?![0-9a-f][0-9a-f
• vfs::inmem
  06 Jan 2012 — requires Metakit (Mk4tcl, part of Tclkit and ActiveTcl). ---- [JMN] 2005-12-11 Note that vfs::inmem 0.1 has a small typo/bug in vfs::inmem::matchindirectory [[string match $pattern f]] should
• vfs::webdav
  18 Dec 2011 — filesize [$filesize stringValue] } else { set filesize 0 } return [list dev -1 uid -1 gid -1 nlink 1 depth 0 size $filesize atime 0 mtime 0 ctime 0 mode 777 type $type] } proc
• vfs::zip
  14 May 2016 — bug in ActiveTcl 8.5.5.0 on Windows that causes "package require vfs::zip" to fail. This is fixed in ActiveTcl 8.5.6.0. ---- [FPX] I got the same issue
• vgrep: a visual grep
  01 Aug 2013 — blue -foreground blue set ::data [readlines [lindex $argv 0]] rewrite .e .t focus -force .e } proc rewrite {entry text} { global data $text delete 1.0 end set re [string map {" " .*} [$entry get
• Video babbleback machine
  05 Oct 2005 — from input into one side of the fifo fcopy $input [lindex $fifos 0] -command [list copyComplete $input [lindex $fifos 0]] # Open the output file and after a delay start copying from the
• Viewer for functions of two variables
  23 Jun 2012 — 0 set y10 0.0 set dx1 [expr {2.0/$nostps}] set dy1 0.0 set x20 0.0 set y20 -1.0 set dx2 0.0 set dy2 [expr {2.0
• views as arrays
  21 Nov 2017 — CMCc] Some code to map metakit views to arrays of dictionaries ====== namespace eval dattach { variable debug 0 proc Write {view selector array var el op} { upvar $var val variable debug if {$debug
• Vigenere
  10 Mar 2013 — 1 (encode) or 0 (decode) # # Results: # result is a cyphered string containing symbols from alphabet64 # proc vigenere::engine { key data {encode -encode}} { variable alphabet64 set result "" set ii 0 set keylen [string
• vignere
  29 Jul 2011 — args 0 0] } -f* { set opts(filename) [lindex $args 1] set args [lreplace $args 0 0] } -- { set args [lreplace $args 0 0] break } default { return -code error "bad option [lindex $args 0
• virtchannel_base
  04 May 2015 — done 1 } set chan [tcl::chan::memchan] puts -nonewline $chan [string repeat a 50000] seek $chan 0 start set chanout [open zout w] fcopy $chan $chanout -command copied vwait ::done ====== [AMG]: This
• Virtual grid widget
  24 Sep 2012 — grid rowconfig $w 0 -weight 1 -minsize 0 grid columnconfig $w 0 -weight 1 -minsize 0 grid $w.c -row 0 -column 0 -sticky news grid $w.v -row 0 -column 1
• Virtual Hosts in Tclhttpd
  13 Feb 2016 — Home/Arbeit1/pgm/WebSrv2/sites/testsite/custom/VHost.tcl: package md5 is not present tclhttpd.exe 0.90, based on tclhttpd 3.5.1 and Tcl 8.5.6, modified 02/04
• Virtuallist
  30 Apr 2014 — single parameter, a 0-based index. It returns a list consisting of a return code and the string to be displayed at that index. the return code is: 0 (TCL_OK) if
• VirtualMouse Cross Platform Mouse Handling
  26 Aug 2010 — A package to handle the mouse in a cross-platform way. What: VirtualMouse 1.0 Where: http://wiki.tcl.tk/_repo/virtualmouse/ Description: A simple package to interface with the mouse on
• Visual cd
  21 Feb 2006 — menubar.cd] { .menubar insert 4 cascade -menu [menu .menubar.cd -tearoff 0] \ -label cd proc dirsel'update {m dirs} { $m delete 0 end foreach dir $dirs { $m add command -label $dir -command
• Visual Cron
  27 Sep 2012 — to view, modify, delete and add actions. Has an inline manual. Written in Tcl/Tk 8.0 . Currently at version 2.3 . Updated: 06/2003 Contact: mailto:daniel.roche@bigfoot.com (Daniel
• Visual menus
  25 Jun 2007 — name -tearoff 0] interp alias {} | {} addsubmenu .m.m$name } proc addsubmenu {menu args} { set name [join [lrange $args 0 end-1]] set cmd [lindex $args end] if {[lindex $cmd 0]=="|"} { set subsub
• Visual REGEXP
  03 Nov 2015 — top.regexp.help insert 1.0 "\n\n\n\n\n\n\n\n"; .top.regexp.help insert 1.0 {\a alert \n newline \0 char 0 \d [[:digit:]] \A beginning of
• Visual Studio 2003 .sln file parser
  27 Sep 2012 — a list: # element 0 is the project name, element 1 is the location for the project variable VS2K3VersionString set projects_out [list] if {[string first $VS2K3VersionString $sln_body] != 0} { error "This doesn
• Visual TAL
  03 Dec 2013 — res {} while {$num > 0} { set res [linsert $res 0 [pop]] incr num -1 } return $res } proc vtal.invoke num { set cmd {} while {$num > 0} { set cmd [linsert $cmd 0 [pop]] incr num
• VLC Tcl Extension
  02 Mar 2018 — 0; #if LIBVLC_VERSION_INT >= LIBVLC_VERSION(2,2,0,0) rc = 1; #endif Tcl_SetObjResult (interp, Tcl_NewBooleanObj (rc)); return TCL_OK; } #if LIBVLC_VERSION_INT >= LIBVLC_VERSION(2,2,0
• VNC snapshot
  27 Sep 2012 — c:/temp/vnc-snap/ # Uncomment this to automatically establish a connection, or just use # the menu pick to establish the connection # attach 127.0.0.1 5900 yourvncpasswordhere } ====== <<categories>> Application | Category Internet
• Vogel spiral
  26 Aug 2013 — after idle [list after 0 \ [list [namespace which [lindex [info level 0] 0]] $task [incr n] $M $xo $yo]] } } # Primality testing proc IsPrime n { if {$n == 1} {return 0} set max [expr
• Vote: Should Pooryorick leave the Tcler's wiki?
  28 Sep 2018 — difficulty to tolerate it. ---- '''[LAM] - 2016-01-01 23:36:43''' From http://wiki.tcl.tk/0 : «Since this site is collaboratively-edited, please feel free to to correct typos, edit code
• vrtcl
  16 Jul 2017 — type": "integer", "minimum": 0 } }, "required": ["firstName", "lastName"] } ====== '''Tcl''': ======none title {Example Schema} type object properties { firstName { type string } lastName { type string } age { description {Age in years} type integer minimum 0 } } required {firstName
• Vtk
  04 Jun 2018 — to 3D Graphics" (ISBN 013199837-4). Version 2.0 beta is currently available.| |Updated:| 08/2001| |Updated:| 2013-06-27 VTK 6.0.0| |Contact:| mailto:martink@cs.rpi.edu (Kenneth M
• VUW widgets
  13 Aug 2018 — is found on the tktable site. It has formally been released as vu version 2.1.0 ---- Some examples ... [http://tcl.tk/starkits/bar.jpg] [http://tcl.tk/starkits/dial.jpg] [http
• vwait
  16 Jul 2017 — demonstrates what [Chris Nelson] stated above (calls to `vwait` can nest): ====== set ::time 0 set ::a 0 set ::b 0 proc a_vwait {} { puts "Waiting 15 sec for ::a" vwait ::a puts
• VxWorks
  02 May 2008 — tasks (no process separation or memory protection). * Proprietary APIs for thread management and synchronization. VxWorks 6.0 and later offer process separation (as "Real-time Processes") and increasingly complete support for the
• w3m
  20 Jan 2013 — of Web automation. w3m and [Expect] team up to provide that: ====== #!/bin/sh # magic \ exec expect "$0" "$@" proc w3m:start {uri} { uplevel 1 spawn w3m $uri } proc w3m:quit {} { send qy\r
• Wafe
  28 Sep 2012 — X11/wafe/ <<br>> ftp://ftp.wu-wien.ac.at/pub/src/X11/wafe/1.0.20/wafe-1.0.20.tar.gz <<br>> ftp://ftp.wu-wien.ac.at/pub/src/X11
• Wallclock
  28 Sep 2018 — ABU] 7-feb-2012 '''WallClock 2.0''' A clock widget, synchronized with system-clock. Wallclock is a continuosly updated clock embedded in a label widget. Two commands (start/stop) and three options
• warp
  02 Sep 2012 — event generate . <Motion> -warp 1 -x [expr %x+0] -y [expr %y-10] } bind . <Down> { event generate . <Motion> -warp 1 -x [expr %x+0] -y [expr %y+10] } bind . <Left> { event generate
• Wasserstein distance
  26 Jul 2018 — prob1 {0.0 0.1 0.2 0.4 0.2 0.1 0.0 0.0} set prob2 {0.0 0.0 0.0 0.1 0.2 0.4 0
• watch
  14 Sep 2002 — Docs can be found at http://incrtcl.sourceforge.net/iwidgets/iwidgets/watch.html and http://purl.org/tcl/home/man/iwidgets3.0/watch.n.html ---- [Category Command], a part of [incr Widgets]
• Watching a remotely stored video
  19 Sep 2012 — wmv r] # set f [open [lindex $argv 0] r] fconfigure $s -translation binary set f [ open "| dunerec -a [lindex $argv 0] -t dvd -i 0 -R -" r] # alternatively this enables the front
• wav
  03 Aug 2014 — a small package I started for reading some basic info from wav files. ====== package provide wav 0.1 namespace eval ::wav {} proc ::wav::info {file} { set fh [open $file r] binary scan
• Wavy Text
  04 Jan 2012 — set col 0} {$col < $S(w)} {incr col} { set dcol [::img::src data -from $col 0 [expr {$col+1}] $S(h)] set dy [expr {sin($angle * $S(rad)) + 1}] ;# 0-2 range
• WBuilder
  18 Aug 2013 — libWrite.tcl''' proc WriteHead {Handle Title Scripts} \ { puts $Handle {<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">} puts $Handle {<html
• wce
  27 Sep 2012 — an integer, turns it on (1) or off (0) * wce sipbuttonoff * wce sipbuttonon * wce siphide - withdraw the stylus input pad * wce sipinfo - returns {0 26 240 214}, or ..320 when SIP is
• WDDX
  28 Feb 2015 — packet #1: <wddxPacket version='1.0'> <header comment='Example WDDX packet' /> <data> <string>This is WDDX packet example</string> </data> </wddxPacket> Example packet #2: <wddxPacket version='1.0'> <header comment='Another example
• Wdebug
  07 Sep 2012 — info level -1} level] if {$res != 0} { set level 0 } ::wdbg::log "$level> " cmdTag -nonewline .wdbg.f.t yview moveto 1.0 .wdbg.e selection range 0 end focus .wdbg.e tkwait
• Web 2.0
  06 Sep 2012 — Web 2.0
• Web Scraping with htmlparse
  16 Nov 2017 — tag. set li [walkf $documentTree $base {0}] while {$li ne ""} { set link [$documentTree get [walkf $documentTree $li {0}] data] catch { $documentTree get [walkf $documentTree $li {0 0}] data } title puts "$link: $title
• Web Site Status
  12 Nov 2008 — menu -underline 0 pack .mbar.file .mbar.bookmarks .mbar.help -side left menu .mbar.file.menu -tearoff 0 menu .mbar.bookmarks.menu -tearoff 0 menu .mbar.help.menu -tearoff 0 .mbar.file
• web2desktop
  30 Nov 2015 — end $text $string_start] set start_removed [string replace [string range $text $string_start $string_end] 0 [expr [string length $start ]-1] ] return [string replace $start_removed end end ] } #I'm behind
• Webadmin for Metakit with Tclhttpd
  21 Nov 2017 — is fixed]] - [WJR] ---- 10/29/2003 Version 0.4 released ''I've updated the screendump for OS X as well -[jcw]'' 11/4/2003 Version 0.5 released (only minor bug-fixes
• WebApp
  09 Oct 2014 — separation, and an abstract database interface. ** Download ** [http://www.rkeene.org/devel/webapp-0.3.4.tar.gz%|%webapp-0.3.4.tar.gz%|%] ** Documentation ** [http://www.rkeene.org/projects/webapp/webapp
• WebDAV
  11 Sep 2012 — client library with a C API. ---- Computerworld just ran an article [http://www.computerworld.com/newsletter/0,4902,86688,00.html?nlid=APP] recently covering the highlights of webdav. ---- Find an implementation
• Webdings animation
  04 Oct 2007 — update after 500 for {set i 0} {$i <= 64} {incr i} { if {$i<31} {.t delete 1.0} if {$i%2==0} {.t delete 3.0} update after 300 } bind . <Escape> {exec
• Webpage 1.0 - Web page macro facility
  07 May 2018 — Webpage 1.0 - Web page macro facility
• Webserver combined with bwise
  24 Jan 2011 — choses by default: http://127.0.0.1: local machine http://uu.vv.xx.yy/: the actual IP address of the machine with server http://192.168.0.1: the local network
• WebServices
  25 Oct 2017 — tclws/]) for a client and server (currently only runs in [TclHttpd]), now at version 1.2.0 .. Client side supports parsing of [WSDL]s. Server side supportsgeneration of [WSDL]s and Infomation
• websh
  28 Sep 2018 — No.There is still some development (bug fixes) going on. Don't use the 3.5.0 download from http://tcl.apache.org/websh/ , it's outdated and contains a few bugs
• Websocket on TclHttpd
  14 Feb 2016 — does not work with the Tclkit 8.6.1? Point your browser to http://127.0.0.1:8015/ and click on the Websocket Test link on the home page. ====== # I made
• WebSockit2me - WebSocket to TCP gateway for noVNC and a WebSocket Telnet Client built on TclHttpd
  12 Jan 2016 — open $Target(TelnetTargetFile,file) w] puts $fd "token1 127.0.0.1 23" close $fd unset fd set Target(TelnetTargetFile,token1) "127.0.0.1 23" set Target(TelnetTargetFile,mtime) [file mtime
• WebSphere
  27 Sep 2012 — www-4.ibm.com/software/webservers/appserv/] (a no-charge version is available as WAS 4.0 Advanced Edition Single Server) * WCS: WebSphere Commerce Suite * WES: WebSphere Enterprise Suite * WPS: WebSphere Portal
• WebUtils
  07 Jul 2011 — while { [regexp -nocase -indices {(<)<<[^>]+\.tml>>(>)} $tmlString null x y] } { set k1 [lindex $x 0] set k2 [lindex $y 0] set fname [string range "$tmlString" \ [expr { $k1+3 }] [expr { $k2-3 }] ] if { ![catch
• Weighted Decision and example eTCL demo calculator, numerical analysis
  28 Feb 2017 — 0.50*46.0+ 0.50*56.0, 51.0 weighted score. Student c has an attendence of 54.0 and a skill score of 27, giving 0.50*54.0+ 0
• WeirdX
  27 Feb 2013 — Java plugins. set weirdx_html_start { <html> <head> <title>Tcl/WeirdX 1.0</title> </head> <body> <h1>Tcl/WeirdX 1.0</h1> <hr> <applet code="com.jcraft.weirdx.WeirdX.class" archive="weirdx
• Welcome Visitors
  18 Jul 2011 — tk/_/recent%|%Recent Changes%|%] page. '''Adding a brand new page''' After a period (which may be 0 minutes long ;) of reading and occasionally adding comments, you will eventually (we hope) reach the
• Wenchi Liao
  28 Aug 2012 — 0} { return 1 } else { return 0 }} # % wl_utils::lfilter [list -2 -1 0 1 2] s # 1 2 # % wl_utils::lfilter -n [list -2 -1 0 1 2] s # -2 -1 0
• Whadjasay
  24 Mar 2010 — place $Name -relx 0.02 \ -rely 0.48 \ -relwidth 0.3 \ -relheight 0.06 \ -anchor nw # #---------- place $Parent.l9 -relx 0.02 \ -rely 0.92 \ -relwidth 0.96 \ -relheight 0.06 \ -anchor
• What 'embedding' means
  22 Mar 2011 — copied from [TIP] 66). ======c Tcl_Interp * interp; /* Initialise the Tcl library thoroughly */ Tcl_FindExecutable( argv[0] ); /* Create the interp, evaluate "init.tcl" for the script level initialisation. */ interp = Tcl_CreateInterp(); if
• What about time epoch differences
  20 Aug 2013 — the platform in use. ---- You can find out which epoch your platform uses, with clock format 0 -gmt 1 ;# RS ---- Windows (all?) have 2-second granularity on disk, so a file dated
• What are some options for managing variations of Tcl on your machine
  21 Mar 2013 — specific setup as soon as problems arise: #!/bin/sh # \ . /opt/tcltk/8.0.4/setup/tcltk.sh # \ exec tclsh "$0" "$@" ---- [Bob Techentin] wrote: Actually, I do keep several source trees hanging around
• What debugging tools are available to a Tcl programmer
  20 Apr 2016 — level2 [expr {[info level] - 2}] if { $level1 > 0 } { set name1 [lindex [info level $level1] 0] if { $level2 > 0 } { set name2 [lindex [info level $level2] 0] } else { set name2 Startup } } else { set name1
• What if you do not have exp()?
  23 Jun 2012 — approximation is 0 - ln(2), # reduce the argument # set factor 1.0 if { $x > 0.0 } { set reciproke 1 } else { set reciproke 0 set x [expr {-$x}] } while { $x > 1.0 } { set
• What If: Everything is a Thing
  02 Sep 2015 — ref$id] } } set account [lambda {args} { if {[llength $args] == 0} { return [set $account] } else { incr $account [lindex $args 0] } } [list account [ref::create 0]]] apply $account 12 apply $account 15 apply $account
• What is Tk
  20 Jun 2018 — interfaces to the [Microsoft] windowing system. On the other platforms where Tk is available, Tk 8.[[0-4]], updated to look very similar to [Motif], but not using the Motif libraries. Prior
• What kinds of data can Tcl scripts use
  26 Sep 2012 — displaying of Unicode here'' ---- '''Numbers''' (using English representations) Decimal Integers: 0, 1, 2, 42, -347, 65536 Floats: 0.0, 12345678123456878.0, 0.00000000001, 1.2345e-12 Hexadecimal Integers: 0x4a, 0xabcd1357, 0xfee1900d Octal
• What kinds of variables can Tcl scripts use
  21 Jan 2012 — 1. Byte String - a special case of the previous type where all character codes are between 0 and 255 inclusive. Many commands acting on such strings (e.g. [binary], binary file I
• What Languages Fix
  15 Feb 2016 — hi there]]`|`set &a{5:7} (hi there)` |& &|`set a [[lreverse $a]]` |`set &a $a{end:0:-1}` |& &|`dict append a b hello` |`append &a(b) hello` |& &|`dict incr a b` |`incr
• What should I be sure to do so my Tcl based programs run cross platform
  28 Aug 2011 — The implementation of math functions may differ between platforms. In particular, expr atan2(0,0) ;# Windows 2000: returns 0.0 ;# Solaris: domain error: argument not in valid range So be sure to
• What some command arguments expect
  27 May 2016 — that the example above, ====== if {$a < 0} {set a 0} ====== could also be written in the [little language] of `[expr]`: ====== set a [expr {$a<0? 0: $a}] ====== Matter of taste, of course
• What's My Line?
  25 Dec 2014 — none #this file should be called "data" set localvar 99 ====== ====== namespace eval ns1 { proc proc1 {} { upvar 0 [namespace current]::var1 localvar source data set var2 Hello } proc1 } catch {set ns1::var1} eres
• WhenIdle
  06 May 2008 — inactive] set diff [expr {$delay - $t}] if {$diff <= 0} { if {$::demo} {set ::S(msg) "idle long enough"} eval $cmd } else { if {$::demo} { if {$t == 0} { set ::S(msg) "idling for $delay ms
• Where does the package command find the packages it seeks?
  28 Aug 2012 — 0} { # We do not know about this package yet. Invoke package unknown # to search {*}[package unknown] $name # Check again if we found anything set versions [package versions $name] if {[llength $versions] == 0
• where random numbers flop
  22 Jan 2017 — round($number)}]] } set ::a 0 set ::1 0 set ::2 0 set ::3 0 set ::4 0 set ::5 0 set ::6 0 proc statistics {} { set a 0 while {$a != 100000} { set
• Where to find old Tcl source distributions
  20 Mar 2013 — available from SourceForge: Tcl 6.1 and 6.5; Tk 2.2, 2.3, and 3.0; and assorted patches. Also alleged DOS ports for Tcl 6.2 and 6.7. [http
• Where to store application configuration files
  07 Jul 2013 — Microsoft recommends to use ======c TCHAR szAppData[MAX_PATH]; … hr = SHGetFolderPath(NULL, CSIDL_APPDATA, NULL, 0, szAppData); ====== to get the "Application Data" path since it might be named differently in different
• which
  04 Apr 2011 — ARGS: str - string to id # Returns: id types of command as list ## proc what {str {autoload 0}} { set types {} if {[llength [info commands $str]] || ($autoload && \ [auto_load $str] && [llength [info commands $str
• while
  15 Oct 2012 — an example, try the following script with and without the braces around `$x<10`: ====== set x 0 while {$x<10} { puts "x is $x" incr x } ====== Where you want to create a
• Who edits the Wiki
  03 Mar 2015 — Y-%m',date,'unixepoch')) , max(strftime('%Y-%m',date,'unixepoch')) , count(*) from changes where instr(who,'@') > 0 group by substr(who,1,instr(who,'@')-1) order by count(*) desc limit 40; ====== ---- [AMG
• Who says Tcl sucks...
  28 Sep 2018 — 199710071721.KAA19014@wall.org> ''Historically Tcl has always stored all intermediate results as strings. (With 8.0 they're rethinking that. Of course, Perl rethought that from the start.)'' [Richard Stallman]: [http
• WhoAmI? -Gnocl widgets always know who they are
  30 Jul 2011 — WID1 and ::gnocl::_WID2 # are the toplevel window and the box container. #--------------- #!/bin/sh/ #\ exec tclsh "$0" "$@" package require Gnocl # create a container set box [gnocl::box -buttonType 1 -orientation vertical] # add
• WhoAmI? -Letting proceedurally added widgets know their names
  27 Dec 2011 — info level 0' will return the name and # # argument of the currently interpreted procedure. # In Tcl "..everything is a string". [http://wiki.tcl.tk/3018] #--------------- #!/bin/sh/ #\ exec tclsh "$0" "$@" package require
• Why AndroWish switched to TCL_UTF_MAX=6
  11 Dec 2015 — of Emoji requires to cover the full range of Unicode code points (0x000000...0x10ffff). * Unicode 8.0 support in Tcl was introduced by Jan Nijtmans during EuroTcl 2015. * Emoji is quite popular
• Why Do Programs Take Up So Much Memory ?
  22 Dec 2011 — c #include<malloc.h> char *basepointer; basepointer = (char *) malloc(1000); for (i=0; i<1000; i++) basepointer+i = (char) 0; ====== In C code, that is. It can also appear in assembly code
• Why does Tcl leak memory?
  20 May 2018 — libXcursor.so.1.0.2) ==3514== by 0xBFE833: XcursorImagesLoadCursors (in /usr/X11R6/lib/libXcursor.so.1.0.2) ==3514== by 0xBFE910: XcursorImagesLoadCursor (in /usr/X11R6/lib/libXcursor.so.1.0.2) ==3514
• Why does Tcl think a fraction less than one is zero?
  02 Dec 2017 — integers that can take on values of 0,1,2,... and therefore have no values between 0 and 1. However: ====== % expr 1.0 / 2 0.5 ====== show the expected value. Whereas in
• Why manhole covers are round
  21 Nov 2012 — h -showvalue 0 -from 0 -to 5 -command MyScale pack .c -side top pack .anim -side right -expand 1 pack .s .l -side bottom -expand 1 wm resizable . 0 0 } ##+########################################################################## # # ngon # # Compute
• Why Tcl has no GOTO command
  06 Feb 2017 — labeled loops and you can break to a label. For example: ====== for (i = 0; i < 100; ++i) { for (j = 0; j < 100; ++j) { if (IsFound(i,j)) goto found; } } :found ====== ulis,2002
• Why Tcl is so much slower than Perl
  05 Dec 2011 — s not.''' It used to be, but it's not now, with Tcl interpreters after 8.0. [[Refer to objective evidence.]] It is necessary to answer the question, though, because so many
• Why Threads are a Bad Idea
  10 May 2015 — Ousterhout] | | Download | [http://www.cc.gatech.edu/classes/AY2010/cs4210_fall/papers/ousterhout-threads.pdf%|%PDF], [http://www.cc.gatech.edu/classes/AY2009/cs4210_fall/papers/ousterhout-threads.ppt%|%PowerPoint 4.0] |
• Wibble change log
  20 Apr 2014 — tcl.tk/_/diff?N=27377&V=4&D=0&W=0]; '''word differences''': [http://wiki.tcl.tk/_/diff?N=27377&V=4&D=0&W=1]; '''announcement''': [http://wiki.tcl.tk/27383
• Wibble detailed description
  20 Apr 2012 — query string. * '''request path''': Path of client-requested object, excluding query string. * '''request protocol''': HTTP/1.0 or HTTP/1.1, whatever the client sent. * '''request header''': Dictionary of HTTP header fields
• Wibble examples
  21 Feb 2014 — head><body> % set rand [expr {rand()}] % if {$rand > 0.5} { random=[format %.3f $rand] &gt; 0.5<br/> % } else { random=[format %.3f $rand] &lt;= 0.5<br/> % } time/date=[clock format [clock
• Wibble help
  09 Apr 2015 — wibble 0.4 ======tcl % dict set state response header content-type "" text/html % if {[dict exists $state response header cookie sessionid ""]} { % set sessionid [dict get $state response header cookie sessionid ""] % upvar #0
• Wibble implementation
  22 Nov 2015 — 31%|%Link to Andy's version 0.4%|%. https://github.com/jcowgar/wibble%|%Link to jcowgar's mirror of 0.4 on github%|%. [SEH] -- ver. 0.4.2: pulled out some unnecessary
• Wibble news
  13 Apr 2012 — This may break compatibility with existing Wibble installations, but since I haven't made a 1.0 release yet, I don't feel a strong obligation to support a particular API. If
• Wibble wish list
  12 Feb 2015 — certfile keyfile args } { ::tls::init -certfile $certfile -keyfile $keyfile \ -ssl2 1 -ssl3 1 -tls1 0 \ -require 0 -request 0 {*}$args proc ::wibble::socket { args } { ::tls::socket {*}$args } } [AMG]: Thanks. I guess I
• Wibble zone handlers
  02 Apr 2012 — proc ::wibble::zone::reload {state} { set ::wibble::zonehandlers {} foreach script [dict get $state options scripts] { uplevel #0 [list source $script] } dict set state response status 200 dict set state response header content
• widget base class
  10 Jul 2016 — np2/itcl_widgets/ ftp://ftp.procplace.com/pub/tcl/sorted/packages-7.6/devel/itcl_widgets-0.1.tar.gz Description: A foundation itcl class for Tk widgets. This sets up a
• Widget Configure
  25 Sep 2003 — TableData { 0,0 "Option Name" 0,1 "Default Value" 0,2 "Current Value"} set row 1 foreach datum [$widget configure] { if {[llength $datum] != 5} continue ;# Throw out shortcuts foreach col [list 0
• Widget Drag and Drop Notebook
  26 Jul 2010 — x -y $y -data $W $W configure -background lightgray } m o if {[dict get $o -code] != 0} {puts stderr $m} unset -nocomplain active } } #Passes <Motion> events to underlying widgets while dragging children
• Widget Hiding as opposed to Widget Overloading
  01 Jun 2014 — info level 0] 0]: $w $ks" switch $ks { Left {tracker_move $w -1 0} Right {tracker_move $w 1 0} Up {tracker_move $w 0 -1} Down {tracker_move $w 0 1
• Widget hierarchy ASCII tree
  28 Oct 2012 — on stdout. package require Tk proc wlist {{top {.}} {in {}} {rec {0}}} { set in "$in |" set children [winfo children $top] set cnt 0 if {!$rec} {puts "$top"} foreach child $children { incr cnt if
• Widget tags
  16 Oct 2013 — Tk package provide "TkTags" "1.0" namespace eval ::TkTags { variable tags variable widgets proc ::TkTags::Lempty {list} { if {[catch {llength $list} len]} { return 0 } return [expr $len == 0] } proc ::TkTags::Lremove {list
• widget::dialog
  13 Feb 2016 — a ttk::frame and should therefore show the same behaviour as the underlying widget. default value: 0 -parent Specifies the name of the parent widget default value: "" -place default value: center Specifies
• widget:colorDialog
  05 Sep 2012 — 0 _colorDialog$win ar eval $ar(command) [$ar(display) cget -bg] } proc widget:colorDialog:instanceCmd {self cmd args} { switch -- $cmd { command { upvar #0 _colorDialog$self ar set ar(command) [lindex $args 0
• widget:repeaterButton
  26 Aug 2012 — W_ok 0} return $w } pack [RepeaterButton .rb -text incr -command {incr i}] pack [RepeaterButton .rb2 -text decr -command {incr i -1}] pack [label .l -textvariable i] set i 0 ====== ---- [GPS] I
• widget:resizeHandle
  11 Oct 2011 — if {$newWidth < $ar(minWidth) || $newHeight < $ar(minHeight)} { return } if {$internal == 0} { if {$ar(resizeWinX) >= 0} { set newX "+$ar(resizeWinX)" } if {$ar(resizeWinY) >= 0} { set newY "+$ar(resizeWinY)" } wm geometry $resizeWin ${newWidth}x
• Widgets on a canvas
  31 Jan 2016 — 20 w1 1 x2 50 w2 8 \ t1 500 title "Neuronal Processing" \ s1 0 s2 0 sum 0 out 0 } proc int x { expr int($x) } proc Calc x { #: Calculate results + update
• Widgetscopy
  27 Dec 2017 — used to instrument just your app's widgets you want to inspect. [Widgetscope] **Download** ****'''wscope 1.0''' [https://sourceforge.net/projects/irrational-numbers/files/wscope-1.0b.zip/download] **** **Install the package
• Wiki Conversion OddMuse To Confluence
  24 Jul 2008 — a cleaner way to do this without the repetition? while { [regsub -all {(\[\[[^] ]+) (.+?\]\])} $thebody {\1_\2} thebody] > 0 } {} # then make the double brackets single brackets regsub -all {\[\[(.*?)\]\]} $thebody {[\1]} thebody # various single-bracketed
• Wiki format to HTML
  09 Jul 2011 — lindex $s 0] -> title] { set s [lreplace $s 0 0] } else {set title $fn} set ofn [file rootname $fn].htm set fp [open $ofn w] set pre 0; set p 0 puts
• Wiki hierarchical table of contents
  26 Aug 2012 — node name proc getHtmlTreeFromGraph {graph {node 0}} { global visitedNodes puts -nonewline "<li>[Wiki - $node.html]" if {[lsearch $visitedNodes $node] < 0} { if {[$graph node degree -out $node] > 0} { puts <ul> } puts "" lappend visitedNodes
• Wiki History Diff
  27 Sep 2012 — l0 selection clear 0 end .l0 selection set 1 .l0 selection anchor 1 event generate .l0 <<ListboxSelect>> .l1 selection clear 0 end .l1 selection set 0 .l1 selection anchor 0 event generate
• Wiki Revision History Feature
  18 Sep 2006 — list] set opentag 0 foreach word [split $line " "] { if { $opentag || [string first "<" $word] > -1 } { set opentag 1 append thisline " $word" if { [string last ">" $word] > [string last "<" $word] } { set opentag 0 } } else { if
• Wiki Revision History Feature via tclhist
  16 Jul 2009 — list] set opentag 0 foreach word [split $line " "] { if { $opentag || [string first "<" $word] > -1 } { set opentag 1 append thisline " $word" if { [string last ">" $word] > [string last "<" $word] } { set opentag 0 } } else { if
• WikiDiff
  08 Jun 2006 — a version as specified below into a list index proc getVersionIndex {version} { if {[string index $version 0] == "-"} { return end$version } else { return $version } } # Versions can be specified as an absolute positive version
• WikIndent
  27 Sep 2012 — convert {} { .out delete @0,0 end set x [.in get @0,0 end] set y {} foreach l [split $x "\n"] { set y "$y $l\n" } .out insert @0,0 $y } text .in
• WikIndenTk
  07 Sep 2013 — get 1.0 end-1chars] .t delete 1.0 end-1chars .t insert 1.0 [pp $src] } proc indentAtLine {str nr} { set allLines [split $str \n] set lines [lrange $allLines 0 [expr
• WikiRun
  25 Jul 2009 — is a 'script'. 0 if not. foreach line [split $text \n] { set line [string trimright $line] if { [string length $line] > 0 && \ ![string equal [string index $line 0] " "] } { return 0 } } return 1 } set
• Wikit DB Repair
  03 Jun 2007 — with comments. ---- package require Mk4tcl package require fileutil encoding system utf-8 set dbf [lindex $argv 0] set histdir [lindex $argv 1] foreach f [glob -tails -directory $histdir *] { if {[string match .* $f
• Wikit run in a Slave Interpreter on TclHttpd
  27 Jun 2007 — Session_Destroy $session } proc WktProcess {session query} { upvar #0 Session:$session state set interp $state(interp) global auto_path WktDir set WktCGI_LineNumber 0 set html "" # Redirect the read and puts in
• Wikit web change + div tag css style
  05 May 2011 — dynamic.css" export WIKIT_CSS WIKIT_EMAIL="<<ServerAdminEMail>>" export WIKIT_EMAIL if [ ! -f .../tclkit ]; then echo "wiki.cgi not configured" exit 0 fi exec .../tclkit .../wikit.kit .../rouge39.tkd [LGT] <<categories>> Wikit
• Wikit web Preview button
  15 Jul 2009 — Save" + cgi_puts " [nbspace] " + submit_button "Action=Cancel" + # end of change, 03-09-2003 + if {$date != 0} { + cgi_puts " [nbspace] [nbspace] [nbspace] " + cgi_puts [italic "Last saved on [bold $date]"] + } + p + cgi
• Wiklet Test Page
  01 Sep 2013 — cy] ;# Coordinates for the lobe for {set theta 0} {$theta < $gamma} {incr theta} { ;# Polar angle set a [expr {$theta * 180.0 / $gamma}] ;# Angle in 0-180 range set a1 [expr {$theta + $l
• wiklets
  20 Jan 2013 — proc extractTclSourceCode wikiText { set stream [Wikit::Format::TextToStream $wikiText] set pre {} while {[llength $stream] > 0} { if {[lindex $stream 0] == "Q"} { append pre [lindex $stream 3]\n set stream [lrange $stream 4 end
• William Jeffrey Rankin
  27 Aug 2012 — bin/sh # -*- tcl -*- # The next line is executed by /bin/sh, but not tcl \ exec tclsh "$0" ${1+"$@"} package require http set base_url http://antwrp.gsfc.nasa.gov/apod set site
• window::or
  21 Jul 2012 — Identifier: window::or Version: 0.1.1 Title: A package to facilitate fullscreen windows. Creator: Mark G. Saye <markgsaye@gmail.com> Description: Provides routines for handling borderless windows i.e. windows which
• Windows batch script for 'compiling' starpacks
  02 Nov 2008 — csp.bat - Compile StarPack rem (C) M.Hoffmann, 2003-2006 rem 06.04.2006 rem v2.0: generische Version (zuvor: individuelle compile.bat`s) rem Arg: sh = Textmode-Tclprogramm erzeugen (sonst GUI
• Windows Desktop modifications with Ffidl
  12 Nov 2015 — dll_IsWindowVisible $hWnd] switch $mode { "toggle" {if {$isVis} {dll_ShowWindow $hWnd 0} {dll_ShowWindow $hWnd 4}} "hide" {dll_ShowWindow $hWnd 0} "show" {dll_ShowWindow $hWnd 4} } } # ------------------------------------------------------------------------ # from generic_1.tcl tG2 wrapper
• Windows Environment Path
  17 Aug 2012 — proc ::pathedit::moveup { } { variable list variable pathlist set selIndex [ $list curselection ] if { ( [ string length $selIndex ] > 0 ) && ( $selIndex > 0 ) } { set swapIndex [ expr { $selIndex - 1 } ] set select [ lindex $pathlist $selIndex ] set swap [ lindex $pathlist
• Windows file finder
  02 Nov 2008 — 0 .menubar add cascade -label "New Search" -menu .menubar.new -underline 0 menu .menubar.file -tearoff 0 .menubar.file add command -label Exit -underline 1 -command { exit} menu .menubar.new -tearoff 0
• Windows Helper Utilities
  13 Feb 2016 — Available) is 0 for no disk present or 1 if a disk is present. this lets you know whether the drive contains removable media or not. - myDisk($disk,Writable) is 0 if
• windows icons
  27 Mar 2013 — ico pack [label .l -textvariable state] image create photo temp48 -file $orig ::ico::writeIcon $icoFile ICO 0 8 temp48 set pos -1 foreach s {48 32 16} { set name [format "temp%s
• Windows Inspection Tool Set
  17 Sep 2017 — Daily Certified virus definitions. Threat Assessment Wild Wild Level: Low Number of Infections: 0 - 49 Number of Sites: 0 - 2 Geographical Distribution: Low Threat Containment: Easy Removal: Easy Damage Damage Level: Low
• Windows Installer
  02 Nov 2007 — is no # error handling as such. # MSI related stuff requires at least V2.0 package require twapi 2.0 # Array to map product state codes to display strings array set product_state
• Windows Internet connection monitor and repair tool
  06 Jan 2012 — set connection 0; writelog "Timed Out"} default {set connection 0; writelog "Default Used"} } if {$connection == 0} { catch {exec c:\\batch\\devcon.exe disable @USB\\VID_07B8&PID_6001\\6&3534C65&0&5
• Windows Mobile 2003 Smartphone
  14 Oct 2013 — titlebar underlaps the CE titlebar set root $PRIV(root) ;# ADD THIS LINE wm geometry $root +0+0 Perhaps [Jeff Hobbs] has this fixed in later versions. JC's WindowsCE build of Tclkit
• Windows OS name
  22 May 2016 — windows_os { array set desktop_versions { 10.0 {Windows 10} 6.3 {Windows 8.1} 6.2 {Windows 8} 6.1 {Windows 7} 6.0 {Windows Vista} 5.2 {Windows XP 64
• Windows Registry Browser
  16 Nov 2011 — 0 add_nodes $tw root $key 0 $tw configure -redraw 1 update destroy .prg } proc max args { if {[llength $args] == 1} { set args [lindex $args 0] } lindex [lsort -dict -dec $args] 0
• Windows Shell Fix Source
  02 Nov 2008 — uses dbgputs # =========================================================== upvar $a b dbgputs "List $a Contains [llength $b] Item(s):" dbgputs "==============================" set i 0 foreach c $b { dbgputs "Item $i=\[$c\]" incr i } ;# END-FOR dbgputs "==============================" } ;# END-PROC proc
• Windows shell links
  29 Jul 2012 — flags) & 2 > 0 && $structlen > 0} { struct $fh * nextstruct i flflags i lvt i lvbp i nvt i path i set nextstruct [expr {[tell $fh] + $structlen - $nextstruct}] if {($flflags & 1) > 0} { seek $fh
• Windows specific Tcl commands
  06 Sep 2013 — network information. * (broken link) RichText widget [ftp://multimedia.cc.gatech.edu/pub/multimedia/pub/tk-rtf-0.1.tar.Z] is a Tk based reader of RichText files. * (broken link) Tkwav [http
• Windows Speed Cleaning
  28 Nov 2005 — Removes registry value # tclsh SpeedClean.tcl restore => Restores registry value package require registry switch -- [lindex $argv 0] { restore {set Value "{B50F5260-0C21-11D2-AB56-00A0C9082678}"} default {set Value ""} } registry set \ {HKEY_LOCAL
• Windows WAVE volume control using Snack
  31 Jan 2016 — if {[snack::audio play_gain] < [lindex $argv 0]} { set in 1 } { set in -1 } for {set i [snack::audio play_gain]} { $i != [lindex $argv 0]} {incr i $in} { snack::audio play_gain
• Windows XP: volume control
  19 May 2018 — MIXER, 0, 0, 0); MIXERLINE ml = {0}; ml.cbStruct = sizeof(MIXERLINE); ml.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS; result = mixerGetLineInfo((HMIXEROBJ) hMixer, &ml, MIXER_GETLINEINFOF_COMPONENTTYPE); MIXERLINECONTROLS mlc = {0}; MIXERCONTROL mc = {0}; mlc
• Windows/CE
  30 Jul 2016 — of eTcl (based on 8.5.0) does not install with CE machines. The installer refuses due to a complained compatibility issue. However, the elder CE3.0 distribution of eTcl do allow
• Windows: getting desktop properties
  15 Oct 2008 — TitleText Window WindowFrame WindowText MenuHilight MenuBar All color settings are returned as RGB triplets example: 0 0 0 This procedure converts the value to HEX. ---- A desktop property of another sort is
• Windows: volume control
  12 Oct 2017 — EXIT_ON_ERROR(hr) if (set) { float got = (float) vol / 100.0; // needs to be within 1.0 to 0.0 hr = g_pEndptVol->SetMasterVolumeLevelScalar (got, NULL); EXIT_ON_ERROR(hr) } hr
• winfo reqwidth
  13 Jan 2014 — frame (for instance), the requested size of that frame does not reduce: % frame .f -width 0 -height 0 .f % label .f.l -text "Hello World" .f.l % pack .f.l % winfo reqwidth
• winfo rgb
  10 Jul 2012 — than the full cartesian product ([[0-65535]],[[0-65535]],[[0-65535]]) one might otherwise expect. This presented with [VNC] service for which winfo rgb . #ffff1fffffff is 65535 0 65535 rather than the
• winfo screen
  02 Aug 2018 — of the screen associated with window, in the form displayName.screenIndex. On return on Windows 64 / w7 utl return floating integer in form of string value ':0.0'. <<categories>>winfo,tcl.tk
• WinGdi
  28 Sep 2018 — WinGdi 1.0''' [https://sourceforge.net/projects/irrational-numbers/files/WinGdi-1.0.zip/download] 2-Oct-2013 **** Demos, TestSuite and full documentation included. <<discussion>> WinGdi: What's New ====== 1.0 -- First
• winico
  13 Aug 2018 — 0 .guiWinicoPopup add command -label "CMD1" -command {puts CMD1} } set hWinNotify [::twapi::Twapi_GetNotificationWindow] ::twapi::set_foreground_window $hWinNotify .guiWinicoPopup post $xPos $yPos .guiWinicoPopup activate 0 ::twapi::PostMessage $hWinNotify 0 0 0
• winpm
  21 Oct 2015 — events. The extension is hosted at https://github.com/kostix/tkwinpm and is now at version 0.1 (first public release). (Before 2015-10-21 the project has been hosted on Google
• winsend
  10 Nov 2015 — 2003: Released winsend 0.6 which now supports the TEA2 build system. Builds with Msys + Mingw or VC++ 6.0. ---- MiR 2015-11-10 Tried winsend package Version 1.0 from sourceforge
• Winserv
  12 Mar 2010 — to build the starpack) looks like this: global argv if { [string equal [string toupper [lindex $argv 0]] "SERVICE"] } { # Service mode cd "[lindex $argv 1]" } \ else { # Non-Service 'configure' mode, started as a
• winutils
  09 Jan 2012 — net/project/showfiles.php?group_id=1616&release_id=89891 http://prdownloads.sourceforge.net/tomasoft/winutils-0.6.zip ---- As the "directory watching" ability of winutils appears to undocumented, here is some
• WippleWobble - A Mini Web Browser (for Windows)
  21 Apr 2012 — force $win} } proc setOptions {} { option add *Button.pady 0 option add *Button.padx 1 option add *Button.borderWidth 1 } proc loadLocation {win} { upvar #0 _${win}ar ar if {[catch {$ar(htm) navigate
• wish application template
  22 Sep 2003 — for starting a typical wish application. #! /bin/sh # the next line restarts using wish \ exec wish "$0" ${1+"$@"} package require -exact Tk $tcl_version This is a little more sophisticated than the
• WISH Color Picker
  19 Oct 2011 — PaleGreen4} \ {0 255 127 SpringGreen1} \ {0 238 118 SpringGreen2} \ {0 205 102 SpringGreen3} \ {0 139 69 SpringGreen4} \ {0 255 0 green1} \ {0 238 0 green2} \ {0 205 0 green3} \ {0 139 0
• WISH Color Picker Plus
  14 Apr 2010 — colordir [file join $wishdir colorschemes] if {[file isdirectory $colordir] == 0} { file mkdir $colordir } # WISH Color Picker Plus isn't yet loaded: set coloron 0 # Initialize lists of Tk widgets for color display
• WISH File Rusher
  27 Sep 2012 — close $linkup .uhelp.tx insert 1.0 $helpcontents helplink .uhelp.tx; # Show links in text--from WISH User Help .uhelp.tx mark set insert 1.0 .uhelp.tx configure -state disabled } ====== 3
• WISH List
  15 Mar 2015 — for keeping track of lists of books, people, papers, recipes, etc. Requires Tcl/Tk 8.4. Currently at version 0.1.2 . Updated: 11/2006 Contact: See web site <<categories>> Application | PIM
• WISH User Help
  14 Apr 2010 — close $linkup .uhelp.tx insert 1.0 $helpcontents helplink .uhelp.tx; # Show links in text--from WISH User Help .uhelp.tx mark set insert 1.0 .uhelp.tx configure -state disabled } 3
• withOpenFile
  29 Sep 2018 — 3} { error {wrong # args: should be "withOpenFile channelIdName filename ?access? ?permissions? script"} } upvar 1 [lindex $args 0] channelid try { open {*}[lrange $args 1 end-1] } on ok channelid { uplevel 1 [lindex $args
• Wize - Wish Integrated Zip Executable
  25 May 2018 — 5a5. Are there any plans to bring Wize up to Tcl 8.6beta? [PCM]: Wize 3.0, but that won't be for a while yet. [SEH]: Also, I couldn't find
• wjk canvas drag-n-drop sample
  28 Apr 2016 — photo image photoimage. set returnThis [catch {image create photo -format window -data $canvasID} photoimage] if { $returnThis != 0 } { puts "\nERROR: Cannot create photo!!!" exit 1 } return $photoimage } canvas .c1 -width 460 -height 350
• WLC Config Backup
  26 Aug 2013 — usr/bin/expect set router [ lindex $argv 0] set username [ lindex $argv 1] set password [ lindex $argv 2] spawn ssh $router #log_user 0 set timeout 10 expect "(yes/no)?" { send "yes
• wm client
  24 Oct 2010 — should also use the [wm command] command to set the application command, the most basic way being: ====== wm command . [linsert $argv 0 $argv0] ====== <<discussion>> ---- **See also** * [ICCCM] * [wm] * [wm command] <<categories>> Command
• wm command
  24 Oct 2010 — to start that application. The most basic way to do this is: ====== wm command . [linsert $argv 0 $argv0] ====== You should also use the [wm client] command to set the application client, thus
• wm geometry
  04 Dec 2015 — y may be positive and negative integers. Thus, the following may happen: ====== % wm geometry . 200x200+-1024+0 ====== ****Negative x positions**** On Windows, the x (and probably also y) positions may be negative
• wm iconbitmap
  22 May 2015 — a string as input to iconbitmap yet ? ---- [Boltar] I'm using Tcl/Tk 8.4.6.0 on a Windows2000 system. On Windows many applications store their icon inside the executable file
• wm overrideredirect
  18 Aug 2012 — flag for ''window'' is set to that value. If ''boolean'' is not specified then 1 or 0 is returned to indicate whether or not the override-redirect flag is currently set for
• wm resizable
  09 Feb 2012 — such operation then the window's natural size will be used. <<discussion>> ====== wm resizable $win 0 0 ====== seems to "inactivate" the "maximum" button with some (which?) [window manager]s. <<discussion>> ---- **See also
• wm withdraw
  13 Jan 2014 — from showing up and block your app. Better to use something like: ====== wm geometry . 1x1+0+0 wm overrideredirect . 1 wm transient . ====== You can even send it out of the visible part
• Woof!
  18 Mar 2017 — error Woof application failed to start properly In apache log I found [error] [client 127.0.0.1] Request exceeded the limit of 10 internal redirects due to probable configuration error. Use
• Word Clock
  05 Mar 2015 — if {$second == 0} { lappend english "exactly" } elseif {$second == 1} { lappend english "and" "one second" } else { lappend english "and" [lindex $::WordNumbers $second] "seconds" } lset english 0 [string totitle [lindex $english 0]] return $english
• Word Reaper
  21 Sep 2005 — if 0 {[Richard Suchenwirth] 2003-06-03 - The following proc was written to extract the text content from a (Microsoft) Word document, via [dde] and the clipboard. It's still not pretty
• WordDiff
  11 Nov 2008 — empty } { lappend html "<span class=$tag>" } lappend html "$html[lindex $word 0]" set oldtag $newtag } else { lappend html [lindex $word 0] } } All that remains is: set html [join $html " "] regsub -all $linesep
• wordnet
  02 Nov 2016 — wordnet.princeton.edu/cgi-bin/webwn] and an off-line version [http://wordnet.princeton.edu/wn2.0.shtml]. The off-line version is avalable for [Windows] and [Unix]. It is mentioned here
• Working with binary data
  13 Mar 2012 — strings as sequences of Unicode characters. That is, each character can have any Unicode value from 0 to 0xFFFF. (Surrogate pairs can be used to express characters beyond this Basic Multilingual Plane
• Workplace
  12 Nov 2006 — What: Workplace Where: http://www.teamwave.com/ Description: Commercial release of Tcl/Tk 8.0 internet groupware product that lets you work together with colleagues in real time or asynchronously, using Macintosh
• World-wide whiteboard
  25 Jan 2014 — 47.0 53.0 47.0 53.0 48.0 68.0 50.0 73.0 52.0 87.0 54.0 103.0 57.0 109.0 60.0 114.0
• Worldtime-clock
  08 May 2015 — 1024x768: console eval {wm geometry . 56x25+550+0} proc q {} {exit} proc every {ms body} { if 1 $body after $ms [list after idle [info level 0]] } proc c1 {} { console eval {.console config
• wrap
  02 Sep 2013 — dash patches. Stand-alones are much smaller than other methods and do not need any special DLLs to be installed. ** Attributes ** current version: 0.3 release time: 2001? <<categories>> Application | Dev. Tools
• Wrapping a procedure
  23 Oct 2013 — ns] # Install new proc, passing $next as first parameter interp alias {} $name {} ::apply \ [list [linsert $params 0 next] $body $ns] $next return $name } ====== We can then do stuff like the following: ====== proc
• wrapping commands
  24 Oct 2013 — args: should be\ \"[lindex [info level 0] 0] reverse string\"" } set returnValue "" set string [lindex $args 0] set length [string length $string] while {[incr length -1] >= 0} { append returnValue [string index $string
• Wrapping external commands with Tcl
  01 Jul 2011 — puts "Enter expression:" set ex 1 puts -nonewline "bc $ex> " flush stdout while { [gets stdin input] >= 0 } { if { $input == "quit" } { break } puts $fe "$input" flush $fe incr ex gets $fe newans puts
• Wrapping The Text Of The Columns Of Widget tablelist::tablelist
  21 Nov 2014 — wrap true 3 -wrap true ... $colCount -wrap true } set lst {} set colCount [.mytablelist columncount] for {set col 0} {$col < $colCount} {incr col} { lappend lst $col -wrap true } .mytablelist configcolumnlist $lst ====== <<categories>>tablelist
• Write PNG File (without using Tk)
  20 Aug 2014 — 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
• Writing a TclOO Method in C
  15 Jul 2018 — argument parsing. Note the offset from 'skip'. */ int foo, bar; if (Tcl_GetIntFromObj(interp, objv[skip+0], &foo) != TCL_OK || Tcl_GetIntFromObj(interp, objv[skip+1], &bar) != TCL_OK) { return TCL_ERROR
• Writing a Windows icon file
  20 Jan 2012 — text 24 ; # BitCount putdword text 0 ; # Compression putdword text [expr {$size - 40}] ; # SizeImage putdword text 0 ; # XPelsPerMeter putdword text 0 ; # YPelsPerMeter putdword text 0 ; # ClrUsed putdword text 0 ; # ClrImportant # create icon bitmap
• Writing case insensitive procedures using unknown
  25 Mar 2010 — example: rename unknown unknown_orig proc unknown {args} { set cmd [lindex $args 0] set parent [join [lrange [split $cmd :] 0 end-2] :] set tail [namespace tail $cmd] set found [list] foreach ncmd
• Writing extensions for stubs and pre-stubs Tcl
  06 Mar 2015 — and pre-stubs (8.0) Tcl, both using the Tcl_Obj interface (so nothing prior to 8.0). Perhaps people can add extras for different compilers/platforms... 8.0 and 8.1
• Writing HTML as if it were Tcl
  30 Jun 2016 — info level 0] 1 end]} ::proc $name $arglist [format $template [list $func]] } } proc html::gen::buildscript {level args} { upvar 1 script script append script {*}$args set retval "" set rc 0 if {![string
• Writing JPEG comments
  22 Apr 2017 — set clen [binary format S [expr {[string length $comment] + 2}]] if {[info exists com]} { seek $fh 0 start set data1 [read $fh [expr {$com - 2}]] binary scan [read $fh 2] S len
• Writing PPM files
  11 Aug 2010 — image act_width act_height command args } { variable $image upvar 0 $image img if { $command == "save" } { set outfile [open [lindex $args 0] "w"] puts $outfile "P6" puts $outfile [expr {$act_width-2
• writing readable, manageable, reusable Tk
  01 Sep 2015 — bold}}} -width 0 {{ -yscrollc {!Lv set}}} } {-fill y -expand 0} V+b { E/Vars:Logo::data(_vars) {0} {-fill x} H+b { T { } T {Programme: } B {{Save} {turtleSave [!Prog get 0 end
• Writing Tcl-Based Applications in C
  17 Jun 2015 — return TCL_ERROR; } if (strcmp(argv[1], argv[2]) == 0) { interp->result = "1"; } else { interp->result = "0"; } return TCL_OK; } ====== [AMG]: Since 8.0, Tcl has snazzy object-based commands wherein '''char
• Writing to Your Starkit
  18 Nov 2012 — vfs back into the real world: proc FileExtract {} { set index [.archive.lst curselection] if {[llength $index] == 0} { tk_messageBox -title "Ups" \ -message "You must select a file for this action." \ -type ok
• WSCP
  11 Sep 2012 — 5 of WebSphere, WSCP has shipped with a (modified?) [Jacl] 8.0 (1.2.5, in fact) (for WS 4.0, and maybe for 3.5) that permits [Tcl]-simple [scripting] of
• WSDL
  11 Nov 2015 — wsapi -appID <myAppID> -devID <myDevID> -certID <myAuthCert> -siteID 0 -APIversion 439 -authToken <myAuthToken> } if {$argc > 0} { array set a $argv } package require dom 2.0 package require SOAP package require SOAP::https
• Wub
  13 Feb 2018 — text/sgml, */*;q=0.01} etag 6D084DA7CBBF3F51674F9CC444FC7BC0 -session 5 accept-language fr -ipaddr 127.0.0.1 -dynamic 0 -port 8080 -scheme http -Query {} -host xxxxx.xxxxxx -version 1.0 set-cookie
• Wub Step-by-Step
  13 Feb 2018 — Linux/8.6.0/ActiveTcl8.6.0.0b2.291226-linux-ix86-threaded.tar.gz tar -zxvf ActiveTcl8.6.0.0b2.291226-linux-ix86-threaded.tar.gz cd ActiveTcl8.6.0.0b2.291226
• wubwiki stream data
  17 May 2011 — emphasis. # The argument specifies if the emphasis is switched on or off. # The permitted values are 0 (off) and 1 (on). # # Ad 3) These are the markers for the various distinctive sections
• X server insecure: third-party X server
  19 Aug 2011 — a variety of problems when trying to run Tk applications on a Unix platform and displaying back to the Exceed X server (at least through version 10.0.0.12) . <<categories>> Security
• X server insecure: unmanaged local console
  18 Jan 2013 — s%s%s%s|cut -c-32` xauth add unix:0.0 MIT-MAGIC-COOKIE-1 $cookie xauth add `hostname -f`:0.0 MIT-MAGIC-COOKIE-1 $cookie ====== assuming hostname -f gives
• x-files
  30 Nov 2015 — newer, preferably a 3 button mouse, and Unix/X. V2.00 beta 1 requires Tcl 8.0 or higher, and includes ftp support as well as other things. Note that the primary
• X.509v3 Certificate Viewer example
  14 Feb 2015 — close $fd set lines [split $data \n] set hlines 0 set total 0 set headers "" set head_banner "" set foot_banner "" set first 0 foreach line $lines { incr total if {[regexp {^-----(.*?)-----$} $line
• X10
  17 Apr 2010 — net. What: TkX10 Where: http://www.houseofhack.com/tkx10/ ftp://ftp.hackboy.com/pub/tkx10/tkx10-0.91beta.tar.gz http://www.prado.com/%7Edbs/ Description: Perl/Tk frontend for heyu Updated
• X10-mr26a
  23 Oct 2008 — chid} { global olddata oldtime set newtime [clock clicks -milliseconds] set msg [read $chid] .t1 insert @0,0 . ;#data received if {[string equal $msg $olddata]} { if {[expr $newtime - $oldtime] < 200} { set oldtime $newtime
• Xapian
  14 Feb 2016 — generated Tcl binding, properly packaged as a [stubs] enabled Tcl package since version 0.8.4. Releases 1.0.6 and earlier had a few bugs associated with the installation location, but
• Xbit
  05 Aug 2013 — digital cameras, save to/from clipboard, etc. Be sure to examine license.| || Currently at version 4.0 .| | Updated:| 04/2004| | Contact:| mailto:chengye.geo@yahoo.com (Chengye Mao)| ---- How about making a
• XBM
  10 Sep 2012 — eighthwid [expr $bimwid / 8.0] set eighto [split $eighthwid "."] if { [lindex $eighto end] == 0 } { set xbd_half [lindex $eighto 0] } else { set xbd_half [expr [lindex $eighto 0] + 1] } set xbd_width
• xbody
  09 Oct 2014 — hook} $hooks { if {[string first $name\{ $word]==0} { set word [hook $hook [string range $word [string length $name] end]] } } lappend line $word } if {[lindex $line 0] in {if while for foreach}} { # process
• XChat plugin
  17 Aug 2010 — that filters all channel action events. ====== #!/usr/bin/env tclsh set script ijchainIgnoreStatus.tcl set ver 0.1 print "*** \0038,2 $script v$ver loaded \003" on XC_CHANACTION checkStatus { if {[string
• XCircuit
  06 Nov 2014 — com/xcircuit/xcscreensmall.gif] !!!!!! * Where: http://opencircuitdesign.com/xcircuit/ * Related: http://opencircuitdesign.com/pcb/ (PCB 3.0 is a Tcl/Tk branch of a printed circuit board layout designer tool, which can
• xcursor
  22 Jan 2011 — Tcl_InitStubs(interp, "8.5", 0) == NULL) return TCL_ERROR; if (Tk_InitStubs(interp, "8.5", 0) == NULL) return TCL_ERROR; if (Tcl_PkgProvide(interp, "xcursor", "0.1") == TCL_ERROR) return TCL
• Xdobry
  27 Sep 2012 — sqlite it can be used without additional relational database. Xdobry is developed with [XOTclIDE] Up version 0.40 xdobry allows to design database schemas. It also can migrate schema and data between
• XESS Tk interface
  02 Jan 2014 — t/tclXess/1.0.0B/tclXess-1.0.0B.tar.gz%|%tclXess-1.0.0B.tar.gz] ([http://ftp.sunet.se/pub/lang/tcl/alcatel/extensions/tclXess-1.0.0B.tar.gz
• XF
  11 Oct 2013 — pub/tcl/mirror/ftp.procplace.com/sorted/packages-7.6/graphics/xf4.0-pl1/xf4.0-pl1.tar.gz%|%xf4.0-pl1.tar.gz]: ** Attributes ** website (wayback): http://web.archive.org/web
• Xilinx Spartan 3 Demo rs232 clock set
  21 Sep 2012 — puts $fh $a ; flush $fh} for {set i 0} {$i <=7} {incr i} {s "led$i on" ; after 1; update} for {set i 0} {$i <=7} {incr i} {s "led$i off
• xk2600
  27 Aug 2018 — true (has a default value), 0: false (there is no default value) % puts [info default procInfoExample arg1 ret] : $ret 0 : % puts [info default procInfoExample arg2 ret] : $ret 0 : % puts [info default procInfoExample
• xlistbox
  14 Jan 2012 — xlb'insert w { set sel [$w curselection] if {$sel eq ""} {set sel 0} $w insert $sel "" $w selection clear 0 end $w selection set $sel foreach {x0 y0 x1 y1} [$w bbox
• Xmas Stars
  27 Dec 2013 — rot) * $maxd / 2.0 + $ypos}] lappend star [expr {cos($inc * ($i + 0.5) + $rot) * $mind / 2.0 + $xpos}] lappend star [expr {sin($inc * ($i + 0.5) + $rot) * $mind / 2.0 + $ypos}] } return
• Xmas tree
  01 Jun 2014 — WikiDbImage xmas.jpg] ---- ====== package require Tk proc every {ms body} {eval $body; after $ms [info level 0]} proc lpick list {lindex $list [expr {int(rand()*[llength $list])}]} proc Candle {id} { set Color
• XML as dict structure
  24 Aug 2018 — ranges eq ""} then { set src } else { lappend result0 [string range $src 0 [- [lindex $ranges 0 0] 1]] foreach\ range0 [lrange $ranges 0 end-1]\ range1 [lrange $ranges 1 end] { lappend result0 [string
• XML Clean-Up
  28 Nov 2013 — item] > 0 } { # Write data to the non-visible textbox .tb2 insert end "[join $tabs]$item\n" } } ; # end placeData proc CleanUp {xml} { catch {destroy .tb2} text .tb2 # Gather XML Content set indentlevel 0
• XML DOM Tk Text Browser Editor
  09 Jun 2011 — nodeName] 0]$lineno left $w tag add [lindex [$node nodeName] 0]$lineno startend[lindex [$node nodeName] 0]$lineno \ end[lindex [$node nodeName] 0]$lineno $w tag configure [lindex [$node nodeName] 0]$lineno
• XML pretty-printing
  09 Jun 2011 — s a pure-Tcl pretty-print proc: ====== proc pretty-print {xml} { set ident 0 set idx1 0 set idx2 0 set buffer "" set result "" regsub -all {>\s+<} $xml {><} xml; # remove whitespace (newlines
• XML Query
  25 Jan 2017 — xquery/%|%XQuery]''' is an [XML] [query language]. It is tightly connected to [XPath] 2.0 and [XSLT] 2.0. At the moment no Tcl implementation exists, partially because XQuery uses [XSD schema
• XML Tree Walking
  11 Oct 2011 — lappend stack $next } return $next } ################################################################ # # Demo code # set XML {<?xml version="1.0" encoding="ISO-8859-1"?> <loc version="1.0" src="Groundspeak"> <waypoint> <name id="GCGPXK"><![CDATA[Playing Poker with the
• XML/tDOM encoding issues with the http package
  27 May 2011 — upvar #0 $token state if {[http::status $token] != "ok" || [http::ncode $token] != 200} { # was the error a redirect? If so, do it.. if {[http::ncode $token] == 302 && [incr recurse_limit -1] > 0
• XML_Wrapper
  28 Nov 2013 — the fly from xml file. For example, this xml file will produce form: ====== <?xml version="1.0" encoding="UTF-8"?> <form> <container type="frame" pos="hor" expand="no"> <line></line> <label>Test
• xmlgen / htmlgen
  22 Feb 2016 — generate XML; htmlgen is built on top of xmlgen to generate HTML.| ||Currently at 1.4.0.| |Updated:|05/2002| |Contact:|mailto:pifpafpuf@gmx.de (Harald Kirsch)| ** See Also ** [XML Clean-Up
• xmpp
  30 Mar 2015 — to XMPP which add support for such things like multi-user chat (think of "IRC 2.0"), which powers the [Tcl chatroom], file transfers, and even VoIP calls and video conferencing. Gateways
• xoins
  10 Sep 2007 — 748 microseconds per iteration With Tcl 8.5a2 and '''Snit 2''': Snit 2.0 vs Xoins (XOTcl 1.4.0 & Tcl 8.5a2) Creation and destruction...(using %AUTO%) Snit : 594 microseconds per
• XOSql
  23 Sep 2012 — mysql::__#0 % ::mysql::__#0 rows 436 % ::mysql::__#0 columnNames componentid name defcounter basedon timestamp versioninfo isclosed userid infoid % ::mysql::__# fetch 46 xdobry::FormServer 1 {} 20011017183902 {[import] 1.0} 1 1 {} % ::mysql::__#0
• xotcl for prototyping
  18 Sep 2006 — namespace or using object. We will use the second using XOTcl Object counter counter set count 0 counter proc add { val } { my set count [expr [my set count] + $val] } counter proc decr
• XOTcl Objects as Tcl Commands with subcommands
  10 Oct 2011 — while {[string length $s]>$width} { set pos [string wordstart $s $width] lappend res [string range $s 0 [expr {$pos-1}]] set s [string range $s $pos end] } lappend res $s } string proc
• XotclIDE
  06 Oct 2017 — XOTclIDE with XOTcl 2.0 ** XOTclIDE uses in version up to 0.84 absolute object names as method names for the meta-data object “@”. Version 0.85 of XOTclIDE changed
• XOTclIdeWishes
  02 Mar 2014 — home dir, I prefer use it, otherwise registry. ATK: OK. planned for next release - Up from 0.71 there are preferences importing/exporting function to file '''ad 6''' - XOTclIDE has one plugin
• XOWidget
  02 Oct 2012 — path args} { set wclass [transpose $class] if {[string index $path 0] ne "."} { return [uplevel 1 [linsert $args 0 $wclass $path]] } set i 0 while {[llength [info commands ::Widget$i$path]]} { incr i
• XPath
  28 Jul 2015 — e } join $res / } proc in {list el} {expr {[lsearch $list $el]>=0}} proc has {substr str} {expr {[string first $substr $str]>=0}} ====== #-- Testing: % XPathNS NN /a/b/c /NN:a/NN:b
• XPM to photo image
  02 Feb 2012 — stage 0; # 0:dimensions 1:colors 2:data set ncol 0; set y 0 set bg white ;# or whatever while {![eof $f]} { gets $f line if {[regexp {\"([^\"]+)\"} $line -> cont]} { switch $stage { 0
• XSLT
  10 Sep 2012 — is free to choose any prefix for the extension namespace.) For example, <xsl:stylesheet version='1.0' xmlns:xsl='http://www.w3.org/1999/XSL/Transform' xmlns:eg='http://www.zveno.com
• xtcl
  19 Sep 2012 — puts -nonewline $fh $contents close $fh } } } # # main code # # match global flags while {[llength $argv] > 0} { switch -- [lindex $argv 0] { -to { set xtcl::toDirectory [lindex $argv 1] set argv [lrange $argv 2 end
• XTeXShell
  26 Aug 2012 — version 1.4.| |Updated:|01/2001| |Contact:|See web site| [KJN] The version in CTAN is 0.91 and dates from 1994. It will not run unpatched. Is there a version 1
• xtk::bindings
  30 May 2016 — xtk::bindings ?0.1?` `::xtk::bindings::combobox <Win>`: Activate (search) bindings for <Win>.<<br>>[xtk::bindings-Image-1] ** Download ** Version 0.1: [http://download.lima-city.de/lifax/xtk_bindings-0.1
• xtk::notebook
  31 May 2016 — Version 0.1: [http://download.lima-city.de/lifax/xtk_notebook-0.1.zip%|%xtk_notebook-0.1.zip%|%]<<br>>(updated version concerning the addTab error) ** Usage ** `package require xtk::notebook ?0
• xtk::theme
  30 May 2016 — lima-city.de/lifax/xtk_theme-0.2.zip%|%xtk_theme-0.2.zip%|%] ** Usage ** package require defColor ?0.3?<<br>> package require xtk::theme ?0.2? COMMAND `::xtk::theme::ttk::init
• xtk::theme::rivet
  30 May 2016 — gnome' as DESKTOP_SESSION, then the 'gtk2' colors will be used. ** Download ** [http://download.lima-city.de/lifax/xtk_theme_rivet-0.2.zip%|%xtk_theme_rivet-0.2.zip%|%] <<categories>> GUI
• xtk::wm
  30 May 2016 — H]. Example:<<br>> ArrayName(0) [list 0 0 2240 768] # Whole screen<<br>> ArrayName(1) [list 0 0 960 768] # First screen<<br>> ArrayName(2) [list 960 0 1280 768] # Second screen
• xtt: XML <--> Text Tag translator
  01 Mar 2015 — sharing. The main file, ''xtt.tcl'': ====== package require dom 2.0 package require struct # xtt: The XML <--> Text Tag Translator # ver 1.0 # # Copyright (c) 2003 Eric Kemp-Benedict # All Rights Reserved
• xWizard
  27 Sep 2012 — for Tcl extensions on Windows, Linux, Unix, MacOS. Requires TkTable and TkWizard extensions. Currently at version 2.0 . Updated: 08/2002 Contact: mailto:changl@neatware.com (Chang LI) ---- [Chang Li] <<categories>> Application
• xxHash
  18 Nov 2017 — for {set i 0} {$i < 4} {incr i} { append seq [string repeat $i 64] set useCritcl 1 set critcl [xxhash32 $seq 0] set useCritcl 0 set pureTcl [xxhash32 $seq 0] assert-equal
• xybutton
  20 Aug 2017 — raised -borderwidth 4 grid propagate $name.frame 0 grid $name.frame -sticky nsew grid columnconfigure $name.frame 0 -weight 1 grid rowconfigure $name.frame 0 -weight 1 $name.frame configure -background gray65
• yajl-tcl
  11 Feb 2017 — 1.0.12/lib`: ======none -rw-rw-r-- libyajl_s.a lrwxrwxrwx libyajl.so -> libyajl.so.1 lrwxrwxrwx libyajl.so.1 -> libyajl.so.1.0.12 -rwxrwxr-x libyajl.so.1.0
• Yakumo Alpha
  25 Mar 2014 — HKLM\Environment" -n "USER" -v "nobody" REM Debugging trace level (0 to 255) cereg -k "HKLM\Environment" -n "XCE_TRACE" -v "0" REM Debugging trace file output cereg -k "HKLM\Environment" -n
• YAMI
  24 Aug 2012 — Java RMI. Supports FreeBSD, GNU/Linux, MS Windows, SunOS and C, C++, Python, Tcl. Currently at version 3.0.3. Updated: 06/2006 Contact: See web site Author: [Maciej Sobczak] <<categories>> Package
• yao
  17 Mar 2018 — and methdos for OO # and is base for namespace ensemble object. # namespace eval yao { variable count 0 namespace export * namespace ensemble create\ -command ::object\ -unknown [namespace current]::unknown } # # object msg $obj $cmd
• YAXMLP an XML parser
  09 Jun 2011 — it and post results here. Here's revision 2: ====== #By George Peter Staplin set yaxmlp_count 0 proc yaxmlp {} { global yaxmlp_count while 1 { incr yaxmlp_count set token yaxmlp$yaxmlp_count
• Yaz
  21 Apr 2015 — au/net.html (broken link) <<br>> ftp://ftp.algonet.se/pub/index/yaz/ir-tcl-1.0.tar.gz (password required) <<br>> ftp://ftp.funet.fi/pub/doc/library/z3950/yaz/| | Description
• ycl
  11 Aug 2018 — heterogeneous structures. Example: `nxs get $mystruct l {0 3 1} d {name Bob friends} l 5`. To set a nested vale: `nxs set mystruct l {0 3 1} d {name Bob friends
• ycl comm http
  06 Oct 2016 — argv} { dict update argv file file url url {} coroutine http1 http comm url $url relay order 0 http1 set chan [relay receive] if {$file in {stdout stderr}} { set outchan $file } else { set
• ycl coro relay
  12 Aug 2017 — for {set num1 0; set num2 100} {$num1 < $count} {incr num1; incr num2} { dict set tasks add [relay order 0 a1 $num1 $num2] {} dict set tasks mult [relay order 0 m1 $num1
• YE Menus made easy
  08 Feb 2016 — winfo exists $it.m$p]} { menu $it.m$p -tearoff 0 $it add cascade -label $p -menu $it.m$p -underline 0 } append it .m$p } set n -1 foreach {label cmd
• Years, months, days, etc. between two dates
  03 Dec 2013 — tclsh8.3, but fails in tclsh8.5 0 0 0 0 0 1 for me, this works in both tclsh versions. 0 0 0 0 0 1 sometimes once i run the
• yencode
  26 Mar 2014 — r } proc yencode::yDecode {s} { set r {} set esc 0 binary scan $s c* d foreach c $d { if {$c == 61 && $esc == 0} { set esc 1 continue } set v [expr {($c - 42
• Yet again dll caller
  06 Jan 2012 — i.e. follow the pointer we found there). If we assume that we start from address 0 then we can define a target address that can be reached through a chain of
• Yet Another Color Picker
  23 Apr 2018 — 0.66666 1.0 1.0 blue \ 0.75 1.0 1.0 purple \ 0.83333 1.0 1.0 magenta \ 0.0 0.0 0.0 black \ 0.0 0.0
• Yet another object system
  12 Sep 2018 — lassign [ihash me get $method] params body if {$body == ""} { if {[llength $args] == 0} { return $params } set a [lindex $args 0] ihash me set $method $a return $a } foreach 1 $params 2 $args
• Yet another Tcl debugger
  20 Jan 2012 — i<0} {return -1} set log [lreplace $log $i $i] catch { trace remove variable $name {read write unset} ::tcldebug::Log } return 0 } proc Store {list elt} { if {[lsearch -exact $list $elt]>=0
• Yeti
  23 Jun 2016 — Generates an itcl parser to recognise the BNF. * Depends on Tcl/[itcl]/[tcllib]. * Currently at version 0.4.2. * Updated: 2014-04-18 * Contact 1: mailto:steve@arieslabs.com ([st3ve]) * Contact 2
• yield
  19 Oct 2016 — might use it like this: ====== proc summerBody n { coloop x { incr n $x } } coroutine s summerBody 0; # ==> ::s s 10; # ==> 10 s 5; # ==> 15 s 2; # ==> 17 s 1; # ==> 18 ====== Without `coloop
• yieldm
  20 Oct 2016 — a built-in command, but can be implemented like this: ====== proc yieldm {{value {}}} { yieldto return -level 0 $value } ====== In this implementation, any command that simply returns `$value` could be used instead of
• Yin-yang
  06 Jan 2012 — x1 $y1 -start 0 -extent 180 -fill $col1 $w create arc $x0 $y0 $x1 $y1 -start 180 -extent 180 -fill $col2 $w create arc $x0 $y2 $xm $y3 -start 0 -extent 180
• YouTube Playlist Downloader Frontend Interface For get-flash-videos
  24 Feb 2015 — Debian GNU/Linux 7.0 . It should work on other Linux systems. You have to understand that this ''ONLY'' downloads YouTube playlists. Nothing else. To run this script : 0. Install get_flash
• Zarutian
  18 May 2014 — lindex [info level 0] 1] != 2} { error "cant interpret \"[ lindex [info level 0] 1]\" as an anonymous function" } bind_vars [lindex [info level 0] 1 0] [lrange [info level 0] 2 end
• zbar
  25 Oct 2015 — linked locally the ''/usr/lib/libzbar.so.0.2.0'' lib (can also be copied) as ''libzbar.so''. ''/usr/lib/libzbar.so.0.2.0'' was installed earlier using: $ sudo apt-get
• Zen Loops
  31 Jan 2011 — borderwidth 0] \ -sticky nsew -columnspan 2 -row 0 -column 0 grid [ttk::frame .f] -row 1 -column 0 grid [ttk::sizegrip .grip] -row 1 -column 1 -sticky se grid rowconfigure . 0 -weight
• zencode
  12 Jan 2011 — set result {} for {set index 0} {$index < $mult} {incr index} { foreach var $vars {dict set context $var $index} foreach arg $args { lappend result [my {*}$arg] } } } set multiplying 0 Debug.zengen {mult result
• ZeroMQ
  19 Mar 2016 — llength $argv]} { set filter [lindex $argv 0] } else { set filter "10001" } subscriber setsockopt SUBSCRIBE $filter # Process updates set total_temp 0 for {set update_nbr 0} {$update_nbr < 10} {incr update_nbr
• zevents
  20 Jan 2012 — 10 {puts EVENT1-final} zevents::bind Something event1 0 {puts EVENT1-after} zevents::bind Something event2 0 {puts EVENT2} zevents::bind Something puts 0 {puts} zevents::call Something event1 zevents::call Something
• ZigZag
  25 Dec 2013 — 0 --> p, 1 --> q, i.e. c < 0 or c > 1 means point is # outisde the segment) set c [expr {($ux * $vx + $uy * $vy) / ($u * $u)}] # if we clamp it to [0
• zinc
  07 Sep 2018 — i'm a total newbie at Tcl/Tk but how do you install tkZinc-3.3.0 on a winXP desktop?? How does one use the starkit? ---- [AM] (21 august 2008) Here
• zip
  20 Jan 2013 — diroff clen if {$clen > 0} { set comment [read $fd $clen] } else { set comment "" } if {$disk != 0} { error "multi-file zip not supported" } seek $fd $diroff for {set i 0} {$i < $nrec} {incr
• Zipguy
  22 Oct 2015 — s the (old) list of Wiki pages: ---- Wiki * The Tcl'ers Wiki [http://wiki.tcl.tk/0] * [A balance toy] * [A minimally extended minimal editor] * [A Primitive POP3-based Spam Killer] * [alternate
• zlib
  27 Aug 2018 — after version 0.94. A somewhat improved version can be found at: [zlib - inflate in tcl]. ---- '''July 08, 2005''': Beware of new security issues [http://www.eweek.com/article2/0,1895,1834632
• Zone Plate Test Image
  24 Apr 2006 — math.h set maxValue 255 ;# 8 bit color depth set midValue [expr {$maxValue / 2.0}] for {set i 0} {$i <= $maxValue} {incr i} { set sineTab($i) [expr {$midValue*sin($M_PI*($i
• ztcl
  01 Oct 2013 — Version:| 1.0| | State:| beta| | Title:| [ZLib] for TCL| | Creator:| Marco Maggi| | Description:| wrapper for the ZLib compression library| | Rights:| Modified BSD| | URL:| http://download.gna.org/ztcl/1.0/| | Depends:| tclmore
• zvfs
  08 Mar 2013 — files. You mount a ZIP archive onto a directory on your filesystem. Currently at version 0.0 . Updated: 08/2005 Contact: See web site === Currently a part of [TOBE]. ---- **See also** * [zip
• |
  07 Aug 2012 — further discussion.) The following cases then exist: %| Case | Result |% &| `$a[>=]0,$b>=0` | `$a<<pipe>>$b`, as defined above. |& &| `$a>=0,$b[<]0` | `$a<<pipe>>$b == ~(~$a & ~$b)` ''De Morgan's Law
• ||
  28 Sep 2018 — result ''provided'' all arguments have been reduced to the "most basic" boolean values (non-zero or 0), like for instance when evaluated with any kind of boolean operator. For example, the following
• ~
  23 Jun 2012 — of the result is 1 if bit ''n'' of the argument is 0. Bit ''n'' of the result is 0 if bit ''n'' of the argument is 1. When applied to a
• Æjaks
  08 Apr 2016 — is done with the Java-based demos can be completely done in Tcl with Æjaks. The 0.4 release of Æjaks doesn't include the Extras and Chart widgets in Tcl yet